ASP通用分頁類

分頁

一、類的屬性、方法

　　這是一個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