UC知道ASP动态友链分页
来源：百度知道 编辑：UC知道 时间：2024/07/08 02:53:19
以下是显示20个动态的友情链接.能不能在下面加上 页数.上页.下页.能够查看更多链接呢..请高手帮帮忙.谢谢
<%
set rstc9=server.createobject("ADODB.Recordset")
rstcstr9="select * from urls where check=1 "&" order by hftime desc"
rstc9.open rstcstr9,conn,1,2
if rstc9.RecordCount<21 then
p=1
'while not rstc.eof or
do while not rstc9.eof
%>
<%if rstc9("site")<>"" then%>
<a href='view.asp?ids=<%=rstc9("classid")%>&wid=<%=rstc9("wid")%>'><%=rstc9("site")%></a> <%if (p mod 2)=0 then%><br/><%else%> <%end if%>
<%else%>
<a href='view.asp?ids=<%=rstc9("classid")%>&wid=<%=rstc9("wid")%>'><%=mid(rstc9("site"),1,2)%></a>
<%end if%>
<%
p=p+1
rstc9.movenext
loop
else
p=1
do while p<21
<%
set rstc9=server.createobject("ADODB.Recordset")
rstcstr9="select * from urls where check=1 "&" order by hftime desc"
rstc9.open rstcstr9,conn,1,2
if rstc9.RecordCount<21 then
p=1
'while not rstc.eof or
do while not rstc9.eof
%>
<%if rstc9("site")<>"" then%>
<a href='view.asp?ids=<%=rstc9("classid")%>&wid=<%=rstc9("wid")%>'><%=rstc9("site")%></a> <%if (p mod 2)=0 then%><br/><%else%> <%end if%>
<%else%>
<a href='view.asp?ids=<%=rstc9("classid")%>&wid=<%=rstc9("wid")%>'><%=mid(rstc9("site"),1,2)%></a>
<%end if%>
<%
p=p+1
rstc9.movenext
loop
else
p=1
do while p<21
记录集名为rstc9，
<%
rstc9.PageSize = 10 '每页显示记录数
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rstc9.PageCount Then Page = rstc9.PageCount
i=page+(page-1)*(rstc9.PageSize-1)
rstc9.AbsolutePage = Page
%>
<div ALIGN="right">
<table width="100%">
<tr>
<form ACTION="<%=Myself%>?pages=<%=pages%>" METHOD="GET"> <td>
<p ALIGN="right"><%If Page <> 1 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&pages=<%=pages%>">
第一页</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&pages=<%=pages%>">
上一页</a>
<%
End If
If Page <> rstc9.Pa