您当前的位置是:首页-ASP教程

ASP 实现网页分页效果

【发表于】:2009/8/31 18:31:00  已被访问:91次

ASP在调用数据库数据的时候,遇到数据很多,页面就会很长,因此给过长的数据分页显示成为必要,这样可以优化用户体验,下面给大家介绍一个简单的ASP分页过程。

'***********************************************
'过程名:showpage
'作  用:显示“上一页 下一页”等信息
'参  数:sfilename  ----链接地址
'       totalnumber ----总数量
'       maxperpage  ----每页数量
'       ShowTotal   ----是否显示总数量
'       ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用,否则会出现JS错误。
'       strUnit     ----计数单位
'***********************************************
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
 
dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
     n= totalnumber \ maxperpage
   else
     n= totalnumber \ maxperpage+1
   end if
   strTemp= "<table align='center'><form name='showpages' method='Post' action='" & sfilename & "'><tr class='a'><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 n-currentpage<1 then
      strTemp=strTemp & "下一页 尾页"
   else
      strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一页</a> "
      strTemp=strTemp & "<a href='" & strUrl & "page=" & n & "'>尾页</a>"
   end if
    strTemp=strTemp & " 页次:<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
    strTemp=strTemp & " <b>" & maxperpage & "</b>" & strUnit & "/页"
if ShowAllPages=True then
  strTemp=strTemp & " 转到:<Select name='page' size='1' onchange='Javascript:submit()'>"  
     for i = 1 to n  
      strTemp=strTemp & "<option value='" & i & "'"
   if cint(CurrentPage)=cint(i) then strTemp=strTemp & " Selected "
   strTemp=strTemp & ">第" & i & "页</option>"  
     next
  strTemp=strTemp & "</Select>"
end if
strTemp=strTemp & "</td></tr></form></table>"
response.write strTemp
end sub


大家只需要按照上面参数说明调用就行,简单吧?

编辑:汕尾网络公司

 

 
上下篇: JS+ASP打造无刷新新闻列表 技巧:用ASP在线创建Word与Excel文档

最新推荐信息