'函数名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