asp 文章分页类

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

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,xUnitNa

me,xShowStyle)
  strUrl = ClsMain.JoinChar(strFileName)
  Dim i,PageStr
  If xTotalNum > 0 Then
   If xPageCount >= 1 Then
    Select Case xShowStyle
     Case "1" '分页样式1:列出所有

页码的页号，页码较少时可以使用
PageStr = PageStr & "

id=""ShowPage"">"
PageStr = PageStr & "

class=""TotalPage"">全部"&xPageName&"：" & xTotalNum &"" & xUnitName

& ""
PageStr = PageStr &

" 页次：" & xCurrentPage & "/" & xPageCount &

""
For i=1 To xPageCount
If i = xCurrentPage

Then
PageStr =

PageStr & " [" & i &

"]"
Else
PageStr =

PageStr & " [

class=""GoToPage"">" & i & "]"
       End If
      Next
      PageStr = PageStr &

"&vbcrlf
Case "2" '分页样式2:显示首页

、上一页、下一页、末页，均为符号和转到页的输入框
PageStr = PageStr & "

id=""ShowPage"">"
PageStr = PageStr & "

class=""TotalPage"">全部"&xPageName&"：" & xTotalNum &"" & xUnitName

& ""
PageStr = PageStr &

" 页次：" & xCurrentPage & "/" & xPageCount &

""
If xCurrentPage > 1 Then
PageStr = PageStr &

class=""FirstPage"">|‹"
PageStr = PageStr &

页"" class=""PrevPage"">«"
Else
PageStr = PageStr &

" |‹"
PageStr = PageStr &

" «"
End If
If xCurrentPage < xPageCount

Then
PageStr = PageStr &

页"" class=""NextPage"">»"
PageStr = PageStr &

class=""LastPage"">›|"&vbcrlf
Else
PageStr = PageStr &

" »"
PageStr = PageStr &

" ›|"&vbcrlf
End If
PageStr = PageStr & "

maxlength=""4"" title=""定页"" size='4' onmouseover=""javascript:this.focus

();this.select()"" onKeyDown=""javascript: if(window.event.keyCode == 13)

window.location.href='" & strUrl & "page='+this.value"">"&vbcrlf
PageStr = PageStr & "

(document.getElementById('page')) window.location.href='" & strUrl &

"Page='+document.getElementById('page').value"">"&vbcrlf
PageStr = PageStr &

"&vbcrlf
Case "3" '分页样式3:显示首页

、上十页、下十页、尾页以及中间一段页码
PageStr = PageStr & "

id=""ShowPage"">"
PageStr = PageStr & "

class=""TotalPage"">全部"&xPageName&"：" & xTotalNum &"" & xUnitName

& ""
PageStr = PageStr &

" 页次：" & xCurrentPage & "/" & xPageCount &

""
      p = (xCurrentPage - 1) 10
      If xCurrentPage = 1 Then
       PageStr = PageStr &

" |‹"
Else
PageStr = PageStr &

class=""FirstPage"">|‹"
      End If
      If p * 10 > 0 Then
       PageStr = PageStr &

页"" class=""PrevPage"">«"
End If
For i=(p * 10 + 1) To (p *

10 + 10)
If i = xCurrentPage

Then
PageStr =

PageStr & " [" & i &

"]"
Else
PageStr =

PageStr & "

i & "页"" class=""GoToPage"">" & i & ""
End If
If i = xPageCount

Then Exit For
Next
If i < xPageCount Then

PageStr = PageStr & "

下十页"" class=""NextPage"">»"
If xCurrentPage = xPageCount

Then
PageStr = PageStr &

" ›|"
Else
PageStr = PageStr &

class=""LastPage"">›|"
End If
PageStr = PageStr &

"&vbcrlf
Case "4" '分页样式4:显示首页

和尾页的页码、中间显示一部分页码
PageStr = PageStr & "

id=""ShowPage"">"
PageStr = PageStr & "

class=""TotalPage"">全部"&xPageName&"：" & xTotalNum &"" & xUnitName

& ""
PageStr = PageStr &

" 页次：" & xCurrentPage & "/" & xPageCount &

""
If xCurrentPage > 4 Then

PageStr = PageStr & " [

class=""FirstPage"">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 & " [

class=""GoToPage"">" & i & "]"
        End If
       End If
      Next
      If xCurrentPage < xPageCount

- 3 Then PageStr = PageStr & " ... " & xPageCount & ""
PageStr = PageStr &

、上一页、下一页、末页，均为汉字和转到页的选择列表
PageStr = PageStr & "

推荐专题

最新下载

热门教程

asp 文章分页类

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程