asp 分頁代碼

使用asp作東西已經比較多了，但是一直沒有注意這個東西，今天就花了一點時間寫了一些，友善以後使用。

<%SUB ListPageMenu(objRs,intrsPageSize)

 Dim rsTotal,rsPageSize,rsPageCount

 If NOT ISObject(objRs) Then Exit Sub:End If

 If NOT IsNumeric(rsPageSize) Then Exit Sub:End IF

 If objRs.Eof And objRs.Bof Then EXIT SUB:END IF

 objRs.PageSize=intrsPageSize

 rsTotal=objRs.RecordCount

 rsPageCount=rs.PageCount

 If rsTotal<0 AND (NOT (objRs.eof AND objrs.Bof))Then

  rsTotal=0

  DO WHILE NOT objRs.Eof

   rsTotal=rsTotal+1

   objRs.MoveNext

  LOOP

 End If

 intCurrentPage=Trim(Request.QueryString("page")) 'Get the value of intCurrentPage

 If intCurrentPage="" OR (NOT IsNumeric(intCurrentPage)) Then

  intCurrentPage=1

 End if

 Dim iStart,iStop

 iStart=1:iStop=1

 If Cint(intCurrentPage-3)>0 Then

  iStart=intCurrentPage-3

 Else

  iStart=1  

 iStop=iStart+7

 If iStop>rsPageCount Then

  iStop=rsPageCount

 If iStop-7<iStart AND iStart>0 Then

  iStart=iStop-7

 Dim strURL

 strURL=Request.ServerVariables("script_name")

 If Instr(strURL,"?")>0 Then

  strURL=strURL & "&page="

  strURL=strURL & "?page="

 Dim PreviousPage,NextPage

 If intCurrentPage-1>0 then

  PreviousPage=intCurrentPage-1

  PreviousPage=1

 If intCurrentPage+1<rsPageCount Then

  NextPage=intCurrentPage+1

  NextPage=rsPageCount

 End If%>

 <table width="98%" border="0" cellspacing="0" cellpadding="0">

   <tr>

  <td><a href="<%=strURL%>1" style="text-decoration:none"><font face="Webdings">9</font></a></td>

  <td><a href="<%=strURL & PreviousPage%>" style="text-decoration:none"><font face="Webdings">7</font></a></td>

  <td>

  <%Dim i

  For i=iStart to iStop Step 1%>

  <td><%response.write("<a href='" & strURL & i & "' style='text-decoration:none'>"& i &"</a>")%></td>

  <%Next%>

  </td>

  <td><a href="<%=strURL & NextPage %>" style="text-decoration:none"><font face="Webdings">8</font></a></td>

  <td><a href="<%=strURL & rsPageCount%>" style="text-decoration:none"><font face="Webdings">:</font></a></td>

  <td> </td>

   </tr>

 </table>

<%END SUB%>