请教高手ASP网页分页的问题！！
把表中的记录显示在网页上，要求分页显示。
用dreamwave MX 和ASP实现。
不知各位可有这个经验或示例？？
问题点数：0、回复次数：3Top
1 楼zazcn（）回复于 2003-09-01 11:13:16 得分 0
<%
sql="select * from 表名"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
page=Request.QueryString("page")
if page<=1 or page="" then page=1
rs.PageSize=10 每业显示数量
for i=1 to rs.PageSize *( page-1)
if not rs.EOF then
rs.MoveNext
end if
next%>
其他页（当前页<%=page%>）：
<%
for i=1 to rs.PageCount
Response.Write "<a href=本文件名.asp?Page=" & i & "><font color=000000>" & i & "</font></a> "
next
%>
<%=rs("字段名")%>
<%
rs.movenext
end if
next
rs.close
set rs=nothing
%>Top
2 楼beachshi（师师）回复于 2003-09-01 14:11:09 得分 0
谢谢！！
：）Top
3 楼beachshi（师师）回复于 2003-09-01 15:11:47 得分 0
真是惭愧 没能完成分页
我把我的代码写下您看如何添加代码实现分页
<%@LANGUAGE="VBSCRIPT"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<body>
<table>
<tr >
<td width="10%"> <div align="center">首 页</div></td>
<td width="10%"> <div align="center">前一页</div></td>
<td width="10%"> <div align="center">后一页</div></td>
<td width="10%"> <div align="center">末 页</div></td>
<td ><div align="center"></div></td>
<td width="40%"> <div align="center">项目：-- 共条记录</div></td>
</tr>
</table>
<%
set cnn=server.CreateObject("adodb.connection")
set cmd=server.CreateObject("adodb.command")
set rst=server.CreateObject("adodb.recordset")
cnn.open "driver=sql server;server=ss;uid=sa;pwd=761229;database=gxgl"
cnn.cursorlocation=3
cmd.activeconnection=cnn
cmd.commandtype=1
cmd.commandtext="select cpid,bxsj,lxdh,bxdz,bxnr,lb,xz,bxr,lrr from gxglmain order by cpid desc"
set rst=cmd.execute
%>
<% if rst.recordcount=0 then %>
<font color="#FF6666">目前无记录！！</font>
<% else %>
<tr >
<td > <table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr bgcolor="#66CCCC">
<td width="10%"> <div align="center"><font color="#0000FF">传票号</font></div></td>
<td width="16%"> <div align="center"><font color="#0000FF">报修时间</font></div></td>
<td width="10%"> <div align="center"><font color="#0000FF">联系电话</font></div></td>
<td width="19%"> <div align="center"><font color="#0000FF">报修地址</font></div></td>
<td width="14%"><div align="center"><font color="#0000FF">报修内容</font></div></td>
<td width="6%"><div align="center"><font color="#0000FF">类别</font></div></td>
<td width="6%"><div align="center"><font color="#0000FF">性质</font></div></td>
<td width="10%"><div align="center"><font color="#0000FF">报修人</font></div></td>
<td width="10%"><div align="center"><font color="#0000FF">录入人</font></div></td>
</tr>
<%
do while not rst.eof %>
<tr >
<% for i=0 to 8 %>
<%
if i=3 then
%>
<td bgcolor="#f7efde" align="center" ><a href="gxinputother.asp?cpid=<%=rst(0)%>"><% =rst(i) %></a></td>
<% else %>
<td bgcolor="f7efde" align="center"><font color="#0000">
<% =rst(i)%>
</font></td>
<% end if %>
<%
next
%>
</tr>
<%
rst.movenext
loop
rst.close
%>
</table>
<% end if %>
</td>
</tr>
</table>
</body>
</html>Top
