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