Question

asp分页代码分页点击不出来，急求！！！

<!--#include file="top.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from cd where tid="&Request.QueryString("tid")
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
Dim intPage
If Request.QueryString("varPage")="" Then
intPage=1
Else
intPage=CInt(Request.QueryString("varPage"))
End If
rs.PageSize=5
rs.AbsolutePage=intPage
Response.Write "<table border='1' width='1003' align='center'><tr bgcolor='#E0E0E0'>"
Response.Write "<th>姓名</th><th>电话</th><th>物品</th> <th>添加日期</th></tr>"
Dim I
For I=1 To rs.PageSize
If rs.Eof Then Exit For
Response.Write "<tr>"
Response.Write "<td>" & rs("xm") & "</td>"
Response.Write "<td>" & rs("tel") & "</td>"
Response.Write "<td>" & rs("wp") & "</td>"
Response.Write "<td>" & rs("arttime") & "</td>"
Response.Write "</tr>"
rs.MoveNext
Next
Response.Write "</table>"
Response.Write "<p><a href='cs.asp?varPage=1'>第1页</a> "
If intPage>1 Then
Response.Write "<a href='cs.asp?varPage=" & (intPage-1) & "'>上一页</a> "
Else
Response.Write "上一页 "
End If
If intPage<rs.PageCount Then
Response.Write "<a href='cs.asp?varPage=" & (intPage+1) & "'>下一页</a> "
Else
Response.Write "下一页 "
End If
Response.Write "<a href='cs.asp?varPage=" & rs.PageCount & "'>最后页</a> "
Else
Response.Write "该记录集为空"
End If
%>
<!--#include file="bottom.asp"-->

Answer 1

1
tid=Request.QueryString("tid")
sql="select * from cd where tid="&tid
2
分页的连接全部加上"tid="&tid，如下
Response.Write "<a href='cs.asp?varPage=" & (intPage+1) & "tid="&tid&"'>下一页</a> "

Answer 2

你的sql部分有问题，
sql="select * from cd where tid="&Request.QueryString("tid")&""

追问

改完还是不对啊？

追答

我在我电脑都试过了啊，

dim tid:tid=Request.QueryString("tid")

sql="select * from cd where tid="&tid&""

 

如果还出不来，先确定你的tid值在cd表，到底有没有

追问

能给个qq号吗，在线问下，有点着急

追答

我QQ24小时挂在公司的，只有手机偶尔上，没法远程
998341