一聚教程网:一个值得你收藏的教程网站

热门教程

asp常用分页程序-上一页 下一页

时间:2022-07-02 23:09:46 编辑:袖梨 来源:一聚教程网


'***********************************************
'过程名: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= "

"
 if ShowTotal=true then
  strTemp=strTemp & "共 " & totalnumber & " " & strUnit & "  "
 end if
 strUrl=JoinChar(sfilename)
   if CurrentPage<2 then
      strTemp=strTemp & "首页 上一页 "
   else
      strTemp=strTemp & "首页 "
      strTemp=strTemp & "上一页 "
   end if

   if n-currentpage<1 then
      strTemp=strTemp & "下一页 尾页"
   else
      strTemp=strTemp & "下一页 "
      strTemp=strTemp & "尾页"
   end if
    strTemp=strTemp & " 页次:" & CurrentPage & "/" & n & "页 "
    strTemp=strTemp & " " & maxperpage & "" & strUnit & "/页"
 if ShowAllPages=True then
  strTemp=strTemp & " 转到:"
 end if
 strTemp=strTemp & "

"
 response.write strTemp 
end sub

'***********************************************
'过程名:enshowpage
'作  用:显示“上一页 下一页”等信息
'参  数:sfilename  ----链接地址
'       totalnumber ----总数量
'       maxperpage  ----每页数量
'       ShowTotal   ----是否显示总数量
'       ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用,否则会出现JS错误。
'       strUnit     ----计数单位
'***********************************************
sub enshowpage(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= "

"
 if ShowTotal=true then
  strTemp=strTemp & "Total " & totalnumber & " " & strUnit & "  "
 end if
 strUrl=JoinChar(sfilename)
   if CurrentPage<2 then
      strTemp=strTemp & "First  Previous "
   else
      strTemp=strTemp & "First "
      strTemp=strTemp & "Previous "
   end if

   if n-currentpage<1 then
      strTemp=strTemp & "Next  Last"
   else
      strTemp=strTemp & "Next "
      strTemp=strTemp & "Last"
   end if
    strTemp=strTemp & " Page No.:" & CurrentPage & "/" & n & "page "
    strTemp=strTemp & " " & maxperpage & "" & strUnit & "/page"
 if ShowAllPages=True then
  strTemp=strTemp & " Turn to:"
 end if
 strTemp=strTemp & "

"
 response.write strTemp
end sub

热门栏目