经典asp分页程序代码

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

经典asp分页程序代码
<%

Class Cls_Page

'**************************************************
'函数名：ShowPage
'作用：显示分页
'参数：如下
'strFileName : ?后面的文件,如xxx.asp?page=
'xTotalNum  : 总数
'xPageCount     : 总页数
    'xMaxPerPage : 每页显示数量
'xCurrentPage : 当前页数
'xPageName  : 当前页面名
'xUnitName  : 分类单位名称,如"篇,条,幅"
'xShowStyle  : 显示分页的样式
'返回值：分页
'**************************************************
Public Function ShowPage(strFileName,xTotalNum,xPageCount,xMaxPerPage,xCurrentPage,xPageName,xUnitName,xShowStyle)
  strUrl = ClsMain.JoinChar(strFileName)
  Dim i,PageStr
  If xTotalNum > 0 Then
   If xPageCount >= 1 Then
    Select Case xShowStyle
     Case "1" '分页样式1:列出所有页码的页号，页码较少时可以使用
      PageStr = PageStr & "

"
      PageStr = PageStr & "全部"&xPageName&"：" & xTotalNum &"" & xUnitName & ""
      PageStr = PageStr & " 页次：" & xCurrentPage & "/" & xPageCount & ""
      For i=1 To xPageCount
       If i = xCurrentPage Then
        PageStr = PageStr & " [" & i & "]"
       Else
        PageStr = PageStr & " [" & i & "]"
       End If
      Next
      PageStr = PageStr & "

"&vbcrlf
Case "2" '分页样式2:显示首页、上一页、下一页、末页，均为符号和转到页的输入框
PageStr = PageStr & "

"
      PageStr = PageStr & "全部"&xPageName&"：" & xTotalNum &"" & xUnitName & ""
      PageStr = PageStr & " 页次：" & xCurrentPage & "/" & xPageCount & ""
      If xCurrentPage > 1 Then
       PageStr = PageStr & " |‹"
       PageStr = PageStr & " «"
      Else
       PageStr = PageStr & " |‹"
       PageStr = PageStr & " «"
      End If
      If xCurrentPage < xPageCount Then
       PageStr = PageStr & " »"
       PageStr = PageStr & " ›|"&vbcrlf
      Else
       PageStr = PageStr & " »"
       PageStr = PageStr & " ›|"&vbcrlf
      End If
      PageStr = PageStr & " javascript:this.focus();this.select()"" onKeyDown=""javascript: if(window.event.keyCode == 13) window.location.href='" & strUrl & "page='+this.value"">"&vbcrlf
      PageStr = PageStr & " "&vbcrlf
      PageStr = PageStr & "

"&vbcrlf
Case "3" '分页样式3:显示首页、上十页、下十页、尾页以及中间一段页码
PageStr = PageStr & "

"
      PageStr = PageStr & "全部"&xPageName&"：" & xTotalNum &"" & xUnitName & ""
      PageStr = PageStr & " 页次：" & xCurrentPage & "/" & xPageCount & ""
      p = (xCurrentPage - 1) 10
      If xCurrentPage = 1 Then
       PageStr = PageStr & " |‹"
      Else
       PageStr = PageStr & " |‹"
      End If
      If p * 10 > 0 Then
       PageStr = PageStr & " «"
      End If
      For i=(p * 10 + 1) To (p * 10 + 10)
       If i = xCurrentPage Then
        PageStr = PageStr & " [" & i & "]"
       Else
        PageStr = PageStr & " " & i & ""
       End If
       If i = xPageCount Then Exit For
      Next
      If i < xPageCount Then PageStr = PageStr & " »"
      If xCurrentPage = xPageCount Then
       PageStr = PageStr & " ›|"
      Else
       PageStr = PageStr & " ›|"
      End If
      PageStr = PageStr & "

"&vbcrlf
Case "4" '分页样式4:显示首页和尾页的页码、中间显示一部分页码
PageStr = PageStr & "

"
      PageStr = PageStr & "全部"&xPageName&"：" & xTotalNum &"" & xUnitName & ""
      PageStr = PageStr & " 页次：" & xCurrentPage & "/" & xPageCount & ""
      If xCurrentPage > 4 Then PageStr = PageStr & " [1] ... "
      If xCurrentPage < PageCount - 3 Then PageTo = xCurrentPage + 3 Else PageTo = xPageCount
      For i=xCurrentPage - 3 To PageTo
       If i >= 1 Then
        If i = xCurrentPage Then
         PageStr = PageStr & " [" & i & "]"
        Else
         PageStr = PageStr & " [" & i & "]"
        End If
       End If
      Next
      If xCurrentPage < xPageCount - 3 Then PageStr = PageStr & " ... " & xPageCount & ""
      PageStr = PageStr & "

"&vbcrlf
Case "5" '分页样式5:显示首页、上一页、下一页、末页，均为汉字和转到页的选择列表
PageStr = PageStr & "

"
      PageStr = PageStr & "全部"&xPageName&"：" & xTotalNum &"" & xUnitName & ""
      PageStr = PageStr & " 页次：" & xCurrentPage & "/" & xPageCount & ""
      If xCurrentPage > 1 Then
       PageStr = PageStr & " 首页"
       PageStr = PageStr & " 上一页"
      Else
       PageStr = PageStr & " 首页"
       PageStr = PageStr & " 上一页"
      End If
      If xCurrentPage < xPageCount Then
       PageStr = PageStr & " 下一页"
       PageStr = PageStr & " 末页"&vbcrlf
      Else
       PageStr = PageStr & " 下一页"
       PageStr = PageStr & " 末页"
      End If
      PageStr = PageStr & "  " & xUnitName & "/页"&vbcrlf
      PageStr = PageStr & " 转到:"&vbcrlf
      PageStr = PageStr & "

"&vbcrlf
Case "6" '分页样式5:显示首页、上一页、下一页、末页，数字页和转向文本框
PageStr = PageStr & "

"
      PageStr = PageStr & "全部"&xPageName&"：" & xTotalNum &"" & xUnitName & ""
      PageStr = PageStr & " 页次：" & xCurrentPage & "/" & xPageCount & ""
      PageStr = PageStr & " "&xMaxPerPage&xUnitName&"/页"
      p = (xCurrentPage - 1) 10
      If xCurrentPage = 1 Then
       PageStr = PageStr & " |‹"
      Else
       PageStr = PageStr & " |‹"
      End If
      If p * 10 > 0 Then
       PageStr = PageStr & " «"
      End If
      For i=(p * 10 + 1) To (p * 10 + 10)
       If i = xCurrentPage Then
        PageStr = PageStr & " [" & i & "]"
       Else
        PageStr = PageStr & " [" & i & "]"
       End If
       If i = xPageCount Then Exit For
      Next
      If i < xPageCount Then PageStr = PageStr & " »"
      If xCurrentPage = xPageCount Then
       PageStr = PageStr & " ›|"&vbcrlf
      Else
       PageStr = PageStr & " [›|]"&vbcrlf
      End If
      PageStr = PageStr & " 转到：页"&vbcrlf

PageStr = PageStr & "

"&vbcrlf

    End Select
   End If
  Else
   PageStr = " "&vbcrlf
  End If
  ShowPage = PageStr
End Function

End Class
%>

推荐专题

最新下载

热门教程

经典asp分页程序代码

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程