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