Question

ASP分页问题,这个页面把全部数据都显示到一页上，改怎么改代码

<%
tur=request("tur")
name=request("name")
set rst=server.createobject("adodb.recordset")
sql="select * from hlink where turi="&tur&" order by id desc"
rst.open sql,conn,1,3
j=Rst.RecordCount%>

<div align="center">
<table border="0" width="960" cellspacing="0" cellpadding="0" dir="rtl">
<tr>
<td align="center" colspan="2" height="24" bgcolor="#469603"><a href="h_link_tur_korsitix.asp?tur=<%=rs("id")%>&name=<%=rs("turname")%>" target="_blank">
<font color="#FFFFFF">按时间排序
<td colspan="4" align="center" bgcolor="#99FFFF" width="200" height="24">有<%=j%>位网友</td>
</tr>
<%
for u=1 to 1000
%>
<tr>
<td align="center" width="125"><%=rst("wn")%></td><%rst.movenext%>
<td align="center" width="125"><%=rst("wn")%></td><%rst.movenext%>
<td align="center" width="125"><%=rst("wn")%></td><%rst.movenext%>
<td align="center" width="125"><%=rst("wn")%></td><%rst.movenext%>
<td align="center" width="125"><%=rst("wn")%></td><%rst.movenext%>
<td align="center" width="125"><%=rst("wn")%></td><%rst.movenext%>
</tr>
<%if rst.eof then exit for
next%>
</table>

Answer 1

程序你可以根据自己的实际情况来写，也可以用现成的类，我写了一个这样的程序，但是不是很好，有很多的BUG，我也就不拿出来出丑了~~
这个是我自己写的，程序是强行在你指定的地方分页，我正在考虑怎样才能只能的分页
<%
'//===================================================
' 海沙原创文章分页类v1.0
' 作者 海沙
' 说明 此分程序为海沙原创，使用时请注明作者。
' 本程序为原创，难免存在bug，还望指出。
' 程序修改后请发我一份
'//===================================================
num=10'设置每页显示的字数
content="测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试1测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试2测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试3测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试"
if not isempty(request("page")) then'获取当前页数
page=cint(request("page"))
if page>(len(content)/num)+1 then
page=(len(content)/num)+1
end if
else
page=1
end if
page=page-1
textcontent=mid(content,num*page+1,num)'提取当前页内容
response.Write textcontent&"<br>"
for i=1 to (len(content)/num)+1
response.Write("<a href=a.asp?page="&i&">第"&i&"页</a>")
next
response.Write len(textcontent)%>

Answer 2

<%
tur=request("tur")
name=request("name")
set rst=server.createobject("adodb.recordset")
sql="select * from hlink where turi="&tur&" order by id desc"
rst.open sql,conn,1,3
j=Rst.RecordCount%>

<div align="center">
   <table border="0" width="960" cellspacing="0" cellpadding="0" dir="rtl">
    <tr>
     <td align="center" colspan="2" height="24" bgcolor="#469603"><a href="h_link_tur_korsitix.asp?tur=<%=rs("id")%>&name=<%=rs("turname")%>" target="_blank">
     <font color="#FFFFFF">按时间排序
     <td colspan="4" align="center" bgcolor="#99FFFF" width="200" height="24">有<%=j%>位网友</td>
    </tr>
    <%do while not rst.eof and not rst.bof  %>
    <tr>
     <td align="center" width="125"><%=rst("wn")%></td><%rst.movenext%>
     <td align="center" width="125"><%=rst("wn")%></td><%rst.movenext%>
     <td align="center" width="125"><%=rst("wn")%></td><%rst.movenext%>
     <td align="center" width="125"><%=rst("wn")%></td><%rst.movenext%>
     <td align="center" width="125"><%=rst("wn")%></td><%rst.movenext%>
     <td align="center" width="125"><%=rst("wn")%></td><%rst.movenext%>
    </tr>
    <%rst.movenext
        loop%>
   </table>

Answer 3

<%=rs("id")%>&name=<%=rs("turname")%>
这些rs("") 哪里来的
?

应该只能有rst("") 才对

Answer 4

for u=1 to 1000
把1000改成 j