Question

asp页面设置搜索，搜索后对显示内容分页，只能显示第一页，点击下一页无内容 代码：

Set rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,conn,1,1

Response.Write "<BR><B> 你搜索的是: </B> " & QueryString

Rs.PageSize=20
page=CInt(Request.QueryString("page"))
IF page<1or page>Rs.PageCount THEN
page=1
END IF

FOR i=1 TO 20
IF rs.eof THEN EXIT FOR

Response.Write("<tr>")
Response.Write("<td>"&rs("序号")&"</td>")
Response.Write("<td>"&rs("牌号")&"</td>")
Response.Write("<td>"&rs("室号")&"</td>")
Response.Write("<td>"&rs("建筑面积")&"</td>")
Response.Write("<td>"&rs("单价")&"</td>")
Response.Write("<td>"&rs("房价总金额")&"</td>")
Response.Write("</tr>")
Rs.Movenext

Next
Response.Write("共"&Rs.RecordCount&"条记录，每页显示"&Rs.PageSize&"条<br>")
Response.Write("<a href='1doquery.asp?page=1'>首页</a>||")

Response.Write("<a href='1doquery.asp?page="&page-1&"'>上一页</a>||")
Response.Write("当前是第"&page&"页")
Response.Write("<a href='1doquery.asp?page="&page+1&"'>下一页</a>||")
Response.Write("<a href='1doquery.asp?page="&rs.pagecount&"'>尾页</a>||")
Rs.close
Set rs=nothing

end if

Answer 1

点下一页时，要把原来的搜索关键词传递过去。
比如：
QueryString=Request("QueryString")
Response.Write("<a href='1doquery.asp?page="&page-1&"&QueryString
="&QueryString&"'>上一页</a>||")
Response.Write("当前是第"&page&"页")
Response.Write("<a href='1doquery.asp?page="&page+1&"&QueryString
="&QueryString&"'>下一页</a>||")
Response.Write("<a href='1doquery.asp?page="&rs.pagecount&"&QueryString
="&QueryString&"'>尾页</a>||")

追问

还是不行啊

追答

那段代码是根据你贴出来年举例。
思路就是：
在点“上一页”、“下一页”、“尾页”的链接后面把搜索的关键词参数传递过去。

比如：
Response.Write("下一页")

Answer 2

点下一页时，要把原来的搜索关键词传递过去。
比如：
QueryString=Request("QueryString")
Response.Write("<a href='1doquery.asp?page="&page-1&QueryString="&QueryString
="&QueryString&"'>上一页</a>||")
Response.Write("当前是第"&page&"页")
Response.Write("<a href='1doquery.asp?page="&page+1&QueryString="&QueryString
="&QueryString&"'>下一页</a>||")
Response.Write("<a href='1doquery.asp?page="&rs.pagecount&QueryString="&QueryString
="&QueryString&"'>尾页</a>||")

Answer 3

if .... then ....

如果写成一行了后便就不要用 end if了。

追问

把end if去了就不能显示了

Answer 4

翻页过后没搜索参数了

追问

怎么改啊

追答

比如搜索的字段是keyword，当点击搜索时候，keyword=request("keyword"),检索sql找到表中内容有keyword的内容，打印出来，紧接着，就要给分页加上keyword参数，例如:这是你写的Response.Write("上一页||")
，在url后面在加上参数key=request("keyword")