asp 分页代码

王朝asp·作者佚名 2006-11-24

宽屏版字体: 小|中|大|超大

使用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

End if

iStop=iStart+7

If iStop>rsPageCount Then

iStop=rsPageCount

End If

If iStop-7<iStart AND iStart>0 Then

iStart=iStop-7

End If

Dim strURL

strURL=Request.ServerVariables("script_name")

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

strURL=strURL & "&page="

Else

strURL=strURL & "?page="

End If

Dim PreviousPage,NextPage

If intCurrentPage-1>0 then

PreviousPage=intCurrentPage-1

Else

PreviousPage=1

End If

If intCurrentPage+1<rsPageCount Then

NextPage=intCurrentPage+1

Else

NextPage=rsPageCount

End If%>

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

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

</tr>

</table>

<%END SUB%>