UC知道Help~~~ -----asp分页求救!!!
来源：百度知道 编辑：UC知道 时间：2024/05/22 13:39:27
源码如下:
<%@ language=vbscript %>
<%
dim name,age
dim conn,p1,path1,rs
age=request("age")
set conn=server.createobject("ADODB.Connection")
p1="Provider=Microsoft.Jet.OLEDB.4.0;"
path1="Data Source="&Server.MapPath("/nihao1/login.mdb")
conn.Open p1&path1
exec="select * from login where 年龄="+age
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
page=1 ' 设置变量PAGE=1
rs.PageSize = 1 '每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage
<%@ language=vbscript %>
<%
dim name,age
dim conn,p1,path1,rs
age=request("age")
set conn=server.createobject("ADODB.Connection")
p1="Provider=Microsoft.Jet.OLEDB.4.0;"
path1="Data Source="&Server.MapPath("/nihao1/login.mdb")
conn.Open p1&path1
exec="select * from login where 年龄="+age
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
page=1 ' 设置变量PAGE=1
rs.PageSize = 1 '每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage
你这些代码，，是保存在一个叫test.asp的文件吗。。？
如果不是，请检查一下。。。名称是不是test.asp
<%if request("page")>1 then%>
<a Href="test.asp?Page=<% = 1%>">首页</a>
<a Href="test.asp?Page=<% =request("page") -1 %>">上一页</a>
<%end if %>
<%if request("page")<>rs.pagecount then %>
<a Href="test.asp?Page=<% =request("page") + 1%>">下一页</a>
<a Href="test.asp?Page=<% = rs.PageCount%>">尾页</a>
<% end if %>
把这个改成
<%if request("page")>1 then%>
<%"=<a Href="test.asp?Page=<% = 1%>">首页</a>"%>
<%"=<a Href="test.asp?Page=<% =request("page") -1 %>">上一页</a>"%>
<%end if %>
<%if request("page")<>rs.pagecount then %>
&l