asp 文章分页类

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

文章分页类

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 & ""
PageStr = PageStr &

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

Then
PageStr =

PageStr & " [

"]"
Else
PageStr =

PageStr & " []"
       End If
      Next
      PageStr = PageStr &

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

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

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

""
If xCurrentPage > 1 Then
PageStr = PageStr &

" "
PageStr = PageStr &

" "
Else
PageStr = PageStr &

" "
PageStr = PageStr &

" "
End If
If xCurrentPage

Then
PageStr = PageStr &

" "
PageStr = PageStr &

" "&vbcrlf
Else
PageStr = PageStr &

" "
PageStr = PageStr &

" "&vbcrlf
End If
PageStr = PageStr & "

maxlength=""4"" title=""定页"" size='4' onmouseover="":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 & ""
PageStr = PageStr &

""
      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 & " [

"]"
Else
PageStr =

PageStr & " "
End If
If i = xPageCount

Then Exit For
Next
If i

PageStr = PageStr & " "
If xCurrentPage = xPageCount

Then
PageStr = PageStr &

" "
Else
PageStr = PageStr &

" "
End If
PageStr = PageStr &

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

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

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

""
If xCurrentPage > 4 Then

PageStr = PageStr & " [] ... "
If xCurrentPage

- 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 & " []"
        End If
       End If
      Next
      If xCurrentPage

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

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

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

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

""
If xCurrentPage > 1 Then
PageStr = PageStr &

" "
PageStr = PageStr &

" "
Else
PageStr = PageStr &

" "
PageStr = PageStr &

" "
End If
If xCurrentPage

Then
PageStr = PageStr &

" "
PageStr = PageStr &

" "&vbcrlf
Else
PageStr = PageStr &

" "
PageStr = PageStr &

" "
End If
PageStr = PageStr &

value=""" & xMaxPerPage & """ onKeyPress=""if (event.keyCode==13)

window.location.href='" & strUrl & "MaxPerPage='+this.value;""> " &

xUnitName & "/页"&vbcrlf
PageStr = PageStr & "

转到:"&vbcrlf
PageStr = PageStr &

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

、上一页、下一页、末页，数字页和转向文本框
PageStr = PageStr & "

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

""
PageStr = PageStr &

" "
      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 & " [

"]"
Else
PageStr =

PageStr & " []"
End If
If i = xPageCount

Then Exit For
Next
If i

PageStr = PageStr & " "
If xCurrentPage = xPageCount

Then
PageStr = PageStr &

" "&vbcrlf
Else
PageStr = PageStr &

" []"&vbcrlf
End If
PageStr = PageStr & "

转到：

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

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

window.location.href='" & strUrl & "Page='+this.value"">页"&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教程