翻页问题.急

<%

dim rssql2,PageSize,RowCount,TotalPages,PageNo,Position,PageBegin,PageEnd


set conn = server.CreateObject( "ADODB.connection ")
set rs= server.CreateObject( "ADODB.RecordSet ")
conn.open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "&server.MapPath( "zhongzhong.asp "))

fwlb = Trim(Request( "fwlb "))
ld = Trim(Request( "ld "))
hx = Trim(Request( "hx "))
fj = Trim(Request( "fj "))
qy = Trim(Request( "qy "))

s = " "
If fwlb <> " " Then
s = s & " AND fwlb like '% " & fwlb & "% ' "
End If
If ld <> " " Then
s = s & " AND ld like '% " & ld & "% ' "
End If
If hx <> " " Then
s = s & " AND hx like '% " & hx & "% ' "
End If
If fj <> " " Then
s = s & " AND fj = ' " & fj & " ' "
End If
If qy <> " " Then
s = s & " AND qy like '% " & qy & "% ' "
End If

rssql2 = "SELECT * FROM house WHERE sfsh= '是 ' and 1=1 " & s



rs.open rssql2,conn,3,3




PageSize=20


PageSize=20

If rs.RecordCount=0 then

%>





<%

else

rs.PageSize = Cint(PageSize)

TotalPages=rs.PageCount

PageNo=Request.QueryString( "PageNo ")

if PageNo= " " or PageNo <1 Then

PageNo = 1

end if

rs.AbsolutePage = PageNo

Position=rs.PageSize*PageNo

PageBegin=Position-rs.PageSize+1

if Position <rs.RecordCount then

PageEnd=Position

else

PageEnd= rs.RecordCount

end if

%>

<TABLE WIDTH=529 BORDER=0 CELLPADDING=1 CELLSPACING=1 style= 'font-size:9pt '>



<%

Response.Write "页 "& PageNo & " / "& TotalPages & " |记录 "& PageBegin & " - " & PageEnd & " / " &rs.RecordCount

%>

<TR bgcolor=#003366 height=20px>
<tr >
<td width= "59 " > 类别 </td>

<td width= "87 " > 区域 </td>
<td width= "73 "> 路段 </td>
<td width= "73 " > 户型 </td>
<td width= "73 " > 价位 </td>
<td width= "145 " > 查看详情 </td>
</tr>

</TR>


<%

RowCount = rs.PageSize

dim color1,color2

color1= "#dddddd "

color2= "#eeeeee "


Do While Not rs.EOF and RowCount > 0

Response.Write " <TR height=20px bgcolor= "

%>

<%

if RowCount mod 2=0 then:response.write color1 else:response.write color2

%>

<%

Response.Write "> "

%>

<td > <%=rs( "fwlb ")%> </td>
<td> <%=rs( "qy ")%> </td>
<td> <%=left(rs( "ld "),8)%> </td>
<td> <%=rs( "hx ")%> </td>
<td> <%=rs( "fj ")%> </td>
<td> <a href=fwxx.asp?id= <%=trim(rs( "id "))%> class= "linkone "> 查看详情 </a> </td>
</tr>


</TR>

<%

RowCount = RowCount - 1

rs.MoveNext

Loop

conn.Close

set rs = nothing

set conn = nothing

%>




<%

For i=1 to TotalPages

if CInt(PageNo) = CInt(i) then

response.write "[ "&i& "] "

else

response.write "&nbsp <a href=qtqk.asp?PageNo= "&i& "> "&i& " </a> &nbsp "

end if

Next

%>


</TABLE>

<%

End if

%>
</table>
查询的时候可以实现!我搜索全部的时候翻页可以不出错!可是当我选择其中一个条件后第一页显示正确,可是点第二页的时候就会出错!高手们帮帮忙!

[解决办法]
下面的是动网的翻页代码~!

楼主可以参考一下~!

<%
Dim Searchstr
Searchstr = "?userSearch= " & Request( "userSearch ") & "&username= " & Request( "username ") & "&useremail= " & Request( "useremail ") & "&homepage= " & Request( "homepage ") & "&oicq= " & Request( "oicq ") & "&icq= " & Request( "icq ") & "&msn= " & Request( "msn ") & "&lastip= " & Request( "lastip ") & "&usertitle= " & Request( "usertitle ") & "&sign= " & Request( "sign ") & "&userclass= " & Request( "userclass ") & "&usergroups= " & Request( "usergroups ") & "&action= " & Request( "action ") & "&usergroupid= " & Request( "usergroupid ") & "&loginR= " & Request( "loginR ") & "&loginT= " & Request( "loginT ") & "&vanishR= " & Request( "vanishR ") & "&vanishT= " & Request( "vanishT ") & "&regR= " & Request( "regR ") & "&regT= " & Request( "regT ") & "&artcleR= " & Request( "artcleR ") & "&artcleT= " & Request( "artcleT ") & "&searchmax= " & Request( "searchmax ") & "&UVipStarTime= " & Request( "UVipStarTime ") & "&UVipStarTime_value= " & Request( "UVipStarTime_value ") & "&UVipEndTime= " & Request( "UVipEndTime ") & "&UVipEndTime_value= " & Request( "UVipEndTime_value ")

if currentpage > 4 then
response.write " <a href= " " "&Searchstr& "&page=1 " "> [1] </a> ... "
end if
if Pcount> currentpage+3 then
endpage=currentpage+3
else
endpage=Pcount
end if
for i=currentpage-3 to endpage
if not i <1 then
if i = clng(currentpage) then
response.write " <font color=red> [ "&i& "] </font> "
else
response.write " <a href= " " "&Searchstr& "&page= "&i& " " "> [ "&i& "] </a> "
end if
end if
next
if currentpage+3 < Pcount then
response.write "... <a href= " " "&Searchstr& "&page= "&Pcount& " " "> [ "&Pcount& "] </a> "
end if
%>
[解决办法]
在你点第二页的时候页面刷新重新提交,搜过条件已改变
[解决办法]
up
[解决办法]
response.write "&nbsp <a href=qtqk.asp?PageNo= "&i& "> "&i& " </a> &nbsp "
在这一句要加上 fwlb lb hx fj qy 参数....