ASP通用分页类

2022-07-15 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