经典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 & "

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

 
End Class
%>