一個通用的ASP查詢分頁

<%
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("</TD>" & vbCrLf )    
 Response.Write("</TR></form>" & vbCrLf )  
 Response.Write("</table>" & vbCrLf )  
%>

 

<%
if not rs.eof then
                          rs.PageSize =20
       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
       response.write "<tr> <td>系統提示:沒有找到任何可用數據.</td><tr>"
      end if      
      
%>

<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table1">
  <tr>
   <td width="255">
   <p align="center">共有<%=result_num%>條記錄&nbsp;&nbsp;共<%=maxpage%>頁&nbsp;&nbsp;當前第<%=page%>頁</td>
   <td align="center"><% call LastNextPage(maxpage,page,result_num) %></td>  </tr>
 </table>