ASP通用分页类

80酷酷网    80kuku.com

  分页

一、类的属性、方法

  这是一个ASP通用分页类。你可以用它方便的给记录集分页,当然在网上有许多的分页类和分页函数。本分页主要有GetConn、GetRS、SQL、URL、CSSFile、FldName、FldNote、FldWidth、FldAlign、ShowPageType、TleFTColor、TleWidth、PageSize、ShowWidth、Init、Pages、ShowData、Close等属性和方法。
  1.GetConn属性:用来获取一个已创建的Connection对象。
  2.GetRS属性:用来获取一个已创建的RecordSet对象,如果设置该属性后,不需要设置SQL属性。
  3.SQL属性:根据传入的SQL语句,自动创建RecordSet对象
  4.PageSize属性:设置第页的记录条数
  5.FldName属性:如果需要显示库中的数据(即调用ShowData过程),一定要设置此属性。它是用来获取需要显示的正确的字段名。
  6.FldNote属性:设置相应字段名的中文说明,需要跟FldName中的字段名一一对应。
  7.FldWidth属性:设置显示相应字段数据的单元格的宽度,要跟FldName中的字段名一一对应。
  8.FldAlign属性:设置显示相应字段数据的单元格的对齐方式,要跟FldName中的字段名一一对应。
  9.TleBGColor过程:设置数据标题栏的背景颜色。如果要显示数据,可以设置此选项。
  10.TleFTColor属性:设置数据标题栏的字体颜色。
  11.TleWidth属性:设置数据标题栏的宽度,横排时可设置此属性。
  12.ShowPageType属性:设置分页条的显示类型。有汉字、字符、英文之分。
  13.ShowType属性:设置数据显示的类型,分横、竖两种。
  14.ShowWidth属性:设置数据显示时表格的宽度。
  15.CSSFile属性:设置相应的CSS文件名及相对路径。
  16.URL属性:设置分页条中链接的文件地址。
  17.Init过程:分页类初始化数据。
  18.ShowData过程:显示数据。
  19.Pages过程:显示分页条
  20.Close过程:分页类结束

二、类的源代码(inc_clsPage.asp)

<%OptionExplicit
 '/************************************************
 '*                       *
 '*Name :Asppagnationclass        *
 '*Author:Sunway              *
 '*Version:V2.0               *
 '*Time :2003-12-26            *
 '*Email :                 *
 '*HomePage:None(MaybeSoon)         *
 '*Notice: Youcanuseandmodifyitfreely,*
 '*     BUTPLEASEHOLDTHISITEM.    *
 '*      Ifyoumodifyitthatihopeyou*
 '*     cansendamailforme.      *
 '*                       *
 '************************************************/

 '#########声明变量#########
 'SWStyleClass
 PrivateSW_strBTNClass,SW_strTXTClass,SW_strBGColor,SW_intTBWidth,SW_intBDKind,SW_strBGImage,SW_strFTColor,SW_strBDColor,SW_strShowWidth
 '#########初始化变量##########
 SW_strFTColor="#000000" 'Fontcolor
 SW_strBGColor="#FFFFFF" 'Backgroundcolor
 SW_intBDKind=1     'Defaultborderkindis"thinborder".
 SW_intTBWidth="98%"   'Table'swidth.
 SW_strBDColor="#000000" 'Table'sbordercolor.

 'SWPageClass
 PrivateSW_blnErrorFlag,SW_blnIsHaveRS,SW_strFields
 '#########初始化变量##########
 SW_blnErrorFlag=false  '设置错误标志为Fasle,就是无错误状态
 SW_blnIsHaveRS=false  '设置记录集获取标志为Fasle,就是无记录集状态
 SW_strShowWidth="90%"
 SW_strFields =""

 '定义链接的显示类型
 ConstSW_intShowChinese  =0'汉字,如"上一页、下一页"
 ConstSW_intShowEnglish  =1'英文,如"Back、Next"
 ConstSW_intShowCharacter =2'特殊字符
'ConstSW_intShowImage   =3'图片
 '定义数据的显示类型
 ConstSW_intHorizontalView=0'横排
 ConstSW_intVerticalView =1'竖排
 '线的显示类型
 ConstSW_intShowBigBorder =2'粗线
 ConstSW_intShowSmallBorder=1'细线
 ConstSW_intShowNoBorder =0'无线

 '显示的页数
 ConstSW_intShowPages   =10

 '*****************************************
 '类型: 类
 '目的: 控制分页信息显示的样式
 '*****************************************
 ClassSWStyle
  '*****************************************
 '类型: 属性
  '目的: 设定背景颜色
  '输入: a_strBGColor: 背景颜色。
  '返回: 无
  '*****************************************
  PublicPropertyLetBGColor(a_strBGColor)
    SW_strBGColor=a_strBGColor

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: