[求助]分页显示问题！
我做了一个分页程序，显示的时候只显示一页，别的页面现实不出来，可以点击，点击的时候下边的提示也对，开始就是不跳到对应的页面，这是怎么会师啊？
2007-10-17 15:02
2007-10-17 15:12
<body topmargin="0">
<%
tz_lanmu=request.QueryString("id")
tz_zhuti=request.QueryString("did")
'zt_fname=session("u_name")
'zt_lanmu=request.QueryString("id")
set trs=server.CreateObject("adodb.recordset")
sql="select * from lanmu where l_id="&tz_lanmu&" order by l_id"
trs.open sql,conn,1,1
%>
<img src="image/2.gif" width="956" height="280" />
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="152"><a href="lanmu.asp">返回论坛首页</a></td>
<td width="248">当前位置：<%=trs("l_title")%>
</td>
</tr>
</table>
<%
set urs=server.CreateObject("adodb.recordset")
sql="select * from user "
urs.open sql,conn,1,1
%>
<%
page=request.QueryString("page")
if page="" then page=1 end if
pages=6
i=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from tiezi where tz_lanmu="&tz_lanmu&" and tz_zhuti="&tz_zhuti,conn,1,1
rs.pagesize=pages
if not (rs.eof or rs.bof) then
maxpagecount=rs.pagecount
rs.absolutepage=page
rcount=rs.recordcount
pagestart=page-5
pageend=page+5
if pagestart<0 then pagestart=1 end if
if pageend>maxpagecount then pageend=maxpagecount end if
do while not rs.eof and i<rs.pagesize
do while not urs.eof and i<rs.pagesize
%>
<hr width="80%" color="#FF0033"/>
<div align="center">
<table width="700" height="160" border="1" cellpadding="0" cellspacing="0" bordercolor="#FF0000">
<tr>
<td width="200" rowspan="4" valign="middle"><img src="face/<%=urs("u_face")%>.gif" /><br />姓名:<%=urs("u_name")%><br />来自:<%=urs("u_adress")%></td>
</tr>
<tr>
<td width="500" height="30"><%=rs("tz_date")%></td>
</tr>
<tr>
<td colspan="2" valign="top" height="130"><%=rs("tz_content")%></td>
</tr>
</table>
</div>
<p>
<%
urs.movenext()
i=i+1
loop
urs.close
set urs=nothing
rs.movenext()
i=i+1
loop
rs.close
set rs=nothing
else
%>
</table>
</p>
<table bordercolor="#FF0000" border="1" cellspacing="0" align="center">
<tr>
<td>暂时还没有任何栏目！</td>
</tr>
</table>
<%
end if
%>
<table align="center">
<tr>
<td><a href="?id=<%=tz_lanmu%>&did=<%=tz_zhuti%>&page=1"><font face="webdings">7</font></a>
<%
for i=pagestart to pageend
if i=0 then i=1 end if
response.Write(" <a href=""?id="&tz_lanmu&"&did="&tz_zhuti&"&page="&i&""">"&i&"</a> ")
next
%>
<a href="?id=<%=tz_lanmu%>&did=<%=tz_zhuti%>&page=<%=maxpagecount%>"><font face="webdings">8</font></a>
<%=page%>/<%=maxpagecount%>页；每页<%=pages%>条；共<%=rcount%>条
</td>
</tr>
</table>
<form id="form1" name="form1" method="post" action="tiezicg.asp">
<input type="hidden" name="tz_lanmu" value="<%=tz_lanmu%>" />
<input type="hidden" name="tz_zhuti" value="<%=tz_zhuti%>" />
<div align="center">
<table width="600" height="220" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="600" height="60" align="left">快速回复：</td>
</tr>
<tr>
<td width="600" height="100"><label>
<textarea name="content" cols="100" rows="12" wrap="hard"></textarea>
</label></td>
</tr>
<tr>
<td width="600" height="60"><label>
<input type="submit" name="Submit" value="回复" />
<input type="reset" name="Submit2" value="清空" />
</label></td>
</tr>
</table>
</div>
</form>
<table width="956" height="200">
<tr>
<td><hr width="956" color="#FF0000"/>
</td>
</tr>
<tr>
<td align="center" valign="top">©本网站版权归威龙嘉少个人所有<br />
地址：信阳师范学院计算机科学系
</td>
</tr>
</table>
</body>
2007-10-17 17:10
2007-10-17 17:49
2007-10-17 17:53
2007-10-17 18:48
