Question

asp 翻页代码

请从以下代码帮我给出翻页代码，要求不要有错误，谢谢。

<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from NEWS order by id desc"
rs.Open sql,conn2,1,1
if not Rs.eof then
do while not rs.eof
t=t+1
%><span style="color: #F79301;"><%= t %></span> <a href="html/<%=rs("c_filepath")%>" target="_blank"><%=left(rs("title"),30)%></a> <i><%=rs("infotime")%></i><br/>

<%
if t>=20 then exit do
rs.movenext
loop
else
response.write "尚无收录"
end if
rs.close
%>
希望给出 象下面这样子
第1页 / 共62页 上一页 | 1 2 3 4 5 6 7 8 9 10 | 下一页

Answer 1

<%
Dim page
t=0
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from NEWS order by id desc"
rs.Open sql,conn2,1,1
if not Rs.eof Then
rs.PageSize=20 '设定每页显示多少条记录 PageSize : 每页的记录数
page=trim(request("page")) '获取要显示哪一页
if not isnumeric(page) then page=1
page = Cdbl(page)
if page > rs.PageCount then
page=rs.PageCount
elseif page < 1 then
page=1
end if
rs.AbsolutePage=page '定位当前的页位置
t=(page-1) * rs.PageSize
Dim i
for i=1 to rs.PageSize
if rs.eof then
exit for
end if
t=t+1
%><span style="color: #F79301;"><%= t %></span> <a href="html/<%=rs("c_filepath")%>" target="_blank"><%=left(rs("title"),30)%></a> <i><%=rs("infotime")%></i><br/>

<%
rs.movenext
next
'显示页数
dim ls_ScriptName
ls_ScriptName = request.servervariables("Script_Name")
%>
第<%=page%>页 / 共<%=rs.PageCount%>页
<%if page > 1 then%><A HREF="<%=ls_ScriptName%>?page=<%=page-1%>">上一页</A><%else%>上一页<%end if%>
|
<%
dim i
for i = 1 to rs.PageCount
%> <A HREF="<%=ls_ScriptName%>?page=<%=i%>"><%=i%></A> <%
next
%>
|
<%if page < rs.PageCount then%><A HREF="<%=ls_ScriptName%>?page=<%=page+1%>">下一页</A><%else%>下一页<%end if%>
<%
else
response.write "尚无收录"
end if
rs.close
set rs = nothing
%>