28,406
社区成员
发帖
与我相关
我的任务
分享
<%
exec="select * from article where claz="&request.querystring("claz")&" order by time desc "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
rs.PageSize=5
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
%>
<%for i=1 to rs.PageSize%>
<%if rs.EOF then
exit for
end if%>
<tr><td class=t101 background=images/bg3.gif><img border=0 src='images/arrow.gif'><a href="read_article_xxzx.asp?id=<%=rs("id")%>" target=_self> <%=rs("title")%></a></td></tr>
<%rs.movenext
next
%>
<tr><td class=t02>
<%if page=1 and not page=pagecount then%>
<div align="right">page<%=page%> <%for i=1 to pagecount%>
<a href="xxzx1.asp?claz=<%=rs("claz")%>&page=<%=i%>"><%=i%></a> <%next%><a href="xxzx1.asp?claz=<%=rs("claz")%>&page=<%=page+1%>">>></a> </div>
<%elseif page=pagecount and not page=1 then%>
<div align="right">page<%=page%> <%for i=1 to pagecount%>
<a href="xxzx1.asp?claz=<%=rs("claz")%>&page=<%=i%>"><%=i%></a> <%next%><a href="xxzx1.asp?claz=<%=rs("claz")%>&page=<%=page-1%>"><<</a> </div>
<%elseif page<1 then%><div class="font" align="right"><font color=red>没有任何记录!</font></div>
<%elseif page>pagecount then%><div class="font" align="right"><font color=red>没有任何记录!</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="right">page<%=page%> <%for i=1 to pagecount%>
<a href="xxzx1.asp?claz=<%=rs("claz")%>&page=<%=i%>"><%=i%></a> <%next%><a href="xxzx1.asp?claz=<%=rs("claz")%>&page=<%=page-1%>"><<</a>
<a href="xxzx1.asp?claz=<%=rs("claz")%>&page=<%=page+1%>">>></a> </div>
<%end if%></td></tr>
length = rs.PageSize
if cint(currentPage) * cint(rs.PageSize) > rs.recordcount then
lenght = rs.recordcount - ( currentPage - 1 ) * cint(lenght)
end if
for i=1 to length