Question

ASP一个网页中实现下一页的功能

这个代码哪里出错了，。。。没有下一页功能，，数据都显示在一个页面上了

<%
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">访问<%=rs("user_sl")%></td>
<td width="22">次</td>
</tr>
<%
rs.MoveNext '将记录指针移动到下一条记录
Loop
%>
</table>
<%
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
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if
%>
<%
rs.movenext
next
%>

<%if page=1 and not page=pagecount then%>
第<%=page%>页
<%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a>
<%next%>
<a href="?page=<%=page+1%>">下页</a>
<%elseif page=pagecount and not page=1 then%>
第<%=page%>页
<%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a>
<%next%>
<a href="?page=<%=page-1%>">上页</a>
<%elseif page<1 then%>没有任何记录！
<%elseif page>pagecount then%>没有任何记录！
<%elseif page=1 and page=pagecount then%>
<%else%>
第<%=page%>页
<%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a>
<%next%>
<a href="?page=<%=page-1%>">上页</a>
<a href="?page=<%=page+1%>">下页</a> </div>
<%end if%>

<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>

Answer 1

代码顺序写错了

<% Const PageSize=15 '每页显示数
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
if not rs.eof then
rs.absolutepage=page
end if
%>
<table width="748" border="1" align="left">
<%
i=0
Do While Not rs.Eof '只要不是结尾就执行循环
i=i+1
If i>rs.PageSize then Exit do
%>
<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">访问<%=rs("user_sl")%></td>
<td width="22">次</td>
</tr>
<%
rs.MoveNext '将记录指针移动到下一条记录
Loop
%>
</table>

<%if page=1 and not page=pagecount then%>
第<%=page%>页
<%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a>
<%next%>
<a href="?page=<%=page+1%>">下页</a>
<%elseif page=pagecount and not page=1 then%>
第<%=page%>页
<%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a>
<%next%>
<a href="?page=<%=page-1%>">上页</a>
<%elseif page<1 then%>没有任何记录！
<%elseif page>pagecount then%>没有任何记录！
<%elseif page=1 and page=pagecount then%>
<%else%>
第<%=page%>页
<%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a>
<%next%>
<a href="?page=<%=page-1%>">上页</a>
<a href="?page=<%=page+1%>">下页</a> </div>
<%end if%><%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>

Answer 2

第一种办法：

function showpage(totalnum,Maxnum,url)
dim n
if totalnum mod Maxnum = 0 then
n = totalnum \ Maxnum
else
n = totalnum \ Maxnum +1
end if

response.write "<table border=0 cellpadding=0 cellspacing=0 width=759 bgcolor=red class=p2>"
response.write "<tr><td style='padding: 2' >"
if page<2 then
response.write "<font color='white'>首页 上一页 </font>"
else
response.write "<font color='white'><a href="&url&"?page=1>首页</a> </font>"
response.write "<font color='white'><a href="&url&"?page="&(page-1)&">上一页</a> </font>"
end if
if n-page<1 then
response.write "<font color='#FFFFFF'>下一页 尾页</font>"
else
response.write "<font color='white'><a href="&url&"?page="&(page+1)&">下一页</a> </font>"
response.write "<font color='white'><a href="&url&"?page="&n&">尾页</a></font>"
end if
response.write "<font color='white'> 页次:</font><font color=yellow>"&page&"</font><font color='white'>/"&n&"页</font>"
response.write "<font color='white'> 共"&totalnum&"个 "&Maxnum&"个/页</font>"
response.write "<center><font size=2>" & Ucase(str) & "</center>"
response.write "</td></tr></table>"
end function

第二种办法：

function showpage(totalnum,Maxnum,url)
dim n
if totalnum mod Maxnum = 0 then
n = totalnum \ Maxnum
else
n = totalnum \ Maxnum +1
end if

response.write "<table border=0 cellpadding=0 cellspacing=0 width=759 bgcolor=red class=p2>"
response.write "<tr><td style='padding: 2' >"
if page<2 then
response.write "<font color='white'>首页 上一页 </font>"
else
response.write "<font color='white'><a href="&url&"?page=1>首页</a> </font>"
response.write "<font color='white'><a href="&url&"?page="&(page-1)&">上一页</a> </font>"
end if
if n-page<1 then
response.write "<font color='#FFFFFF'>下一页 尾页</font>"
else
response.write "<font color='white'><a href="&url&"?page="&(page+1)&">下一页</a> </font>"
response.write "<font color='white'><a href="&url&"?page="&n&">尾页</a></font>"
end if
response.write "<font color='white'> 页次:</font><font color=yellow>"&page&"</font><font color='white'>/"&n&"页</font>"
response.write "<font color='white'> 共"&totalnum&"个 "&Maxnum&"个/页</font>&quo

Answer 3

<%
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">http://www.zswgw.cn/save.asp?link_id=<%=rs("user_id")%></a></td>
<td width="100">访问<%=rs("user_sl")%></td>
<td width="22">次</td>
</tr>
<%
a=a+1
rs.MoveNext '将记录指针移动到下一条记录
Loop
%>
</table>

<%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a>
<%next%>

<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>

Answer 4

在静态页面直接作个连接就行了

Answer 5

用DW可以直接生成代码，实现分页……