[求助]关于ASP分页程序？ - ASP技术论坛

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

[求助]关于ASP分页程序？

<%
set conn=server.createObject("ADODB.Connection")
set rs_an=server.createObject("ADODB.RecordSet")
set rs_ne=server.createObject("ADODB.RecordSet")
conn.open "DBQ="& server.mappath(".") & "\data\news.mdb;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
response.write "<table>"
rs_usename=request("id")
sql="select fullname from usertab where workgroup=" & int(rs_usename)
rs_an.Open sql,conn,1,1
while not rs_an.EOF
sql2="select `id`,`title` from `news` where `fullname`='" & rs_an("fullname") & "'"
rs_ne.Open sql2,conn,1,1
while not rs_ne.EOF
response.write "<tr><td><a href=af.asp?id=" & rs_ne("id") & ">" & rs_ne("title") & "</a></td><td>" & rs_an("fullname") & "</td></tr>"
rs_ne.movenext
wend
rs_ne.Close
rs_an.movenext
wend
rs_an.Close
Response.Write "</table>"
%>

这个是调用每个用户所发表的全部文章标题，需要分页显示
请问该怎么写啊，希望高手能够帮我改改啊，谢谢拉！
我的QQ614204
显示的页面网址为：http://www.5568555.com/jjd/ae.asp?id=12

搜索更多相关主题的帖子: ASP　

第 2 楼

得分:0

<body>
<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open userqDSN

sSqlSelect = "select * from access_man where checked = '1' order by CONVERT(int, QS) desc"
set rsSelect = Server.CreateObject("ADODB.RecordSet")
rsSelect.Open sSqlSelect, Conn, 1, 1
%>
<div align="right">
<a href="AddOrAmend.asp?id=0">录入人物信息</a>

<TABLE id="Table1" borderColor="#000066" cellSpacing="0" cellPadding="0" width="100%" border="1">
<TR>
<TD width="32%" height="20">
标题
</TD>
<TD width="10%">
发言人
</TD>
<TD width="32%">
公司名称及职称
</TD>
<TD width="5%">
期数
</TD>
<TD width="8%">
状态
</TD>
<TD width="8%">
操作
</TD>
</TR>
<%
rsSelect.pagesize = 10
if IsEmpty(request("page")) then
page = 1
else
if not IsNumeric(request("page")) then
page = 1
else
page = CLng(request("page"))
end if
end if
if page<1 then page=1
if page>rsSelect.pagecount then page=rsSelect.pagecount
if not rsSelect.eof then
rsSelect.AbsolutePage=page
cc=page*rsSelect.pagesize
if cc>rsSelect.recordcount then
cc=rsSelect.recordcount
end if
end if

if not rsSelect.EOF then
for i=1 to rsSelect.pagesize
%>
<TR>
<TD width="32%" height="30">
 <%=rsSelect("MainTitle")%> 
</TD>
<TD width="10%">
 <%=rsSelect("A_Name")%> 
</TD>
<TD width="32%">
 <%=rsSelect("Inc")%> 
</TD>
<TD width="5%">
 <%=rsSelect("QS")%> 
</TD>
<TD width="8%">

 
<%
if rsSelect("checked")="1" then
Response.Write("审核")
else
Response.Write("未审核")
end if
%>
 

</TD>
<TD width="8%">


<a href=AddOrAmend.asp?id=<%=rsSelect("ID")%>>修改</a>


</TD>
</TR>

<%
rsSelect.MoveNext
if rsSelect.EOF then
exit for
end if
next
end if
%>
</TABLE>
<table>
<tr>
<td>
<%
if rsSelect.pagecount > 0 then
pc = rsSelect.pagecount
if page <> 1 then
response.write " <a href=Personnel.asp?page=1>首页</a> |"
response.write " <a href=Personnel.asp?page="& (page-1) &">前页</a> |"
else
response.write " 首页 | 前页 |"
end if
if page <> rsSelect.pagecount then
response.write " <a href=Personnel.asp?page="& (page+1) &">后页</a> |"
response.write " <a href=Personnel.asp?page="& rsSelect.pagecount &">尾页</a> "
else
response.write " 后页 | 尾页 "
end if
response.write "   第" & page & "/" & rsSelect.pagecount & " 页"
end if
%>
</td>
</tr>
</table>

 
</div>
<%
rsSelect.Close
Conn.Close
%>
</body>

这是我用过的分页代码，你看看吧

本来无一物，何处惹尘埃
It is empty at all here, Why pm 2.5 is so TMD high!

第 3 楼

得分:0

我用分页控件是通过存储过程来分页,是网上找来的。

Love Baby

第 4 楼

得分:0

top
rs.pagesize
rs.pagecount

可以搞定了..

第 5 楼

得分:0

参照...

<%
page=Request.QueryString("page")

' 取page值

Set conn=Server.CreateObject("ADODB.Connection")
sql="select * from table"
Set rs=conn.Execute(sql)
' 在数据库中进行查询

rs.PageSize=30

' 设置分的页数,设好后系统会自动将rs.PageCount计算出来
If Page&lt1 Then Page=1
If Page=null Then Page=1
If Page&gtrs.PageCount Then Page=rs.PageCount

' rs.PageCount是总页数

rs.AbsolutePage=page

' 将要显示的页数

If page<&gt1 Then
Response.Write"&lta href="/asp1/show.asp?page=1>";第一页</a>"
Response.Write"&lta href="/asp1/show.asp?page=""&(page-1)前一页</a>"
End If
If page<&gtrs.PageCount Then
Response.Write"&lta href="/asp1/show.asp?page=""&(page+1)>后一页</a>"
Response.Write"&lta href="/asp1/show.asp?page=""&rs.PageCount>最末页</a>"
End If

For iPage=1 To rs.PageSize

' 显示分页
%>
<%=rs("显示字段")%>
<%rs.MoveNext

' 若到尾部则跳出
If rs.EOF Then Exit For
Next
%>