ASP的分页函数

'函数名FenYie,功能：实现分页显示

'参数说明：

'pCount：总页数

'pNowPage：当前页

'pRq：要传的Request.QueryString 的内容

'pClass：链接所要用的样式表

'示例：

'FenYie(25,4,"fromid=14","class1")

'=================================================

Sub FenYie(pCount,pNowPage,pRq,pClass)

response.write "分 " & PCount & " 页 "

if pNowPage=0 then pNowPage=1

pRq="&"+pRq

if pCount<10 then

For i=1 to pCount

If i=PNowPage Then

response.write " " &i& " "

else

response.write " <a class='"&pClass&"' href='?page="&i&pRq&"'>"&i&"</a> "

End if

Next

else

ipp=int(pNowPage/10) *10+1

ipe=ipp+9

If ipp>10 Then

response.write" <a class='"&pClass&"' href='?page="&ipp-10&pRq&"'>"&"上10页"&"</a> "

End if

if ipe>pCount then ipe=pCount

For i=ipp to ipe

If i=PNowPage Then

response.write " " &i& " "

else

response.write " <a class='"&pClass&"' href='?page="&i&pRq&"'>"&i&"</a> "

End if

Next

If ipe<pCount Then

response.write" <a class='"&pClass&"' href='?page="&ipp+10&pRq&"'>"&"下10页"&"</a> "

End if

end if

End Sub