服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - ASP教程 - ShowPage 显示“上一页 下一页”等信息的封装代码

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

2019-10-09 14:12asp代码网 ASP教程

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

  1. '**************************************************  
  2. '函数名:ShowPage  
  3. '作  用:显示“上一页 下一页”等信息  
  4. '参  数:sFileName  ----链接地址  
  5. '       TotalNumber ----总数量  
  6. '       MaxPerPage  ----每页数量  
  7. '       ShowTotal   ----是否显示总数量  
  8. '       ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用,否则会出现JS错误。  
  9. '       strUnit     ----计数单位  
  10. '返回值:“上一页 下一页”等信息的HTML代码  
  11. '**************************************************  
  12. function ShowPage(sFileName,TotalNumber,MaxPerPage,ShowTotal,ShowAllPages,strUnit)  
  13.     dim TotalPage,strTemp,strUrl,i  
  14.  
  15.     if TotalNumber=0 or MaxPerPage=0 or isNull(MaxPerPage) then  
  16.         ShowPage=""  
  17.         exit function  
  18.     end if  
  19.     if totalnumber mod maxperpage=0 then  
  20.         TotalPage= totalnumber \ maxperpage  
  21.       Else  
  22.         TotalPage= totalnumber \ maxperpage+1  
  23.       end if  
  24.     if CurrentPage>TotalPage then CurrentPage=TotalPage  
  25.  
  26.       strTemp= "<table align='center'><tr><td>"  
  27.     if ShowTotal=true then   
  28.         strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & "  "  
  29.     end if  
  30.     strUrl=JoinChar(sfilename)  
  31.       if CurrentPage<2 then  
  32.         strTemp=strTemp & "首页 上一页 "  
  33.       Else  
  34.         strTemp=strTemp & "<a href='" & strUrl & "page=1'>首页</a> "  
  35.         strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage-1) & "'>上一页</a> "  
  36.       end if  
  37.  
  38.       if CurrentPage>=TotalPage then  
  39.         strTemp=strTemp & "下一页 尾页"  
  40.       Else  
  41.         strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一页</a> "  
  42.         strTemp=strTemp & "<a href='" & strUrl & "page=" & TotalPage & "'>尾页</a>"  
  43.       end if  
  44.        strTemp=strTemp & " 页次:<strong><font color=red>" & CurrentPage & "</font>/" & TotalPage & "</strong>页 "  
  45.         strTemp=strTemp & " <b>" & maxperpage & "</b>" & strUnit & "/页"  
  46.     if ShowAllPages=True then  
  47.         strTemp=strTemp & "  转到第<input type='text' name='page' size='3' maxlength='5' value='" & CurrentPage & "' onKeyPress=""if (event.keyCode==13) window.location='" & strUrl & "page=" & "'+this.value;""'>页"  
  48.          'strTemp  = strTemp &" <Input type=""button""  onClick=""window.location.href='" & strUrl & "page='+document.all.page.value;""  name=button1  value=GO >"  
  49.     end if  
  50.     strTemp=strTemp & "</td></tr></table>"  
  51.     ShowPage=strTemp  
  52. end function 

延伸 · 阅读

精彩推荐