UC知道ASP程序，帮我挑下毛病，分页问题
来源：百度知道 编辑：UC知道 时间：2024/06/27 18:04:50
<% dim sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from ys order by id desc"
rs.open sql ,conn,3,3
rs.pagesize=10
page=1
page=request.querystring("page") 'page值为接受值
IF rs.eof then
if Not IsEmpty(trim(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_news.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
end if
%>
<td align="center">
<%for i=1 to rs.pagesize%>
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<
set rs=server.CreateObject("adodb.recordset")
sql="select * from ys order by id desc"
rs.open sql ,conn,3,3
rs.pagesize=10
page=1
page=request.querystring("page") 'page值为接受值
IF rs.eof then
if Not IsEmpty(trim(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_news.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
end if
%>
<td align="center">
<%for i=1 to rs.pagesize%>
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<
IF rs.eof then 是eof显示数据呢,还是not eof
page=1
page=request.querystring("page") 'page值为接受值
if Not IsEmpty(trim(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_news.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 (这里还有rs_news,好像没有定义过)
end if
End if
end if
这个没有那么复杂,只要在写上一页,下一页注意就好了,
page=request.querystring("page") 'page值为接受值
if cint(page)<=0 then
page=1
end if
rs.AbsolutePage = Page
这样就可以了