feng_sundy 的专栏

站的高一点, 看的远一点, 把握全局,掌控未来

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

阅读更多
文章标签: asp class
个人分类: ASP / .NET WEB 开发
上一篇IIS 错误代码大汇总
下一篇[转载] 起泡法按照时间排列文件(FSO)
想对作者说点什么? 我来说一句

asp mysql分页(超完美版本)

2008年10月14日 3KB 下载

asp分页函数-简单实用的分页

2012年07月19日 2KB 下载

没有更多推荐了,返回首页

关闭
关闭