标题:谁给我点分页技术的代码?
只看楼主
ASP菜菜菜鸟
Rank: 1
等 级:新手上路
帖 子:290
专家分:0
注 册:2005-5-8
 问题点数:0 回复次数:24 
谁给我点分页技术的代码?
谁给我点分页技术的代码?
谢谢!!
搜索更多相关主题的帖子: 技术 代码 
2005-05-20 14:57
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
<%
strconn="driver={Microsoft Access driver (*.mdb)};DBQ="&Server.MapPath("user.mdb")
set conn=Server.CreateObject("ADODB.Connection")
conn.open strconn
%>
<table width="50%" border="1" bordercolor="#000099">
  <tr>
    <td>用户名</td>
 <td>密码</td>
  </tr>
<%
'===========利用循环显示数据==============
strSQL="Select * from userinfo"
Set rs=Server.CreateObject("ADODB.RecordSet")
'rs.open strSQL,strconn,adOpenstatic,adLockReadOnly,adCmdText---部分参数可以用数字代替
rs.open strSQL,strconn,3,1,1
'============每页显示的记录数==========
rs.PageSize=2
'===========控制当前显示页的页号=======
PageNum=Request.QueryString("PageNum")
if PageNum="" then
PageNum=1
rs.AbsolutePage=PageNum
else
rs.AbsolutePage=PageNum
end if
'===========显示数据记录的基本信息========
Response.Write("数据记录的总数为:"&rs.RecordCount&"<br><br>")
Response.Write("总页数为"&rs.PageCount&"页/")
Response.Write("当前第<font color=red>"&PageNum&"</font>页")
'===========将数据进行列表显示============
Do While not rs.eof and i<rs.PageSize
%>
  <tr>
    <td><font size="2"><%=rs("username")%></font></td>
 <td><font size="2"><%=rs("pwd")%></font></td>
  </tr>
<%
i=i+1
rs.movenext
Loop
'===========显示可以转到的页数=============
For pn=1 To rs.PageCount
strURL="<a href=page.asp?PageNum="&pn&">第"&pn&"页</a>  "
Response.Write(strURL)
Next
'====显示上一页链接====
PPage=PageNum-1
If PPage>0 Then
strURL="<a href=page.asp?PageNum="&PPage&">上一页"&"</a>"
Response.Write(strURL)
End If
'====显示下一页链接====
NPage=PageNum+1
If NPage<=rs.PageCount Then
strURL="<a href=page.asp?PageNum="&NPage&">下一页"&"</a>"
Response.Write(strURL)
End If
%>
</table>
<%
'===========数据显示完毕关闭数据库连接释放资源===========
conn.close
Response.Write "数据库已经关闭: " & conn.State
Set conn=Nothing
%>

2005-05-20 15:03
ASP菜菜菜鸟
Rank: 1
等 级:新手上路
帖 子:290
专家分:0
注 册:2005-5-8
得分:0 
PageNum=Request.QueryString("PageNum")
如何解释,Request.QueryString("PageNum")中的pagenum从哪里得到的啊。

总有一天,我要亲手打布什一吧掌.
2005-05-20 15:10
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
数据库

2005-05-20 15:13
ASP菜菜菜鸟
Rank: 1
等 级:新手上路
帖 子:290
专家分:0
注 册:2005-5-8
得分:0 
郁闷啊,那数据库中分页的数在哪里获取啊.

总有一天,我要亲手打布什一吧掌.
2005-05-20 15:21
静夜思
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:济南的冬天
等 级:管理员
威 望:11
帖 子:8842
专家分:2567
注 册:2004-3-25
得分:0 
http://bbs.bc-cn.net/bbs/dispbbs.asp?boardID=10&ID=18834&page=1 上面是这个帖子的地址,最后的page=1表示是第一页,分页数就从这里取得。

畅所欲言
2005-05-20 15:38
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
建议你从最基础的学起
不要好高务远
学ASP一共就需要不到一个月的

2005-05-20 15:40
ASP菜菜菜鸟
Rank: 1
等 级:新手上路
帖 子:290
专家分:0
注 册:2005-5-8
得分:0 
一个月,那你一定是高手了.

总有一天,我要亲手打布什一吧掌.
2005-05-20 15:47
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
我用了15天
你要是一个月学不会
那你肯定没有完全投入

2005-05-20 15:49
ASP菜菜菜鸟
Rank: 1
等 级:新手上路
帖 子:290
专家分:0
注 册:2005-5-8
得分:0 
晕死.加郁闷.
PageNum=Request.QueryString("PageNum")
你刚才说的从数据库获得.我就不明白了啊.

总有一天,我要亲手打布什一吧掌.
2005-05-20 15:53



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-18834-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047634 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved