我自己用的ASP分页函数

最新推荐文章于 2024-07-24 16:15:56 发布

mh_rock

最新推荐文章于 2024-07-24 16:15:56 发布

阅读量647

点赞数

分类专栏： ASP 文章标签： asp url javascript class

本文链接：https://blog.csdn.net/mh_rock/article/details/1888762

版权

ASP 专栏收录该内容

20 篇文章 0 订阅

订阅专栏

<%
'=======================================================================
'   函数名:FenYe(url,pageCount,recordCount,curPage,cssstyle)             *
'   作者:Rock    E_Mail:mh_rock@163.com
'   功能:分页                                                            =
'   参数:url当前页的网址;pageCount总页数;                                =
'           recordCount;总记录数;curPage当前页数; cssstyle连接的样式表   =
'   示例:Call FenYe("wangzhi.asp",rs.PageCount,rs.RecordCount,page,"class='memu2'")      =
'=======================================================================
Sub FenYe(url,pageCount,recordCount,curPage,cssstyle)
if url="" then Exit Sub
if inStr(url,"?")<>0 then
   if right(url,1)<>"?" then
    url=url&"&"
   end if
else
   url=url&"?"
end if
if pagecount<=1 then exit sub
Response.Write "共"&recordCount &"条记录  " & curPage & "/" & pageCount   & "页"
if curpage=1 then
   Response.Write "  [首页]  [上页]"
else
   Response.Write "  <a "&cssstyle&" href='"&url&"page=1'>[首页]</a>  <a "&cssstyle&" href='"&url&"page="& curPage-1 &"'>[上页]</a>"
end if
if Cint(curPage)=Cint(PageCount) then
   Response.Write "  [下页]  [尾页]"
else
   Response.Write "  <a "&cssstyle&" href='"&url&"page="& curPage+1 &"'>[下页]</a>  <a "&cssstyle&" href='"&url&"page="& pageCount &"'>[尾页]</a>"
end if
Response.Write "  跳转到 <select name='select1' size='1' onChange='javascript:window.location.replace(this.options[this.selectedIndex].value)'>"
for i=1 to pageCount
      Response.Write "<option"
      If Cint(curPage) = i Then
         Response.Write " selected "
      End If
      Response.Write " value='"&url&"page="&i&"'>第" & i & "页</option>"
     next
Response.Write "</select>"
End Sub
%>