<%
everypag=9
pag=request.querystring("pag")
if pag="" then
pag=1
end if
set rs=server.CreateObject("adodb.recordset")
sql="SELECT PAISI_MAIN.*, PAISI_TYPE.T_TYPEDIR FROM PAISI_MAIN INNER JOIN PAISI_TYPE ON PAISI_MAIN.I_TYPEID = PAISI_TYPE.ID WHERE (((PAISI_MAIN.I_TYPEID)=17)) ORDER BY PAISI_MAIN.ID DESC;"
rs.Open sql,conn,1,1
if not rs.eof then
allrecord=rs.recordcount '总记录数
rs.pagesize=everypag
allpag=rs.PageCount
if cint(pag)>allpag then
pag=allpag
end if
rs.AbsolutePage =pag '页数
for i=1 to 3
if rs.eof then exit for
%>
|
/<%=rs("t_img")%>" width="150" height="120" border="0"> |
<%=rs("t_bt")%> |
|
|
<%rs.movenext
if rs.eof then
%>
|
|
|
|
<%exit for
end if%>
/<%=rs("t_img")%>" width="150" height="120" border="0"> |
<%=rs("t_bt")%> |
|
|
<%rs.movenext
if rs.eof then
%>
|
|
<%
exit for
end if
%>
/<%=rs("t_img")%>" width="150" height="120" border="0"> |
<%=rs("t_bt")%> |
|
|
<%
rs.movenext
next
else
allrecord=0
pag=1
allpag=1
end if
%>
|