网页功能: 加入收藏 设为首页 网站搜索  
ASP的分页函数
发表日期:2002-09-24作者:李立华[原创] 出处:  

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

'函数名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的分页函数
本类热点文章
  ASP获得网卡的MAC地址
  默认点击下载pdf等文件而不是在浏览器中..
  纯ASP结合VML生成完美图-折线图
  利用ASP实现事务处理的方法
  ASP的分页函数
  ASP的分页函数
  酷月历(公、农历)
  酷月历(公、农历)
  ASP操作Excel技术总结
  ASP中取得图片宽度和高度的类
  数据库连接函数大全
  ASP连接11种数据库语法总结
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2021 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00421