Question

asp 需要添加分页显示 求帮忙

<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#B3D2EE">

<%action=request.QueryString("action")
select case action
case ""
%>

<%case "manage"
%>

</table>
<div align="center">
<table width="100%" border="0" cellpadding="5" cellspacing="1">
<tr>
<td width="6%" bgcolor="#E1E5EE" height="30">
<p align="center"><b>受理情况</b></td>
<td width="8%" bgcolor="#E1E5EE" height="30">
<p align="center"><b>姓名</b></td>
<td width="20%" bgcolor="#E1E5EE" height="30">
<p align="center"><b>部门</b></td>
<td width="38%" bgcolor="#E1E5EE" height="30">
<p align="center"><b>标题</b></td>
<td width="8%" bgcolor="#E1E5EE" height="30"><div align="center"><b>回复</b></div></td>
<td width="8%" bgcolor="#E1E5EE" height="30"><div align="center"><b>删除</b></div></td>
<td width="12%" bgcolor="#E1E5EE" height="30"><div align="center"><b>时间</b></div></td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from ZD_book where ntype=0"
rs.open sql,conn,2,3
do while not rs.eof
response.write "<tr>"
response.write "<td bgcolor=""#f2f2f2"" height=""30"">"
if trim(rs("revert"))<>"" then
response.write "<font color=""red""><p align=""center""><b>已反馈</p></font>"
else
response.write "<p align=""center"">未反馈</p>"
end if
%>

</td>
<td bgcolor="#f2f2f2" height="30"><p align="center"><%=rs("uname")%></p></td>
<td bgcolor="#f2f2f2" height="30"><%=rs("lyg")%></td>
<td bgcolor="#f2f2f2" height="30"><%=rs("title")%></td>
<td bgcolor="#f2f2f2" height="30"><div align="center"><a href="admin_revert.asp?id=<%=rs("id")%>" title="<%=rs("uname")%>[<%=rs("add_time")%>]">回复</a></div></td>
<td bgcolor="#f2f2f2" height="30"><div align="center"><a href="?action=del&id=<%=rs("id")%>">删除</a></div></td>
<td bgcolor="#f2f2f2" height="30"><p align="center"><%=rs("add_time")%></p></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing%>

</table>

</div>

</table>
<%case "del"
Sql="delete from ZD_book where id="&request.QueryString("id")
conn.ExeCute(Sql)
Response.Write "<script>alert(""删除成功！"");location.href=""admin_jubao.asp?action=manage"";</script>"
%>
<%end select%>
　</td>
</tr>

</table>

这段代码，需要加上分页显示，求补充

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏30（财富值+成长值）

Answer 1

这个可以到网络上寻找下分页控件代码。大致是先取出所有的记录集，通过给rs分配每页的记录数【10】，记录总数，获取当前分页来判断的。
do while not rs.eof loop '这里去掉要先判断好，然后使用for循环取出当前页的记录数

rs.PageSize = 10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")'获取当前页码

if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if

if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if

rs.AbsolutePage=Page'记录当前页位置

if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if

For i=1 To x '
'''''''打印记录打印记录

next

If maxpage > 1 Then
for i = 0 to maxpage
response.write("<a href='?page="&i&"'>"&i&"</a>")'这里漂亮的分页页码得网上查找插件，我只是简单打印所有页码

next

end if