UC知道急问asp的rs.pagesize属性的问题?
来源：百度知道 编辑：UC知道 时间：2024/09/23 00:28:22
急急急,问asp的rs.pagesize属性的问题?
<%
Set cn=Server.CreateObject("ADODB.Connection")
cn.Open "DSN=guestbook;UID=;PWD="
Set rs=Server.CreateObject("ADODB.Recordset")
Source="Select usrname,content From tbl1"
rs.Open Source,cn,1
rs.pagesize=2 '可以改成kk=2
If rs.EOF Then
Response.Write "数据库为空"
Response.End
End If
curPage=clng(Request.QueryString("curPage"))
If curPage="" Then
curPage=0
rs.MoveFirst
else
rs.Move curPage*(rs.pagesize) 'rs.pagesize可以改成kk
End If
Response.Write "<P>"
Response.Write"<TABLE BORDER ALIGN=CENTER>"
Response.Write"<TR>"
Response.Write"<TD>User Name</TD>"
Response.Write"<TD>Password</TD>"
curRecord=0
D
<%
Set cn=Server.CreateObject("ADODB.Connection")
cn.Open "DSN=guestbook;UID=;PWD="
Set rs=Server.CreateObject("ADODB.Recordset")
Source="Select usrname,content From tbl1"
rs.Open Source,cn,1
rs.pagesize=2 '可以改成kk=2
If rs.EOF Then
Response.Write "数据库为空"
Response.End
End If
curPage=clng(Request.QueryString("curPage"))
If curPage="" Then
curPage=0
rs.MoveFirst
else
rs.Move curPage*(rs.pagesize) 'rs.pagesize可以改成kk
End If
Response.Write "<P>"
Response.Write"<TABLE BORDER ALIGN=CENTER>"
Response.Write"<TR>"
Response.Write"<TD>User Name</TD>"
Response.Write"<TD>Password</TD>"
curRecord=0
D
输出一下rs.recordcount.看看能否正常显示记录条数. 它如果能显示15 也可以这样. if rs.pagesize > rs.recordcount then pages = 1 else if rs.recordcount mod rs.pagesize <> 0 then pages = rs.recordcount \ rs.pagesize + 1 else pages = rs.recordcount / rs.pagesize end if end if 输出 pages 就是总页数. 其中rs.recordcount是总条数.rs.pagesize是第页要显示条数.
rs.MoveFirst
不能用这样的方式，这样的话就无法实现分页了，以前我也发生过这样的问题，去掉就好了。用for循环才好分页
http://blog.csdn.net/tangqiyang008/archive
我的博客上面有一篇很久前写的文章，关于分页的，感兴趣可以看看