一个通用的ASP查询分页

来源：互联网发布：对网络表情包的看法编辑：程序博客网时间：2024/06/07 09:40

<%
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

%>