UC知道尽力了,改了无数次,asp这段代码还是不行
来源：百度知道 编辑：UC知道 时间：2024/06/06 05:10:03
我改了好多次都不行啊 ,帮我全文改一下可以吗?跪求!
就是我输入http://127.0.0.1/1.asp?curpage=0或者输入http://127.0.0.1/1.asp的时候都不能显示出下一页来的
我的数据库里面的记录有15条,怎么可能不会显示出下一页,一定是
下一页的代码出了什么问题,
<%
set cn=server.createobject("adodb.connection")
cn.open"dsn=留言板数据库;"
set rs=server.createobject("adodb.recordset")
source="select usrname,password from xx"
rs.open source,cn
rs.pagesize=2
if rs.eof then
response.write"数据库为空"
response.end
end if
curpage=request.querystring("curpage")
if curpage="" then
curpage=0
rs.movefirst
else
rs.move curpage*(rs.pagesize)
end if
response.write"<p>"
response.write"<table border align=center>"
resp
就是我输入http://127.0.0.1/1.asp?curpage=0或者输入http://127.0.0.1/1.asp的时候都不能显示出下一页来的
我的数据库里面的记录有15条,怎么可能不会显示出下一页,一定是
下一页的代码出了什么问题,
<%
set cn=server.createobject("adodb.connection")
cn.open"dsn=留言板数据库;"
set rs=server.createobject("adodb.recordset")
source="select usrname,password from xx"
rs.open source,cn
rs.pagesize=2
if rs.eof then
response.write"数据库为空"
response.end
end if
curpage=request.querystring("curpage")
if curpage="" then
curpage=0
rs.movefirst
else
rs.move curpage*(rs.pagesize)
end if
response.write"<p>"
response.write"<table border align=center>"
resp
<%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("自己数据库.mdb")
conn.Open strcon
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from table order by id desc"
rs.Open sql, conn,1
page=1 ' 设置变量PAGE=1
rs.PageSize = 5 '每页显示记录数
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 = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = rs.AbsolutePage
%>
<%
For i =