[求助]新手简单的分页怎么做啊我自己写了个帮着看看 - ASP技术论坛

问题点数：0 回复次数：10

[求助]新手简单的分页怎么做啊我自己写了个帮着看看

[求助]新手简单的分页怎么做啊我自己写了个帮着看看谢谢了
先连接数据库
if rs.eof and rs.bof then
response.write("现在还没有任何数据信息")
response.End()
end if
page=request.QueryString("p")
if page="" then page=1
rs.pagesize=10
x=rs.pagecount
if (page+0>x) then page=x
rs.absolutepage=page
for i=1 to 10
if rs.eof then exit for
然后怎么写啊
谢谢

搜索更多相关主题的帖子: 信息　连接数据库　

第 2 楼

得分:0

送你一个简单的,自己拿回去对照着研究吧.

<%
on error resume next
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from 表名 order by id desc"
rs.open sql,conn,3,1
if rs.eof then
response.Write "当前数据库中无记录!"
response.end
else
const maxperpage=20 '定义每一页显示的数据记录的常量
dim currentpage '定义当前页的变量
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" or currentpage<1 then
currentpage=1

else
currentpage=clng(currentpage)
end if
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
'如果变量currentpage的数据类型不是数值型
'将1赋给变量currentpage
if not isnumeric(currentpage) then
currentpage=1
end if

dim totalput,n '定义变量
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
i=0
do while i< maxperpage and not rs.eof
%>

'这里是要显示的内容

<%
i=i+1
rs.movenext
loop
end if
%>

'简单的分页代码（只需要更改一下超链地址）
<td colspan="10" class="tdbg2">页数：<%=currentpage%>/
<% =n%>
<%k=currentpage
if k<>1 then%>
[<a href="exper.asp?pageid=1">首页</a>] [<a href="exper.asp?pageid=<%=k-1%>">上一页</a>]
<%else%>
[首页] [上一页]
<%end if%>
<%if k<>n then%>
[<a href="exper.asp?pageid=<%=k+1%>">下一页</a>] [<a href="exper.asp?pageid=<%=n%>">尾页</a>]
<%else%>
[下一页] [尾页]
<%end if%>
共有<font color="red"><%=totalput%></font>条记录
</td>

第 3 楼

得分:0

给你一个很简单的例子自己看吧

=========================Page.asp(RS分页代码)==================================================

<body>
<%
Dim rs,sql,i,paper,pages
Set rs = Server.CreateObject("ADODB.RECORDSET")
sql = "select * from userinfo order by id asc"
rs.Open sql,conn,1,1
%>
<table width="450" border="1" cellpadding="0" cellspacing="0">
<tr>
<td width="85" align="center">id</td>
<td width="161" align="center">username</td>
<td width="204" align="center">password</td>
</tr>
<%
If rs.Eof Then
Response.Write("<tr><td colspan='3' align='center'>暂时没有记录!</td></tr>")
Else
rs.PageSize=10
paper = rs.PageCount
pages = Trim(Request.QueryString("page"))
If pages = "" Then pages = 1
If Not IsNumeric(pages) or Instr(pages,"-")<>0 or Instr(pages,".")<>0 Then
Response.Write("<script>alert('非法操作!');history.back()</script>")
Response.End()
End If
pages = Int(pages)
If pages < 1 Then pages = 1
If pages > paper Then pages = paper
rs.Absolutepage = pages
For i = 1 To rs.PageSize
%>
<tr>
<td align="center"><%=rs("id")%></td>
<td align="center"><%=rs("username")%></td>
<td align="center"><%=rs("password")%></td>
</tr>
<%
rs.movenext
If rs.eof Then Exit For
Next
%>
<tr>
<td colspan="3" align="left">
共有<font color="red"><%=rs.RecordCount%></font>条记录,
共有<font color="red"><%=paper%></font>页,
当前第<font color="red"><%=pages%></font>页,
<a href="?page=1">首页</a> 
<a href="?page=<%=pages-1%>">上一页</a> 
<a href="?page=<%=pages+1%>">下一页</a> 
<a href="?page=<%=paper%>">尾页</a>
</td>
</tr>
<%
Rs.Close
Set Rs = Nothing
End If
%>
</table>
</body>

其实我很低调,只是你不知道...

第 4 楼

得分:0

"做人很低调"来那么早啊.

第 5 楼

得分:0

呵呵你也很早啊
这个论坛的连接是不是改了
我点ASP论坛
显示的该页无法显示....

其实我很低调,只是你不知道...

第 6 楼

得分:0

好象换用2级域名了哈..

其实我很低调,只是你不知道...

第 7 楼

得分:0

谢谢大师指点，我会好好研究的

to be and to be 勤奋是成功的唯一途径

第 8 楼

得分:0

为什么我看好多人不用Dim声明直接就用变量啊，着样不会出什么问题吧

to be and to be 勤奋是成功的唯一途径

第 9 楼

得分:0

不做变量声明是隐性变量
做为你名优秀的编程员
不做变量的声明是绝对不允许的
如果不小心出错了找起来很麻烦
如
<%
result = "结果"
%>
.....
.....
<%
resolt = "测试"
'这里本意是想把变量result重新赋值
'但由于马虎写错了
'就相当于又用到了一个新的变量
'这样就直接影响到了下面的代码出错后查找不易
%>
所以使用这种隐性变量是一定要杜绝的
建议在每个页面的开始写上
Option Explicit 这句也就是强制变量声明
不声明变量的话就要报错了
这句可以加到conn.asp中去做为include包含文件
不知道你了解了没...

其实我很低调,只是你不知道...

第 10 楼

得分:0

哦是着样啊，原来以为用的变量少就不用声明了，我刚开始学ASP应该养成个好习惯，谢谢拉，，不过能把 Option Explicit 着个能解释一下么，，谢谢，，，

to be and to be 勤奋是成功的唯一途径