set rshotel=server.createobject("adodb.recordset")
sqltext="select * from hotelb where 市 like '%"&shucity&"%'"
if request.form("en")<>1 then
sqltext="select * from hotelb where 市 like '%"&shucity&"%' and 宾馆 like '%"&hotelname&"%'"
else
sqltext="select * from hotelb where 市 like '%"&shucity&"%' and 英文名 like '%"&hotelname&"%'"
end if
if request.form("cotytype")<>""then
sqltext="select * from hotelb where 所属地段 like '%"&cotytype&"%'"
end if
if Star="" then
else
sqltext=sqltext &"and ( "
if Star=0 then
sqltext=sqltext &" 星级='无标准' or"
end if
if Star=1 then
sqltext=sqltext &" 星级='一星级' or 星级='准一星级' or"
end if
if Star=2 then
sqltext=sqltext &" 星级='二星级' or 星级='准二星级' or"
end if
if Star=3 then
sqltext=sqltext &" 星级='三星级' or 星级='准三星级' or"
end if
if Star=4 then
sqltext=sqltext &" 星级='四星级' or 星级='准四星级' or"
end if
if Star=5 then
sqltext=sqltext &" 星级='五星级' or 星级='准五星级' or"
end if
sqltext=sqltext & " 星级='其他')"
end if
sqltext=sqltext & "order by id desc"
rshotel.open sqltext,conn,1,2
dim MaxPerPage
MaxPerPage=10
dim text,checkpage
text="0123456789"
rshotel.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not rshotel.eof Then rshotel.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
'call showpages
call list
If rshotel.recordcount > MaxPerPage then
end if
'显示帖子的子程序
Sub list() %>
<%
if not rshotel.eof then
i=0
do while not rshotel.eof
c_name=rshotel("宾馆")
set rsroom=server.createobject("adodb.recordset")
sqltext="select top 3 * from roomb where 宾馆='"&c_name&"'"
if jiage="all" then
else
sqltext=sqltext & " and ( "
if jiage<>"" then
sqltext=sqltext & jiage &" or "
end if
sqltext=sqltext & " breakfast='其他')"
end if
sqltext=sqltext & " order by id asc"
rsroom.open sqltext,conn
%>
<%if not rsroom.eof then
do while not rsroom.eof%>
<%
rsroom.movenext
loop
rsroom.close
end if%>
<%
i=i+1
if i >= MaxPerpage then exit do
rshotel.movenext
loop
end if
%>
<%
Response.write "<strong><font color='#000000'>-> 全部-</font>"
Response.write "共</font>" & "<font color=#FF0000>" & Cstr(rshotel.RecordCount) & "</font>" & "<font color='#000000'>个会员</font></strong> "
Response.write "<strong><font color='#000000'>第</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) & "</font>" & "<font color='#000000'>/" & Cstr(rshotel.pagecount) & "</font></strong> "
If currentpage > 1 Then
response.write "<strong><a href='?&page="+cstr(1)+"&Star="&Star&"&city="&request("city")&"&starttime="&StartDate&"&deptime="&DepDate&"&jiage="&jiage&"'><font color='#000000'>首页</font></a><font color='#ffffff'> </font></strong>"
Response.write "<strong><a href='?page="+Cstr(currentpage-1)+"&Star="&Star&"&city="&request("city")&"&starttime="&StartDate&"&deptime="&DepDate&"&jiage="&jiage&"'><font color='#000000'>上一页</font></a><font color='#ffffff'> </font></strong>"
Else
Response.write "<strong><font color='#000000'>上一页 </font></strong>"
End if
If currentpage < rshotel.PageCount Then
Response.write "<strong><a href='?page="+Cstr(currentPage+1)+"&Star="&Star&"&city="&request("city")&"&starttime="&StartDate&"&deptime="&DepDate&"&jiage="&jiage&"'><font color='#000000'>下一页</font></a><font color='#ffffff'> </font>"
Response.write "<a href='?page="+Cstr(rshotel.PageCount)+"&Star="&Star&"&city="&request("city")&"&starttime="&StartDate&"&deptime="&DepDate&"&jiage="&jiage&"'><font color='#000000'>尾页</font></a></strong> "
Else
Response.write ""
Response.write "<strong><font color='#000000'>下一页</font></strong> "
End if
'response.write "</td><td align='right'>"
'response.write "<font color='#000000' >转到：</font><input type='text' name='page' size=4 maxlength=4 class=smallInput value="&Currentpage&"> "
'response.write "<input class=buttonface type='submit' value='Go' name='cndok'> "
%>
<%
End sub
rshotel.close
conn.close
%>
帮我看看哪里出错,为什么我在点击下一页时出现空白?
