搜索后进行的分页不解！

[cz12980]

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from MoblieQNew where lock=0"
rs.open sql,MM_conn_STRING,1,3

counts=4 '每页显示4条信息
rs.pagesize=counts
page=request.QueryString("page")
if page="" then page=1

allpage=rs.pagecount

rs.absolutepage=page
do while not rs.eof and not rs.bof
if counts>0 then
response.Write("<tr>")
%>
<td><%=rs("QNewKey")%></td><p>

<% response.Write("</tr>")
rs.movenext
counts=counts-1
else
exit do
end if
loop
%>
以上是我的分页的部分代码~主要是通过get的方式来实现的！
我这样的代码在所显示的记录中如果从数据库中直接"select * from 表"的话就能顺利！
问题是如果我是"select * from 表 where ..=.. "的话~在点击下一页的话~就会把where的东西忽略掉了！又变回是该表的所有记录进行分页。【我这里where后的值是从上一页面通过post传递过来的值】。。
想问一下如何在点击下一页的时候，显示的下一页内容是带有where ..=.. 的内容呢？？谢谢大家先！！

[cz12980]

我知道没有把搜索的内容以参数的形式带过去，也知道能通过用get的方法在把值传进去！
想的就是有没有不用get的方法把要where的内容传过去呢？用别的方法？

[cxbase]

1)把取得跳转页号的IF语句放到打开数据库之前;
2)把读取数据的DO WHILE循环语句换成For...Next试试看
For i = 1 to rs.pagesize
'过程
rs.MoveNext
If rs.Eof Then Exit For
Next

[什么都不能]

用隐藏表单传条件比较好。

[cup_505]

把where＝的内容在翻页接上传值呀，比哪说where lock=0,那在翻页链接上就要传lock=0,然后在页面取lock的值，lock=request("lock")
sql="select * from 表明 where lock="&lock

[sy_binbin]

分页的连接没把你搜索的参数带进去!

[街头小贩]

If not strKeywords = "" then
	Dim strSKArrary,strOPArrary,strJumpURL
	strSKArrary = Split(strKeywords, " ", -1, 1 )
	If strOption = "" then
		strOPArrary = "document"			
	Else
		strOPArrary = strOption
	End If 

	Select case strOPArrary
		case "document"
			strJumpURL = "support"
		case "product"
			strJumpURL = "product"
		case Else 
			strJumpURL = "service/forums"
	End  Select

	Dim j	
	for j=0 to Ubound(strSKArrary)		
			strSql = " title like '%"&trim(strSKArrary(j))&"%' or content like '%"&trim(strSKArrary(j))&"%' "
	next
	Dim strRs,strSql

		set strRs = Server.CreateObject("ADODB.Recordset")
		strSql = "SELECT title, content FROM " & strOPArrary &" WHERE" & strSql
		
		strRs.Open strSql,conn,1,1	
		'Response.write strSql
		If not strRs.eof then
			'获得当前页
			Dim CurrentPage
			If not Isempty(Request("page")) then
				CurrentPage=Cint(Request("page"))
			Else
				CurrentPage=1
			End If

			strRs.PageSize= 10
			If CurrentPage<1 Then CurrentPage=1
			If CurrentPage>strRs.PageCount Then CurrentPage=strRs.PageCount
			If not strRs.eof Then 
				strRs.AbsolutePage=CurrentPage
			End If
	
			Dim i
			i=0
			do while not strRs.eof%>
				<dl>
					<dt><%=strRs("title")%></dt>
					<dd><%=LeftB(strRs("content"),100)%></dd>
					<dd><span class="span">URL:<a href="<%=strJumpURL%>/display.asp?title=<%=strRs("title")%>" target="_blank">http://localhost/localhost/<%=strJumpURL%>/display.asp?title=<%=strRs("title")%></a></span></dd>
				</dl>
				<%
				i=i+1
				If i >= strRs.PageSize Then exit do
				strRs.movenext
			loop
		dim jumpurl
		jumpurl ="search.asp?skeywords="&strKeywords&"&soptions="&strOption
		Else%>
			<dl>
				<dt></dt>
				<dd></dd>
			</dl>
		<%End If

Else%>
	<dl>
		<dt></dt>
		<dd></dd>
	</dl>
<%End If%>					
<label style="text-align:right;"><%call showpage(jumpurl, strRs.RecordCount, strRs.PageSize, CurrentPage,false,flase,"条记录")%></label>
		<%
		strRs.close
		set strRs = nothing

		conn.close
		set conn = nothing
End Sub%>

[街头小贩]

分页函数:

'***********************************************
'函数名：PasteURL
'作  用：向地址中加入 ? 或 &
'参  数：strUrl  ----网址
'返回值：加了 ? 或 & 的网址
'***********************************************
function PasteURL(strUrl)
	if strUrl="" then
		PasteURL=""
		exit function
	end if
	'如果传入的URL末尾不是"?"，有两种情况：
	'1.无“？”，此时需加入一个“？”
	'2. 有“？”再判断有无“&”
	if InStr(strUrl,"?")<len(strUrl) then 
		if InStr(strUrl,"?")>1 then
			if InStr(strUrl,"&")<len(strUrl) then 
				PasteURL=strUrl & "&"
			else
				PasteURL=strUrl
			end if
		else
			PasteURL=strUrl & "?"
		end if
	else
		PasteURL=strUrl
	end if
end function

'***********************************************
'过程名：ShowPage
'作  用：显示“上一页 下一页”等信息
'参  数：sDesURL  ----链接地址，可以是一个文件名，也可以是一个有一些参数所URL
'       nTotalNumber ----总数量
'       nMaxPerPage  ----每页数量
'		    nCurrentPage ----当前页
'       bShowTotal   ----是否显示总数量
'       bShowCombo ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。
'       sUnit     ----计数单位
'***********************************************
sub ShowPage(sDesURL, nTotalNumber, nMaxPerPage, nCurrentPage, bShowTotal, bShowCombo, sUnit)
	dim n, i,strTemp,strUrl
	'计算页数
	if nTotalNumber mod nMaxPerPage=0 then
    	n= nTotalNumber \ nMaxPerPage
  	else
    	n= nTotalNumber \ nMaxPerPage+1
  	end if
  	'判断nCurrentPage
  	if nCurrentPage < 1 then
  		nCurrentPage = 1
  	elseif nCurrentPage > n then
  		nCurrentPage = n
  	end if
  	
  	Response.Write "<table ID='Table1' class='pagecontrol'><form name='ShowPages' method='Post' action='" & sDesURL & "' ID='Form1'><tr><td style='text-align:right;'>"
	if bShowTotal=true then 
		Response.Write "共 <b>" & nTotalNumber & "</b> " & sUnit & "  "
	end if
	'根据输入的sDesURL向它加入?或&
	strUrl=PasteURL(sDesURL)
  	if nCurrentPage<2 then
    		Response.Write "首页 上一页 "
  	else
    		Response.Write "<a href='" & strUrl & "page=1'>首页</a> "
    		Response.Write "<a href='" & strUrl & "page=" & (nCurrentPage-1) & "'>上一页</a> "
  	end if

  	if n-nCurrentPage<1 then
    		Response.Write "下一页 尾页"
  	else
    		Response.Write "<a href='" & strUrl & "page=" & (nCurrentPage+1) & "'>下一页</a> "
    		Response.Write "<a href='" & strUrl & "page=" & n & "'>尾页</a>"
  	end if
   	Response.Write " 页次：<strong><font color=red>" & nCurrentPage & "</font>/" & n & "</strong>页 "
    Response.Write " <b>" & nMaxPerPage & "</b>" & sUnit & "/页"
	if bShowCombo=True then
		Response.Write " 转到：<SELECT name='page' size='1' onchange='javascript:submit()' ID='Select1'>"   
    	for i = 1 to n   
    		Response.Write "<option value='" & i & "'"
			if cint(nCurrentPage)=cint(i) then Response.Write " selected "
			Response.Write ">第" & i & "页</option>"   
	    next
		Response.Write "</SELECT>"
	end if
	Response.Write "</td></tr></form></table>"
end sub
%>

[一把编程的菜刀]

[Quote=引用楼主 cz12980 的帖子:]
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from MoblieQNew where lock=0"
rs.open sql,MM_conn_STRING,1,3

counts=4 '每页显示4条信息
rs.pagesize=counts
page=request.QueryString("page")
if page="" then page=1

allpage=rs.pagecount

rs.absolutepage=page
do while not rs.eof and not rs.bof
if counts>0 then
response.Write(" <tr>")
%> …
[/Quote]

那是因为你的连接里没有把你搜索的内容以参数的形式带过去

[lsfcoder]

分页的时候你没有把参数带进出