中文字幕二区_国产精品免费在线观看_黄色网站观看_人人草人人澡_日本真实娇小xxxx

ASP通用分頁類

一、類的屬性、方法
　　這是一個(gè)ASP通用分頁類。你可以用它方便的給記錄集分頁，當(dāng)然在網(wǎng)上有許多的分頁類和分頁函數(shù)。本分頁主要有Conn、SQL、URL、FieldList、PageSize、Template、Init、Show、Close等屬性和方法。
　　1.Conn屬性　　　 ：用來獲取一個(gè)已創(chuàng)建的Connection對象。
　　2.SQL屬性　　　　　 ：根據(jù)傳入的SQL語句，自動(dòng)創(chuàng)建RecordSet對象
　　3.PageSize屬性　　  ：設(shè)置第頁的記錄條數(shù)
　　4.FieldList屬性　　　 ：如果需要顯示庫中的數(shù)據(jù)，一定要設(shè)置此屬性。它是用來獲取需要顯示的正確的字段名。
　　5.URL屬性　　　　  ：設(shè)置分頁條中鏈接的文件地址。
　　6.Template屬性  　�。涸O(shè)置分頁文件的模版。
　　7.Init過程　　　　 ：分頁類初始化數(shù)據(jù)。
　　8.Show過程　　 ：顯示數(shù)據(jù)。
　　9.Close過程　　　  ：分頁類結(jié)束

全部代碼由此下載

二、簡化類的源代碼及調(diào)用代碼（不含數(shù)據(jù)顯示功能）

 pages.asp
<%Option Explicit Dim strStartTime,intUseTime strStartTime = timer() %> <!--#include file="inc_clsPages.asp"--> <% Dim clsPage,strShowTemp '分頁顯示的位置：SW_intPageInAll,SW_intPageInTop,SW_intPageInBottom Set clsPage = New SWPage clsPage.Conn = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("../DB/datatest.mdb") clsPage.SQL = "SELECT * FROM datatest" clsPage.PageSize = 10 clsPage.URL = "pages.asp" clsPage.Init() clsPage.Pages() '.............................. '............................ ' 此處加入數(shù)據(jù)顯示代碼 '.............................. '.............................. clsPage.Pages() clsPage.Close Set clsPage = Nothing intUseTime = FormatNumber((timer()-strStartTime)*1000,3) Response.Write("<br><br><center>共用時(shí) <font color=""#FF0000"">" & intUseTime & "</font> 毫秒</center>") %>
[Ctrl+A 全部選擇 然后拷貝]

inc_clsPages.asp
<%'Option Explicit '/************************************************ '* * '* Name : An common process database class * '* Author : cjj * '* Version : V3.0 * '* Time : 2004-01-12 * '* Comefrom: http://www.95time.cn/ * '* HomePage: None (Maybe Soon) * '* Notice : You can use and modify it freely, * '* BUT PLEASE HOLD THIS ITEM. * '* If you modify it that i hope you * '* can send a mail for me. * '* * '************************************************/ '#########聲明變量######### '顯示的頁數(shù)的數(shù)字個(gè)數(shù) Const SW_intShowPages = 10 'SWData Class Private SW_blnIsHaveRS,SW_strFields,SW_blnInConn,SW_intShowPagePos,SW_strShowWidth '#########初始化變量########## SW_blnIsHaveRS = false '設(shè)置記錄集獲取標(biāo)志為Fasle，就是無記錄集狀態(tài) SW_strShowWidth = "90%" '默認(rèn)的顯示寬度為90% SW_strFields = "" SW_blnInConn = true '由內(nèi)部創(chuàng)建Connection,如果設(shè)為False則由外部創(chuàng)建 '***************************************** ' 類型： 類 ' 目的： 給記錄集分頁 '***************************************** Class SWPage '聲明類私有變量 Private SW_objRS,SW_objConn Private SW_strSQL,SW_strURL,SW_strError,SW_strFormAction,SW_strHeadJS,SW_strFootJS,SW_strKeyFiled Private SW_strTleBGColor,SW_strTleFTColor,SW_strTleWidth Private SW_intPageSize,SW_intTleBDType,SW_intShowPageType,SW_intShowType Private SW_lngTotalPage,SW_lngTotalRecord,SW_lngPageNo Private SW_aryFldName,SW_aryFldNote,SW_aryFldWidth,SW_aryFldAlign,SW_aryFldLink Private SW_blnInit,SW_blnOpenRS,SW_blnConn,SW_blnPageSize,SW_blnFieldList,SW_blnGetURL,SW_blnShowType,SW_blnShowPageType,SW_blnTemplate Public Property Let Conn(a_strConn) Set SW_objConn = CreateObject("Adodb.Connection") On Error Resume Next SW_objConn.Open a_strConn On Error Goto 0 End Property Public Property Let SQL(a_strSQL) SW_strSQL = a_strSQL '創(chuàng)建RecordSet對象 Set SW_objRS = CreateObject("adodb.RecordSet") On Error Resume Next SW_objRS.Open SW_strSQL,SW_objConn,1,1 on error goto 0 End Property Public Property Let PageSize(a_intPageSize) SW_intPageSize = CLng(a_intPageSize) End Property Public Property Let URL(a_strURL) SW_strURL = a_strURL End Property Sub Init() Dim intPostion,strError,i,objRSTemp,lngTotalRecord If SW_objRS.Eof And SW_objRS.Bof Then strError = strError & "<br>庫中無任何記錄" End If '計(jì)算總計(jì)錄數(shù) Set objRSTemp = SW_objConn.Execute("SELECT * FROM SW_RecCount") SW_lngTotalRecord = CLng(objRSTemp("SW_RecCount").Value) '計(jì)算總頁數(shù) If SW_lngTotalRecord Mod SW_intPageSize = 0 Then SW_lngTotalPage = CLng(SW_lngTotalRecord \ SW_intPageSize * -1)*-1 Else SW_lngTotalPage = CLng(SW_lngTotalRecord \ SW_intPageSize * -1)*-1 + 1 End If '獲取頁數(shù) SW_lngPageNo = Trim(Request.QueryString("pageno")) If SW_lngPageNo = "" Then SW_lngPageNo = Trim(Request.Form("PageNo")) If SW_lngPageNo = "" Then SW_lngPageNo = 1 '如果沒有選擇第幾頁，則默認(rèn)顯示第一頁 If SW_lngPageNo <> "" And IsNumeric(SW_lngPageNo) Then SW_lngPageNo = CLng(SW_lngPageNo) If (SW_lngPageNo > SW_lngTotalPage AND SW_lngTotalPage<>0) Then SW_lngPageNo = SW_lngTotalPage SW_objRS.PageSize = SW_intPageSize SW_objRS.AbsolutePage = SW_lngPageNo intPostion = InstrRev(SW_strURL,"?") SW_strFormAction = SW_strURL If intPostion > 0 Then SW_strURL = SW_strURL & "&PageNo=" Else SW_strURL = SW_strURL & "?PageNo=" End If End Sub '***************************************** ' 類型： 過程 ' 目的： 顯示分頁信息 ' 輸入： 無 ' 返回： 無 '***************************************** Public Sub Pages() Dim strPages,k,intTemp,intTemp1 If SW_lngTotalPage = 1 Then Exit Sub Response.Write("<table align=""center"" class=""css_ShowPage"" width=""" & SW_strShowWidth & """>" & vbcrlf) Response.Write(" <tr>" & vbcrlf) Response.Write(" <td>" & vbcrlf) Response.Write(" <table width=""100%"">" & vbcrlf) Response.Write(" <tr>" & vbcrlf & " <td align=""center"" valign=""middle"" class="".test1"">" & vbcrlf) If SW_lngTotalPage >= 1 Then If SW_lngPageNo <= 1 Then Response.Write ("首頁 前頁 <a href=""" & SW_strURL & SW_lngPageNo+1 & """>后頁</a> <a href=""" & SW_strURL & SW_lngTotalPage & """>末頁</a>" & vbcrlf) Else If SW_lngPageNo >= SW_lngTotalPage Then Response.Write ("<a href=""" & SW_strURL & "1"">首頁</a> <a href=""" & SW_strURL & SW_lngPageNo -1 & """>前頁</a> " & "后頁 末頁" & vbcrlf) Else Response.Write ("<a href=""" & SW_strURL & "1"">首頁</a> <a href=""" & SW_strURL & SW_lngPageNo -1 & """>前頁</a> " & "<a href=""" & SW_strURL & SW_lngPageNo+1 & """>后頁</a> <a href=""" & SW_strURL & SW_lngTotalPage & """>末頁</a>" & vbcrlf) End If End If Response.Write ("　頁次：<b>" & SW_lngPageNo & "</b>/" & SW_lngTotalPage & "頁 共<b>" & SW_lngTotalRecord & "</b>條記錄　<b>" & SW_intPageSize & "</b>條/頁</td>" & vbcrlf) Response.Write(" <form name=""gopage"" action=""" & SW_strFormAction & """ method=""post"">" & vbcrlf) Response.Write(" <td> 第") Response.Write(" <input type=""text"" name=""pageno"" size=""3"" maxlength=4 title=""請輸入頁號(hào),然后回車"">頁 " & vbcrlf) Response.Write("<input type=""submit"" value=""GO""></td></form></tr>" & vbcrlf) End If Response.Write(" </table>" & vbcrlf) Response.Write(" </td>" & vbcrlf) Response.Write(" </tr>" & vbcrlf) Response.Write("</table>" & vbcrlf) End Sub Sub Close() Set SW_objRS = Nothing Set SW_objConn = Nothing End Sub End Class %>
[Ctrl+A 全部選擇 然后拷貝]

三、復(fù)雜類的源代碼及調(diào)用代碼（含數(shù)據(jù)顯示功能）

pages.asp
<%Option Explicit Dim strStartTime,intUseTime,clsPage,strShowTemp strStartTime = timer() %> <!--#include file="inc_clsPages.asp"--> <% '分頁顯示的位置：SW_intPageInAll,SW_intPageInTop,SW_intPageInBottom '頁數(shù)的顯示模式：SW_intShowChinese,SW_intShowEnglish,SW_intShowCharacter,SW_intShowImage '頁面顯示模板設(shè)置　<文件頭> + <頁數(shù)設(shè)置：分頁顯示模式,頁數(shù)顯示的位置> + <數(shù)據(jù)顯示> + <頁數(shù)顯示> + <文件尾>如果某項(xiàng)不需要，只要設(shè)置成<>就行了，不過<文件頭>和<文件尾是必須的> '設(shè)置分頁文件頭,可以直接跟HTML代碼({code=<html>....</html>}) strShowTemp = "[file=head.js] + " '設(shè)置分頁條顯示信息 strShowTemp = strShowTemp & "[page=" & SW_intPageInAll & "," & SW_intShowCharacter & "] + " '########設(shè)置數(shù)據(jù)模版信息 strShowTemp = strShowTemp & "[data=" '設(shè)置顯示的寬度 strShowTemp = strShowTemp & "90%|" '數(shù)據(jù)顯示方式，豎排、橫排 strShowTemp = strShowTemp & SW_intVerticalView & "|" '需要顯示的字段的相應(yīng)的中文說明 strShowTemp = strShowTemp & "編號(hào),用戶名,生日#" '需要顯示的字段的相應(yīng)的對齊方式 strShowTemp = strShowTemp & "left,center,right#" '需要顯示的字段的相應(yīng)的寬度 strShowTemp = strShowTemp & "30%,30%,30%#" '需要顯示的字段的相應(yīng)的鏈接文件名 strShowTemp = strShowTemp & "list.asp,,," strShowTemp = strShowTemp & "] + " '#########數(shù)據(jù)模版結(jié)束 '#########設(shè)置文件尾 strShowTemp = strShowTemp & "[file=foot.js]" Set clsPage = New SWPage clsPage.Conn = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("../db/datatest.mdb") clsPage.SQL = "SELECT * FROM datatest" clsPage.PageSize = 10 clsPage.URL = "pages.asp" clsPage.FieldList = "id,field1,field2" clsPage.Template = strShowTemp '顯示模版 clsPage.Init() clsPage.Show clsPage.Close Set clsPage = Nothing intUseTime = FormatNumber((timer()-strStartTime)*1000,3) Response.Write("<br><br><center>共用時(shí) <font color=""#FF0000"">" & intUseTime & "</font> 毫秒</center>") %>

[Ctrl+A 全部選擇 提示：你可先修改部分代碼，再按運(yùn)行]

inc_clsPages.asp
<% '/************************************************ '* * '* Name : Asp pagnation class * '* Author : cjj * '* Version : V2.8 * '* Time : 2004-01-16 * '* Comefrom: http://www.95time.cn/ * '* HomePage: None (Maybe Soon) * '* Notice : You can use and modify it freely, * '* BUT PLEASE HOLD THIS ITEM. * '* If you modify it that i hope you * '* can send a mail for me. * '* * '************************************************/ '#########聲明變量######### '定義鏈接的顯示類型 Const SW_intShowChinese = 0 '漢字，如"上一頁、下一頁" Const SW_intShowEnglish = 1 '英文，如"Back、Next" Const SW_intShowCharacter = 2 '特殊字符 '定義數(shù)據(jù)的顯示類型 Const SW_intHorizontalView = 0 '橫排 Const SW_intVerticalView = 1 '豎排 '線的顯示類型 Const SW_intShowBigBorder = 2 '粗線 Const SW_intShowSmallBorder = 1 '細(xì)線 Const SW_intShowNoBorder = 0 '無線 '標(biāo)題欄線的顯示類型 Const SW_intTleSmallBorder = 1 '細(xì)線 Const SW_intTleNoBorder = 0 '無線 '顯示分頁信息的位置 Const SW_intPageInNone = 0 '不顯示分頁條 Const SW_intPageInTop = 1 '在頂部顯示 Const SW_intPageInBottom = 2 '在底部顯示 Const SW_intPageInAll = 3 '在頂、底部顯示 '顯示的頁數(shù)的數(shù)字個(gè)數(shù) Const SW_intShowPages = 10 'SWPage Class Private SW_blnIsHaveRS,SW_strFields,SW_blnInConn,SW_intShowPagePos,SW_strShowWidth '#########初始化變量########## SW_blnIsHaveRS = false '設(shè)置記錄集獲取標(biāo)志為Fasle，就是無記錄集狀態(tài) SW_strShowWidth = "90%" '默認(rèn)的顯示寬度為90% SW_strFields = "" SW_blnInConn = true '由內(nèi)部創(chuàng)建Connection,如果設(shè)為False則由外部創(chuàng)建 SW_intShowPagePos = SW_intPageInAll '***************************************** ' 類型： 類 ' 目的： 給記錄集分頁 '***************************************** Class SWPage '聲明類私有變量 Private SW_objRS,SW_objConn Private SW_strSQL,SW_strURL,SW_strError,SW_strFormAction,SW_strHeadJS,SW_strFootJS Private SW_intPageSize,SW_intTleBDType,SW_intShowPageType,SW_intShowType Private SW_lngTotalPage,SW_lngTotalRecord,SW_lngPageNo Private SW_aryFldName,SW_aryFldNote,SW_aryFldWidth,SW_aryFldAlign,SW_aryFldLink Private SW_blnInit,SW_blnOpenRS,SW_blnConn,SW_blnPageSize,SW_blnFieldList,SW_blnGetURL,SW_blnShowType,SW_blnShowPageType,SW_blnTemplate '***************************************** ' 類型： 屬性 ' 目的： 根據(jù)獲取的信息，創(chuàng)建數(shù)據(jù)庫連接 ' 輸入： a_strConn:數(shù)據(jù)類型字符串 ' 返回： 無 '***************************************** Public Property Let Conn(a_strConn) Dim strError SW_blnConn = false Set SW_objConn = CreateObject("Adodb.Connection") On Error Resume Next SW_objConn.Open a_strConn If Err.Number <> 0 Then strError = strError & "<br>創(chuàng)建Connection對象失敗" On Error Goto 0 If Trim(strError)="" Then SW_blnConn = true Else SW_strError = SW_strError & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#FFFFFF"">Conn屬性：</font></td></tr>" & vbcrlf SW_strError = SW_strError & " <tr bgcolor=""#ffffff""><td>" & strError & "</td></tr>" & vbcrlf End If End Property '***************************************** ' 類型： 屬性 ' 目的： 設(shè)定或顯示SQL語句。 ' 輸入： a_strSQL: SQL語句。 ' 返回： SQL語句。 '***************************************** Public Property Let SQL(a_strSQL) Dim strError SW_blnOpenRS = false SW_strSQL = a_strSQL '創(chuàng)建RecordSet對象 Set SW_objRS = CreateObject("adodb.RecordSet") On Error Resume Next SW_objRS.Open SW_strSQL,SW_objConn,1,1 If Err.Number <> 0 Then strError = "<br>記錄集打開失敗" On Error Goto 0 If Trim(strError)="" Then SW_blnOpenRS = true Else SW_strError = SW_strError & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#FFFFFF"">SQL屬性：</font></td></tr>" & vbcrlf SW_strError = SW_strError & " <tr bgcolor=""#ffffff""><td>" & strError & "</td></tr>" & vbcrlf End If End Property '***************************************** ' 類型： 屬性 ' 目的： 設(shè)置需要顯示的數(shù)據(jù)的字段名 ' 輸入： a_strFldName:字段名字符串，多個(gè)字段之間以逗號(hào)分隔 ' 返回： 無 '***************************************** Public Property Let FieldList(a_strFldName) Dim strError SW_blnFieldList = false If Trim(a_strFldName) <> "" Then SW_aryFldName = Split(LCase(a_strFldName),",") Else strError = strError & "<br>你必須設(shè)置需要顯示的字段名，否則無法顯示數(shù)據(jù)" End If If Trim(strError)="" Then SW_blnFieldList = true Else SW_strError = SW_strError & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#FFFFFF"">FieldList屬性：</font></td></tr>" & vbcrlf SW_strError = SW_strError & " <tr bgcolor=""#ffffff""><td>" & strError & "</td></tr>" & vbcrlf End If End Property '***************************************** ' 類型： 屬性 ' 目的： 設(shè)定或顯示每頁的記錄數(shù)。 ' 輸入： a_intPageSize: 每頁顯示的記錄數(shù)。 ' 返回： 每頁顯示的記錄數(shù)。 '***************************************** Public Property Let PageSize(a_intPageSize) Dim strError 'PageSize獲取失敗標(biāo)志 SW_blnPageSize = false If Trim(a_intPageSize) = "" OR (Not(IsNumeric(a_intPageSize))) Then strError = strError & "<br>非法的pagesize" Else If (a_intPageSize <= 2147483647 And a_intPageSize>=-2147483648) Then SW_intPageSize = CLng(a_intPageSize) Else strError = strError & "<br>PageSize溢出" End If If (SW_intPageSize<=0) Then strError = strError & "<br>PageSize只能是正整數(shù)" End If End If If Trim(strError)="" Then SW_blnPageSize = True Else SW_strError = SW_strError & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#FFFFFF"">PageSize屬性：</font></td></tr>" & vbcrlf SW_strError = SW_strError & " <tr bgcolor=""#ffffff""><td>" & strError & "</td></tr>" & vbcrlf End If End Property '***************************************** ' 類型： 屬性 ' 目的： 設(shè)定分頁文件顯示模板信息。 ' 輸入： a_strTemplate: 模板描述。 ' 返回： 無。 '***************************************** Public Property Let Template(a_strTemplate) Dim aryTemplate,i,j,strError,strTemp,intItem,aryTemp,aryTemp1 SW_blnTemplate = false aryTemplate = Split(Trim(LCase(a_strTemplate)),"+") intItem = UBound(aryTemplate) If intItem < 4 Then strError = "<br>此屬性是必選項(xiàng)" If intItem < 4 Then '獲取文件頭 strTemp = TriM(aryTemplate(0)) If strcomp(Left(strTemp,6),"[file=")= 0 Then SW_strHeadJS = "<script src=""" & Mid(strTemp,7,Len(strTemp)-7) & """></script>" Else SW_strHeadJS = Mid(strTemp,7,Len(strTemp)-7) End If '獲取文件尾 strTemp = Trim(aryTemplate(3)) If strComp(Left(strTemp,6),"[file=") = 0 Then SW_strFootJS = "<script src=""" & Mid(strTemp,7,Len(strTemp)-7) & """></script>" Else SW_strFootJS = Mid(strTemp,7,Len(strTemp)-7) End If '獲取分頁模版 aryTemp = Split(aryTemplate(1),",") If aryTemp(0) <> "" Then strTemp = Replace(aryTemp(0),"[page=","") If IsNumeric(strTemp) Then strTemp = CInt(strTemp) If strTemp <> SW_intPageInNone Then If IsNumeric(strTemp) Then strTemp = CInt(strTemp) SW_intShowPagePos = strTemp strTemp = aryTemp(1) If strTemp <> "" Then strTemp = Replace(strTemp,"]","") If IsNumeric(strTemp) Then strTemp = CInt(strTemp) SW_intShowPageType = strTemp Else SW_intShowPagePos = SW_intPageShowInNone End If '獲取數(shù)據(jù)顯示模版 aryTemp = Split(aryTemplate(2),"|") For i = 0 To UBound(aryTemp) strTemp = LCase(Trim(aryTemp(i))) Select Case i Case 0 '獲取并設(shè)置顯示寬度 If strTemp <> "" Then strTemp = Replace(strTemp,"[data=","") SW_strShowWidth = strTemp Case 1 '獲取數(shù)據(jù)顯示方式 If IsNumeric(strTemp) Then strTemp = CInt(strTemp) SW_intShowType = strTemp Case 2 If strTemp <> "" Then strTemp = Replace(strTemp,"]","") aryTemp1 = Split(Trim(strTemp),"#") If UBound(aryTemp1) >= 3 Then SW_aryFldNote = Split(aryTemp1(0),",") SW_aryFldAlign = Split(aryTemp1(1),",") SW_aryFldWidth = Split(aryTemp1(2),",") SW_aryFldLink = Split(aryTemp1(3),",") End If End Select Next End If If strError = "" Then SW_blnTemplate = true Else SW_strError = SW_strError & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#FFFFFF"">Template屬性：</font></td></tr>" & vbcrlf SW_strError = SW_strError & " <tr bgcolor=""#ffffff""><td>" & strError & "</td></tr>" & vbcrlf End If End Property '***************************************** ' 類型： 屬性 ' 目的： 設(shè)定或顯示URL。 ' 輸入： a_strURL: 需要分頁的文件地址。 ' 返回： 需要分頁的文件地址。 '***************************************** Public Property Let URL(a_strURL) Dim strError,objFSO SW_blnGetURL = false If Trim(a_strURL)="" Then strError = "<br>非法的URL地址" Else Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(Server.Mappath(a_strURL)) Then SW_strURL = a_strURL Else strError = strError & "<br>你能確定文件 <font color=""#ff0000"">" & a_strURL & "</font> 存在么？" End If Set objFSO = Nothing End If If strError = "" Then SW_blnGetURL = true Else SW_strError = SW_strError & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#FFFFFF"">URL屬性：</font></td></tr>" & vbcrlf SW_strError = SW_strError & " <tr bgcolor=""#ffffff""><td>" & strError & "</td></tr>" & vbcrlf End If End Property '***************************************** ' 類型： 屬性 ' 目的： 設(shè)置顯示標(biāo)題時(shí)單元格的寬度 ' 輸入： a_strTleWidth:單元格寬度字符串 ' 返回： 無 '***************************************** Public Property Let TleWidth(a_strWidth) SW_strTleWidth = a_strWidth End Property '***************************************** ' 類型： 屬性 ' 目的： 設(shè)置顯示標(biāo)題時(shí)單元格分隔線的類型 ' 輸入： a_intBDType 單元格分隔線的類型 ' 返回： 無 '***************************************** Public Property Let TleBDType(a_intBDType) SW_intTleBDType = a_intBDType End Property '***************************************** ' 類型： 過程 ' 目的： 統(tǒng)計(jì)總記錄數(shù)、計(jì)算總頁數(shù) ' 輸入： 無 ' 返回： 無 '***************************************** Sub Init() Dim intPostion,strError,i,objRSTemp,lngTotalRecord If Not (SW_blnConn and SW_blnOpenRS and SW_blnPageSize and SW_blnGetURL) Then Call ShowErrors() Exit Sub End If If SW_objRS.Eof And SW_objRS.Bof Then strError = strError & "<br>庫中無任何記錄" End If '計(jì)算總計(jì)錄數(shù) Set objRSTemp = SW_objConn.Execute("SELECT * FROM SW_RecCount") lngTotalRecord = CLng(objRSTemp("SW_RecCount").Value) SW_lngTotalRecord = lngTotalRecord If (SW_lngTotalRecord<=2147483647 AND SW_lngTotalRecord>=-2147483648) Then SW_lngTotalRecord = CLng(SW_lngTotalRecord) Else strError = strError & "<br>分頁初始化時(shí)：總記錄數(shù)溢出" End If If SW_lngTotalRecord <=0 Then strError = strError & "<br>分頁初始化時(shí)：總記錄數(shù)小于零" '計(jì)算總頁數(shù) If SW_lngTotalRecord Mod SW_intPageSize = 0 Then SW_lngTotalPage = CLng(SW_lngTotalRecord \ SW_intPageSize * -1)*-1 Else SW_lngTotalPage = CLng(SW_lngTotalRecord \ SW_intPageSize * -1)*-1 + 1 End If '獲取頁數(shù) SW_lngPageNo = Trim(Request.QueryString("pageno")) If SW_lngPageNo = "" Then SW_lngPageNo = Trim(Request.Form("PageNo")) If SW_lngPageNo = "" Then SW_lngPageNo = 1 '如果沒有選擇第幾頁，則默認(rèn)顯示第一頁 If SW_lngPageNo <> "" And IsNumeric(SW_lngPageNo) Then If (SW_lngPageNo <= 2147483647 And SW_lngPageNo>=-2147483648) Then SW_lngPageNo = CLng(SW_lngPageNo) Else strError = strError & "<br>頁數(shù)溢出，請檢查！" End If If (SW_lngPageNo<=0) Then strError = strError & "<br>頁數(shù)只能是正整數(shù)！" Else strError = strError & "<br>你確信此頁數(shù)　<font color=""#FF0000"">" & SW_lngPageNo & "</font>　存在？" End If If (SW_lngPageNo > SW_lngTotalPage AND SW_lngTotalPage<>0) Then SW_lngPageNo = SW_lngTotalPage SW_objRS.PageSize = SW_intPageSize SW_objRS.AbsolutePage = SW_lngPageNo intPostion = InstrRev(SW_strURL,"?") SW_strFormAction = SW_strURL If intPostion > 0 Then SW_strURL = SW_strURL & "&PageNo=" Else SW_strURL = SW_strURL & "?PageNo=" End If If Trim(SW_strFields) = "" Then For i = 0 To SW_objRS.Fields.Count-1 SW_strFields = SW_strFields & SW_objRS(i).Name & "," Next End If SW_strFields = LCase("," & Trim(SW_strFields)) If IsArray(SW_aryFldName) Then For i = LBound(SW_aryFldName) To Ubound(SW_aryFldName) If Instr(SW_strFields,"," & SW_aryFldName(i) & ",") = 0 Then strError = strError & "<br>字段名 <font color=""#ff0000"">" & SW_aryFldName(i) & "</font> 正確嗎？" Next If (IsArray(SW_aryFldNote) AND UBound(SW_aryFldName)>UBound(SW_aryFldNote)) Then strError = strError & "<br>字段相應(yīng)中文說明項(xiàng)目不能小于字段個(gè)數(shù)" If (IsArray(SW_aryFldWidth) AND UBound(SW_aryFldName)>UBound(SW_aryFldWidth)) Then strError = strError & "<br>字段相應(yīng)寬度項(xiàng)目不能小于字段個(gè)數(shù)" If (IsArray(SW_aryFldAlign) AND UBound(SW_aryFldName)>UBound(SW_aryFldAlign)) Then strError = strError & "<br>字段數(shù)據(jù)相應(yīng)對齊方式項(xiàng)目不能小于字段個(gè)數(shù)" If (IsArray(SW_aryFldLink) AND UBound(SW_aryFldName)>UBound(SW_aryFldLink)) Then strError = strError & "<br>字段數(shù)據(jù)相應(yīng)文件鏈接項(xiàng)目不能小于字段個(gè)數(shù)" End If If Trim(strError) = "" Then SW_blnInit = true Else SW_strError = SW_strError & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#FFFFFF"">Init過程：</font></td></tr>" & vbcrlf SW_strError = SW_strError & " <tr bgcolor=""#ffffff""><td>" & strError & "</td></tr>" & vbcrlf End If Response.Write(SW_strHeadJS & vbcrlf) End Sub '***************************************** ' 類型： 過程 ' 目的： 顯示分頁信息 ' 輸入： 無 ' 返回： 無 '***************************************** Private Sub Pages() Dim strPages,k,intTemp,intTemp1 If Not(SW_blnInit) Then Call ShowErrors() If SW_lngTotalPage = 1 Then Exit Sub Response.Write("<table align=""center"" class=""css_ShowPage"" width=""" & SW_strShowWidth & """>" & vbcrlf) Response.Write(" <tr>" & vbcrlf) Response.Write(" <td>" & vbcrlf) Response.Write(" <table width=""100%"">" & vbcrlf) Response.Write(" <tr>" & vbcrlf & " <td align=""center"" valign=""middle"" class="".test1"">" & vbcrlf) If SW_lngTotalPage >= 1 Then SELECT CASE SW_intShowPageType Case SW_intShowChinese If SW_lngPageNo <= 1 Then Response.Write ("<font color=""" & SW_strFTColor & """>首頁 前頁 <a href=""" & SW_strURL & SW_lngPageNo+1 & """>后頁</a> <a href=""" & SW_strURL & SW_lngTotalPage & """>末頁</a>" & vbcrlf) Else If SW_lngPageNo >= SW_lngTotalPage Then Response.Write ("<font color=""" & SW_strFTColor & """><a href=""" & SW_strURL & "1"">首頁</a> <a href=""" & SW_strURL & SW_lngPageNo -1 & """>前頁</a> " & "后頁 末頁" & vbcrlf) Else Response.Write ("<font color=""" & SW_strFTColor & """><a href=""" & SW_strURL & "1"">首頁</a> <a href=""" & SW_strURL & SW_lngPageNo -1 & """>前頁</a> " & "<a href=""" & SW_strURL & SW_lngPageNo+1 & """>后頁</a> <a href=""" & SW_strURL & SW_lngTotalPage & """>末頁</a>" & vbcrlf) End If End If Response.Write ("　頁次：<b>" & SW_lngPageNo & "</b>/" & SW_lngTotalPage & "頁 共<b>" & SW_lngTotalRecord & "</b>條記錄　<b>" & SW_intPageSize & "</b>條/頁</td>" & vbcrlf) Response.Write(" <form name=""gopage"" action=""" & SW_strFormAction & """ method=""post"">" & vbcrlf) Response.Write(" <td> 第") Response.Write(" <input type=""text"" name=""pageno"" size=""3"" maxlength=4 title=""請輸入頁號(hào),然后回車"">頁 " & vbcrlf) Response.Write("<input type=""submit"" value=""GO""></td></form></tr>" & vbcrlf) Case SW_intShowEnglish If SW_lngPageNo <= 1 Then Response.Write ("<font color=""" & SW_strFTColor & """>First Prev <a href=""" & SW_strURL & SW_lngPageNo+1 & """>Next</a> <a href=""" & SW_strURL & SW_lngTotalPage & """>Last</a>" & vbcrlf) Else If SW_lngPageNo >= SW_lngTotalPage Then Response.Write ("<font color=""" & SW_strFTColor & """><a href=""" & SW_strURL & "1"">First</a> <a href=""" & SW_strURL & SW_lngPageNo -1 & """>Prev</a> " & "Next Last" & vbcrlf) Else Response.Write ("<font color=""" & SW_strFTColor & """><a href=""" & SW_strURL & "1"">First</a> <a href=""" & SW_strURL & SW_lngPageNo -1 & """>Prev</a> " & "<a href=""" & SW_strURL & SW_lngPageNo+1 & """>Next</a> <a href=""" & SW_strURL & SW_lngTotalPage & """>Last</a>" & vbcrlf) End If End If Response.Write ("　Page No：<b>" & SW_lngPageNo & "</b>/" & SW_lngTotalPage & "　Total Records:<b>" & SW_lngTotalRecord & "</b>　PageSize:<b>" & SW_intPageSize & "</b></td>" & vbcrlf) Response.Write(" <form name=""gopage"" action=""" & SW_strFormAction & """ method=""post"">" & vbcrlf) Response.Write(" <td> ") Response.Write(" <input type=""text"" name=""pageno"" size=""3"" maxlength=4 title=""Please input pageno then enter""> " & vbcrlf) Response.Write("<input type=""submit"" value=""GO""></td></form></tr>" & vbcrlf) Case SW_intShowCharacter strPages = "" intTemp = (SW_lngPageNo \ SW_intShowPages) * SW_intShowPages If SW_lngPageNo Mod SW_intShowPages = 0 Then intTemp = intTemp - 10 For k = 1 To SW_intShowPages intTemp1 = intTemp + k If intTemp1 > SW_lngTotalPage Then Exit For If SW_lngPageNo = intTemp1 Then If Len(Trim(CStr(intTemp1)))<2 Then strPages = strPages & " 0" & CStr(intTemp1) Else strPages = strPages & " " & CStr(intTemp1) End If Else strPages = strPages & "　<a href=""" & SW_strURL & CStr(intTemp1) & """>" If Len(Trim(CStr(intTemp1)))<2 Then strPages = strPages & "0" & CStr(intTemp1) Else strPages = strPages & CStr(intTemp1) End If strPages = strPages & "</a>" End If Next If SW_lngPageNo <= 1 Then Response.Write ("<font face=""Webdings"">9 7</font>" & strPages & " <a href=""" & SW_strURL & SW_lngPageNo+1 & """><font face=""Webdings"">8</font></a> <a href=""" & SW_strURL & SW_lngTotalPage & """><font face=""Webdings"">:</font></a>" & vbcrlf) Else If SW_lngPageNo >= SW_lngTotalPage Then Response.Write ("<a href=""" & SW_strURL & "1""><font face=""Webdings"">9</font></a> <a href=""" & SW_strURL & SW_lngPageNo -1 & """><font face=""Webdings"">7</font></a>" & strPages & " <font face=""Webdings"">8 :</font>" & vbcrlf) Else Response.Write ("<a href=""" & SW_strURL & "1""><font face=""Webdings"">9</font></a> <a href=""" & SW_strURL & SW_lngPageNo -1 & """><font face=""Webdings"">7</font></a> " & strPages & " <a href=""" & SW_strURL & SW_lngPageNo+1 & """><font face=""Webdings"">8</font></a> <a href=""" & SW_strURL & SW_lngTotalPage & """><font face=""Webdings"">:</font></a>" & vbcrlf) End If End If Response.Write ("</td>" & vbcrlf) Response.Write(" <form name=""gopage"" action=""" & SW_strFormAction & """ method=""post"">" & vbcrlf) Response.Write(" <td> ") Response.Write(" <input type=""text"" name=""pageno"" size=""3"" maxlength=10 title=""Please input pageno then enter""> " & vbcrlf) Response.Write("<input type=""submit"" value=""GO""></td></form></tr>" & vbcrlf) ' Case SW_intShowImage Case Else Response.Write("<br>對不起，你設(shè)置的顯示方式SWPage不支持。") Response.End End Select End If Response.Write(" </table>" & vbcrlf) Response.Write(" </td>" & vbcrlf) Response.Write(" </tr>" & vbcrlf) Response.Write("</table>" & vbcrlf) End Sub '***************************************** ' 類型： 過程 ' 目的： 顯示分頁數(shù)據(jù) ' 輸入： 無 ' 返回： 無 '***************************************** Sub Show() Dim i,j If Not(SW_blnInit) Then Call ShowError() j = 0 If SW_objRS.Eof And SW_objRS.Bof Then Response.Write("庫中無任何記錄<br>") Response.End Else If SW_intShowPagePos = SW_intPageInAll Or SW_intShowPagePos = SW_intPageInTop Then Call Pages() '空行 Response.Write("<table><tr><td height=""5""></td></tr></table>" & vbcrlf) SELECT CASE SW_intShowType Case SW_intHorizontalView '橫排 Do While (Not SW_objRS.Eof AND j<SW_intPageSize) Response.Write(" <table class=""css_showdata_tb"" width=""" & SW_strShowWidth & """ align=""center"">" & vbcrlf) For i = LBound(SW_aryFldName) To UBound(SW_aryFldName) Response.Write(" <tr class=""css_showdata_title_H"" height=""28"">" & vbcrlf) Response.Write(" <td class=""css_showdata_V"" align=""center"" width=""" & SW_strTleWidth & """>" & vbcrlf & "&nbsp;") If (IsArray(SW_aryFldNote)) Then Response.Write(SW_aryFldNote(i) & vbcrlf) Else Response.Write(SW_aryFldName(i) & vbcrlf) End If Response.Write(" </td>" & vbcrlf & " <td class=""css_showdata_td"" ") If (IsArray(SW_aryFldWidth)) Then Response.Write(" width=""" & SW_aryFldWidth(i) & """") If (IsArray(SW_aryFldAlign)) Then Response.Write(" align=""" & SW_aryFldAlign(i) & """") Response.Write(">" & vbcrlf) If (IsArray(SW_aryFldLink) AND (Trim(SW_aryFldLink(i))<>"")) Then Response.Write("<a href=""" & SW_aryFldLink(i) & """ target=""_blank"">" & SW_objRS(SW_aryFldName(i)) & "</a></td>" & vbcrlf) Else Response.Write(SW_objRS(SW_aryFldName(i)) & "</td>" & vbcrlf) End If Response.Write(" </tr>" & vbcrlf) Next Response.Write(" </table>" & vbcrlf) '空行 Response.Write("<table><tr><td height=""5""></td></tr></table>" & vbcrlf) SW_objRS.MoveNext j = j + 1 Loop CASE SW_intVerticalView '豎排 If SW_intTleBDType = SW_intTleNoBorder Then Response.Write(" <table class=""css_showdata_tb"" align=""center"" width=""" & SW_strShowWidth & """>" & vbcrlf) Response.Write(" <tr class=""css_title""><td colspan=""" & CStr(UBound(SW_aryFldName)+1) & """>" & vbcrlf) Response.Write(" <table border=""0"" width=""100%""><tr>") For i = LBound(SW_aryFldName) To UBound(SW_aryFldName) Response.Write(" <td align=""center""") If (IsArray(SW_aryFldWidth)) Then Response.Write(" width=""" & SW_aryFldWidth(i) & """>") If (IsArray(SW_aryFldNote)) Then Response.Write(SW_aryFldNote(i) & vbcrlf) Else Response.Write(SW_aryFldName(i) & vbcrlf) End If Response.Write(" </td>" & vbcrlf) Next Response.Write(" </tr></table></td></tr>" & vbcrlf) Else Response.Write(" <table class=""css_showdata_tb"" width=""" & SW_strShowWidth & """ align=""center"">" & vbcrlf) Response.Write(" <tr class=""css_Title"" height=""28"">" & vbcrlf) For i = LBound(SW_aryFldName) To UBound(SW_aryFldName) Response.Write(" <td class=""css_showdata_td"" align=""center""") If (IsArray(SW_aryFldWidth)) Then Response.Write(" width=""" & SW_aryFldWidth(i) & """>") If (IsArray(SW_aryFldNote)) Then Response.Write(SW_aryFldNote(i)) Else Response.Write(SW_aryFldName(i)) End If Response.Write(" </td>" & vbcrlf) Next Response.Write(" </tr>" & vbcrlf) End If Do While (Not SW_objRS.Eof AND j<SW_intPageSize) Response.Write(" <tr class=""CSS_ShowData_tr"" height=""28"">" & vbcrlf) For i = LBound(SW_aryFldName) To UBound(SW_aryFldName) Response.Write( "<td class=""css_showdata_td""") If (IsArray(SW_aryFldAlign)) Then Response.Write(" align=""" & SW_aryFldAlign(i) & """ width=""" & SW_aryFldWidth(i) & """>") If (IsArray(SW_aryFldLink) AND Trim(SW_aryFldLink(i)<>"")) Then Response.Write(" <a href=""" & SW_aryFldLink(i) & """ target=""_blnak"">" & SW_objRS(SW_aryFldName(i)) & "</a></td>") Else Response.Write(SW_objRS(SW_aryFldName(i)) & " </td>" & vbcrlf) End If Next Response.Write(" </tr>" & vbcrlf) SW_objRS.MoveNext j = j + 1 Loop Response.Write(" </table>" & vbcrlf) Response.Write("<table><tr><td height=""5""></td></tr></table>" & vbcrlf) CASE ELSE Response.Write("<br>你還沒設(shè)置數(shù)據(jù)的顯示方式?或者你的設(shè)置的顯示方式SWPage不支持！<br>") Response.End End SELECT If SW_intShowPagePos = SW_intPageInAll Or SW_intShowPagePos = SW_intPageInBottom Then Call Pages() Response.Write( SW_strFootJS & vbcrlf) End If End Sub '***************************************** ' 類型： 過程 ' 目的： 顯示分頁類中出現(xiàn)的錯(cuò)誤信息 ' 輸入： 無 ' 返回： 無 '***************************************** Private Sub ShowErrors() If SW_strError <> "" Then SW_strError = "<table bgcolor=""#0000"" cellspacing=""1"" cellpadding=""0"" width=""90%"" align=""center"">" & vbcrlf & " <tr bgcolor=""#ff9900"" height=""30""><td align=""center"" valign=""middle""><b>SWPage分頁類錯(cuò)誤信息<b></td></tr>" & vbcrlf & SW_strError & "</table>" & vbcrlf Response.Write(SW_strError) Response.End End If End Sub '***************************************** ' 類型： 過程 ' 目的： 釋放資源 ' 輸入： 無 ' 返回： 無 '***************************************** Sub Close() Set SW_objRS = Nothing Set SW_objConn = Nothing End Sub End Class %>

[Ctrl+A 全部選擇 提示：你可先修改部分代碼，再按運(yùn)行]

四、注意事項(xiàng)
　　你可以隨意修改、使用此代碼，但是當(dāng)你修改后，希望能給我一份拷貝(cjj8110@xxx163.com為了防止垃圾郵件，發(fā)郵件時(shí)請把163前面的"xxx"刪除)。如在使用中發(fā)現(xiàn)有Bug請通知我或幫我改正，需要注意的是本類需要用到FSO，主要是URL屬性中用到它�，F(xiàn)在不使有RecordSet對象的RecordCount屬性來獲取總記錄數(shù)了，而是將總記錄數(shù)存在另外的一個(gè)表中，所以在通用方面降低了很多，有興趣的朋友也可以用Application對象來記錄總記錄數(shù)。不管哪種方法，都使添加記錄、刪除記錄的操作麻煩起來了，但分頁中最耗時(shí)的地方就是用RecordCount來取總記錄數(shù)了，當(dāng)然如果你的庫記錄數(shù)不多的話，是無所謂的。但如果有幾十或幾百萬條記錄時(shí)，可以很明顯的感覺到用不用RecordCount的區(qū)別了。

未經(jīng)本人允許，請勿轉(zhuǎn)載！

出處：藍(lán)色理想
責(zé)任編輯：cjj

◎進(jìn)入論壇網(wǎng)絡(luò)編程版塊參加討論