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
比如:
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("下一页")
比如:
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>||")
如果写成一行了后便就不要用 end if了。追问
把end if去了就不能显示了
怎么改啊
追答比如搜索的字段是keyword,当点击搜索时候,keyword=request("keyword"),检索sql找到表中内容有keyword的内容,打印出来,紧接着,就要给分页加上keyword参数,例如:这是你写的Response.Write("上一页||")
,在url后面在加上参数key=request("keyword")