asp翻页代码不能正常显示

来源:百度知道 编辑:UC知道 时间:2024/05/15 12:58:58
sqlryming="select * from news where news_type='公司动态' order by id desc"
set rsryming=server.CreateObject("adodb.recordset")
rsryming.open sqlryming,conn,1,2
i=4
rsryming.pagesize=i
pageno=request("pageno")

if pageno="" then
pageno=1
end if
rsryming.absolutepage=pageno

---------------------------------------------
if pageno=1 then
response.Write("首页 上一页 <a href=gsdt.asp?pageno="&pageno+1&">下一页</a><a href=gsdt.asp?pageno="&rsryming.pagecount&"> 末页</a>")
end if
if pageno>1 and pageno<rsryming.pagecount then
response.Write("<a href=gsdt.asp?pageno=1>首页</a> <a href=gsdt.asp?pageno="&pageno-1&">上一页</a> <a href=gsdt.asp?pageno="&pageno+1&">下一页</a> <a href=gsdt.asp?pageno="&rsrym

for i=1 to msg_per_page
这里写一句IF rs.EOF then exit for
%>
<% =rs("MaxName")%><br>
当你点到的这一页时,记录集rs已经读到末尾了,所以再执行<% =rs("MaxName")%>的时候就会报以上错误了.

你吧参数后面""中的pageno换成rsryming.absolutepage试试

看你写的代码部分是没有任何问题的,我想可能是中间你没有贴出来的部分把pageno的值改变了吧~~~~~~~~