主题:  请各位ASP大虾帮我修改一下，分页显示数据问题！

icerain
职务：普通成员
等级：1
金币：1.0
发贴：249
#12003/7/12 19:14:05
我是一个初学者 我跟据 bbs.yesky.com/book/html/2437.html
做了一个页面 可是怎么修改也是不好用
请各位朋友帮我一下！
数据库名为mdb1.mdb 表名为game 字段有 id(自动编号) name lei time cd
源代马如下：



:::::黑山佳音软件商店:::::
































   




























































 
 
 
 












































  角色扮演
  即时战略
  策略模拟
  动作冒险
  网络游戏
  体育竞技
  第一射击
  其它类型

<%
pgsz=20
strConn = "driver={MicroSoft Access Driver (*.mdb)};dbq=" & Server.Mappath("mdb.mdb")
Set objConn = Server.CreateObject("Adodb.Connection")
objConn.Open strConn
SQL1 = "SELECT * FROM game"
Set rs = objConn.Execute (SQL1)
if rs.recordcount=0 then
Response.Write "对不起，数据库中暂时没有记录！"
else
rs.pagesize=cint(pgsz)
total=int(rs.recordcount/pgsz*-1)
pageno=request("pageno")
if pageno="" then
pageno=1
else
pageno=pageno+1
pageno=pageno-1
end if
scrollaction=request("scrollaction")
if scrollaction="上一页" then
pageno=pageno-1
end if
if scrollaction="下一页" then
pageno=pageno-1
end if
if pageno<1 then
pageno=1
end if
n=1
RS.AbsolutePage = PageNo
position=rs.pagesize*pageno
pagebegin=position-rs.pagesize+1
if position pagend=position
else
pagend=rs.recordcount
end if
Response.Write"(共有"&RS.RecordCount &"条符合条件的信息,显示"&pagebegin&"-"&pagend&")"
%>









<%
do while not (rs is nothing)
rowcount=rs.pagesize
do while not rs.eof and rowcount > 0
if n=1 then
Response.Write""
else
Response.Write""
end if
n=1-n
%>






<%
rowcount=rowcount-1
rs.movenext
loop
set rs=rs.nextrecordset
loop
rs.close
set rs=nothin
%>
光盘名称 所属类型 碟片数量 加入日期
<%=rs("name")%> <%=rs("lei")%> <%=rs("cd")%> <%=rs("time")%>



        


<%
if PageNo > 1 Then
response.write ""
end if
if RowCount=0 and PageNo <>Total then
response.write ""
end if
response.write "< /form>"
End if
%>
        
版权所有
佳音软件店



程序编写网页设计 赵栋







爱多媒体爱生活
职务：普通成员
等级：2
金币：1.0
发贴：303
#22003/7/12 22:53:45
你觉得哪里错了？？

你试试不要用set rs=objConn.Execute (SQL1)这个方法创记录集。

icerain
职务：普通成员
等级：1
金币：1.0
发贴：249
#32003/7/13 0:56:17
这个和用什么方法创建记录有关系吗？
如果这个方法不行我要用哪种方法呢？
我是一个初学者 请您再指点一下好吗？



缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
#42003/7/13 1:33:28
什么错误提示或者什么不正常现象?



icerain
职务：普通成员
等级：1
金币：1.0
发贴：249
#52003/7/13 13:32:08
RS.AbsolutePage = PageNo这行错了 可是我不明白
错误类型：
ADODB.Recordset (0x800A0CB3)
/jiayinsoft/game.asp, 第 180 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)



爱多媒体爱生活
职务：普通成员
等级：2
金币：1.0
发贴：303
#62003/7/14 9:46:27
试试用
set rs=server.createobject("recordset")
rs.open sql,conn
这个方法来创记录集咯



makdh
职务：普通成员
等级：1
金币：0.0
发贴：28
#72003/7/18 9:25:24
objConn.Execute (SQL1)有什么错？
是不是超出页范围了？
把这个加上看看
if totle > pageno then response.write("Error: Record Empty"): response.end



5D雷锋
职务：普通成员
等级：3
金币：10.0
发贴：1008
#82003/7/18 9:54:43
数据库名为mdb1.mdb

你的代码
strConn = "driver={MicroSoft Access Driver (*.mdb)};dbq=" & Server.Mappath("mdb.mdb")

还有！
if scrollaction="上一页" then
pageno=pageno-1
end if
if scrollaction="下一页" then
pageno=pageno-1
end if

改成

if scrollaction="上一页" then
pageno=pageno-1
end if
if scrollaction="下一页" then
pageno=pageno+1
end if


还有！
total=int(rs.recordcount/pgsz*-1)
改成
total=int(rs.recordcount/pgsz*-1)*-1

还有！
do while not (rs is nothing)
rowcount=rs.pagesize
do while not rs.eof and rowcount > 0
if n=1 then
Response.Write"