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

热门教程

经典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
%>

热门栏目