UC知道ASP一个网页中实现下一页的功能
来源：百度知道 编辑：UC知道 时间：2024/06/05 10:07:09
这个代码哪里出错了，。。。没有下一页功能，，数据都显示在一个页面上了
<%
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("a.asa")
exec="Select * From userid Order By id DESC"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<table width="748" border="1" align="left">
<%
Do While Not rs.Eof '只要不是结尾就执行循环
%>
<tr>
<td width="604"><a href="http://www.zswgw.cn"
target="_blank">http://www.zswgw.cn/save.asp?link_id=<%=rs("user_id")%></a></td>
<td width="100">
<%
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("a.asa")
exec="Select * From userid Order By id DESC"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<table width="748" border="1" align="left">
<%
Do While Not rs.Eof '只要不是结尾就执行循环
%>
<tr>
<td width="604"><a href="http://www.zswgw.cn"
target="_blank">http://www.zswgw.cn/save.asp?link_id=<%=rs("user_id")%></a></td>
<td width="100">
<%
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("a.asa")
exec="Select * From userid Order By id DESC""
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
rs.PageSize=20
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
%>
<table width="748" border="1" align="left">
<%
a=1
Do While Not rs.Eof And a<=20 '只要不是结尾就执行循环
%>
<tr>
<td width="604"><a href="http://www.zswgw.cn"
target="_blank"><