·ÖÒ³ÎÊÌâÇóÖú

ìá¡î°®Äã

ËÑË÷·ÖÒ³
shucity=request.form("shucity")
hotelname=request.form("name")
set rs=server.createobject("adodb.recordset")
sqltext="select * from hotelb where city like '%"&shucity&"%' and c_name like '%"&hotelname&"%'"
...
if not rs.eof then
rs.PageSize =5 'ÿҳ¼Ç¼ÌõÊý
result_num=rs.RecordCount '¼Ç¼×ÜÊý
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
else
result_num=0
maxpage=0
page=0
end if
if not rs.eof then
for i=1 to rs.PageSize
ÄÚÈÝÏÔʾ¡£¡£¡£
rs.movenext
if rs.EOF then Exit For
next
end If
call LastNextPage(maxpage,page,result_num)
·ÖÒ³Ò³Ãæ
Sub LastNextPage(pagecount,page,resultcount)
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table cellspacing=0 cellpadding=0 border=0>" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=right>" & vbCrLf )
' Response.Write(font_style & vbCrLf )

if page<=1 then
Response.Write ("Ê×Ò³ " & vbCrLf)
Response.Write ("ÉÏÒ»Ò³ " & vbCrLf)
else
Response.Write("<A href=" & action & "?" & temp & "Page=1>Ê×Ò³</A> " & vbCrLf)
Response.Write("<A href=" & action & "?" & temp & "Page=" & (Page-1) & ">ÉÏÒ»Ò³</A> " & vbCrLf)
end if
if page>=pagecount then
Response.Write ("ÏÂÒ»Ò³ " & vbCrLf)
Response.Write ("βҳ" & vbCrLf)
else
Response.Write("<A href=" & action & "?" & temp & "Page=" & (Page+1) & ">ÏÂÒ»Ò³</A> " & vbCrLf)
Response.Write("<A href=" & action & "?" & temp & "Page=" & pagecount & ">βҳ</A>" & vbCrLf)
end if

Response.Write(" µÚ" & "&nbsp;<INPUT TYEP=TEXT NAME=page SIZE=2 Maxlength=4 VALUE=" & page & ">&nbsp;" & "Ò³" & vbCrLf & "<INPUT type=submit value=GO>")
Response.Write(" ¹² " & pageCount & " Ò³" & vbCrLf)
Response.Write(" " & resultcount & " ÌõÐÅÏ¢" & vbCrLf)
Response.Write("</TD>" & vbCrLf )
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
µÚÒ»Ò³ÄÜÕý³£ÏÔʾµ«µÚ2Ò³¾ÍûÓÐËÑË÷Ìõ¼þÁË£¬ÅóÓÑÃÇ°ïÎÒ¿´¿´Ôõô½â¾öºÃÂð£¬ÎÒ²»ÖªµÀÔõô°ÑËÑË÷Ìõ¼þ´«µ½ÏÂÒ»Ò³£¬¸ÃÔõôд£¬Çë¸÷λ°ï°ï棡£¡ÎÒÕæµÄŪ²»³öÀ´¸ã²»³öÀ´£¡