口工漫画男扮女装:关于ASP的问题,高手请帮忙,如果有一页没问题,如果有多页,一点击页面连接就会出现以下问题

"
Script error detected at line 458.
Source line: objRS.AbsolutePage = PageNo
Description: BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
"
以下是我写的查寻代码
'price1～7分别为不同等级的价格
<%
province=trim(request("province"))
city=trim(request("city"))
if star="不限" then
star=""
end if
if star1="不限" then
star1="不限"
end if
title=trim(Request.form("title"))
biaozi=trim(Request.form("biaozi"))
price=trim(Request.form("price"))
if price="不限" then
price1="10"
price2="30000"
end if
if price="RMB 250以下" then
price1="10"
price2="250"
end if
if price="RMB 250-400" then
price1="251"
price2="400"
end if
if price="RMB 400-600" then
price1="401"
price2="600"
end if
if price="RMB 600-800" then
price1="601"
price2="800"
end if
if price="RMB 800以上" then
price1="801"
price2="30000"
end if
price1=cint(price1)
price2=cint(price2)
if Trim(Request.QueryString("page"))<>"" then
star1=Trim(Request.QueryString("star"))
province=trim(request("province"))
star=Trim(Request.QueryString("star"))
city=Trim(Request.QueryString("city"))
title=Trim(Request.QueryString("title"))
biaozi=Trim(Request.QueryString("biaozi"))
price1=Trim(Request.QueryString("price1"))
price2=Trim(Request.QueryString("price2"))
end if
%>
<%
strSQL="select * from News where ((price1>="&price1&" and price1<="&price2&" ) or (price2>="&price1&" and price2<="&price2&" ) or (price3>="&price1&" and price3<="&price2&" ) or (price4>="&price1&" and price4<="&price2&" ) or (price5>="&price1&" and price5<="&price2&" ) or (price6>="&price1&" and price6<="&price2&" ) or (price7>="&price1&" and price7<="&price2&" )) and city like '"&city&"' and star like '%"&star&"%' and title like '%"&title&"%' and content like '%"&biaozi&"%' order by click DESC"

set objRS=server.createobject("adodb.recordset")
objRS.open strSQL,conn,3,1
%>
下面是分页显示代码
<% Sub ShowPage(objRS, PageNo)
objRS.AbsolutePage = PageNo
For I = 1 To objRS.PageSize
%>
........................
<%
objRS.MoveNext
If objRS.EOF Then Exit For
Next
End Sub
%>
下面是分页代码
<%
objRS.PageSize = 10 PageNo = Request("PageNo")
Response.Write "["
For I = 1 To objRS.PageCount
If I = CInt(PageNo) Then
Response.Write I & " | "
Else
%>
<A HREF='search.asp?page=<%=I%>&city=<%=cityy%>&price1=<%=price1%>&price2=<%=price2%>&star=<%=star%>&title=<%=title%>&biaozi=<%=biaozi%>'><%=I%> </A>
<%
End If
Next
Response.Write "]<HR>"
%>
<%
If PageNo <> "" Then
ShowPage objRS, PageNo
Else
ShowPage objRS, 1
End If
objRS.Close
set objRS=nothing
%>