ShowPage 显示“上一页 下一页”等信息的封装代码

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了ShowPage 显示“上一页 下一页”等信息的封装代码，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2326字，纯文字阅读大概需要4分钟。

内容图文

'**************************************************
'函数名：ShowPage
'作  用：显示“上一页 下一页”等信息
'参  数：sFileName  ----链接地址
'       TotalNumber ----总数量
'       MaxPerPage  ----每页数量
'       ShowTotal   ----是否显示总数量
'       ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。
'       strUnit     ----计数单位
'返回值：“上一页 下一页”等信息的HTML代码
'**************************************************
function ShowPage(sFileName,TotalNumber,MaxPerPage,ShowTotal,ShowAllPages,strUnit)
    dim TotalPage,strTemp,strUrl,i

    if TotalNumber=0 or MaxPerPage=0 or isNull(MaxPerPage) then
        ShowPage=""
        exit function
    end if
    if totalnumber mod maxperpage=0 then
        TotalPage= totalnumber \ maxperpage
      Else
        TotalPage= totalnumber \ maxperpage+1
      end if
    if CurrentPage>TotalPage then CurrentPage=TotalPage

      strTemp= "<table align='center'><tr><td>"
    if ShowTotal=true then 
        strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & "  "
    end if
    strUrl=JoinChar(sfilename)
      if CurrentPage<2 then
        strTemp=strTemp & "首页 上一页 "
      Else
        strTemp=strTemp & "<a href='" & strUrl & "page=1'>首页</a> "
        strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage-1) & "'>上一页</a> "
      end if

      if CurrentPage>=TotalPage then
        strTemp=strTemp & "下一页 尾页"
      Else
        strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一页</a> "
        strTemp=strTemp & "<a href='" & strUrl & "page=" & TotalPage & "'>尾页</a>"
      end if
       strTemp=strTemp & " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & TotalPage & "</strong>页 "
        strTemp=strTemp & " <b>" & maxperpage & "</b>" & strUnit & "/页"
    if ShowAllPages=True then
        strTemp=strTemp & "  转到第<input type='text' name='page' size='3' maxlength='5' value='" & CurrentPage & "' onKeyPress=""if (event.keyCode==13) window.location='" & strUrl & "page=" & "'+this.value;""'>页"
         'strTemp  = strTemp &" <Input type=""button""  onClick=""window.location.href='" & strUrl & "page='+document.all.page.value;""  name=button1  value=GO >"
    end if
    strTemp=strTemp & "</td></tr></table>"
    ShowPage=strTemp
end function

内容总结

以上是互联网集市为您收集整理的ShowPage 显示“上一页 下一页”等信息的封装代码全部内容，希望文章能够帮你解决ShowPage 显示“上一页 下一页”等信息的封装代码所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---