【正文】 9只需從產(chǎn)品分類表中獲取出全部分類信息并循環(huán)顯示即可。產(chǎn)品地帶頁面的運行結(jié)果如圖 所示。表 1 前臺頁面說明區(qū)域 名稱 說明 對應(yīng)文件1 網(wǎng)站導(dǎo)航 主要展示網(wǎng)站的旗幟廣告和站內(nèi)導(dǎo)航條 2 左側(cè)文件 主要用于顯示網(wǎng)站公告、產(chǎn)品排行、產(chǎn)品規(guī)格、友情鏈接等信息 3 熱點新聞 主要用于顯示網(wǎng)站的熱點新聞 4 產(chǎn)品介紹 主要用于網(wǎng)站的產(chǎn)品信息 285 版權(quán)信息 顯示網(wǎng)站版權(quán)信息 產(chǎn)品地帶模塊設(shè)計對于一個企業(yè)的網(wǎng)站宣傳自己公司的產(chǎn)品是必不可少了。服裝企業(yè)網(wǎng)站首頁的運行結(jié)果如圖 所示。}table {fontsize: 12px。}a:active {color: 000000。}a:hover {color: 0066CC。}a:visited {color: 003366。}a:link {color: 993300。textalign: center。fontweight: bold。} {background: EFF7FF。bordertopwidth: 1px。borderleftcolor: E0E0E0。}.PageView table {borderleftstyle: solid。borderrightwidth: 1px。borderrightcolor: E0E0E0。}.PageView td {borderrightstyle: solid。 If s And IsNumeric(s) Then toNum = CLng(s) Else toNum = Default End If End function Rem 類初始化 Public Sub InitClass() sbooInitState = True If Not(IsObject(sobjConn)) Then sbooInitState = False Call InitRecordCount() Call InitPageInfo() End SubEnd ClassDim strLocalUrlstrLocalUrl = (SCRIPT_NAME)Dim intPageNowintPageNow = (page)Dim intPageSize, strPageInfo22intPageSize = 30Dim arrRecordInfo, iDim Connf__OpenConn Dim clsRecordInfo Set clsRecordInfo = New Cls_PageView = [myTable] = strLocalUrl = [ID], [Title], [LastTime] = [ID] 10000 = [ID] ASC = [ID] = 20 = intPageNow = RecordCount = page = 0 = Conn arrRecordInfo = strPageInfo = Set clsRecordInfo = nothingf__CloseConn%htmlheadmeta equiv=ContentType content=text/html。 sintPageSize amp。 sintRecordCount amp。 /strong sstrPageInfo = sstrPageInfo amp。 /font / amp。 頁次：strongfont color=990000 21amp。 sintPageMax amp。 a href= amp。 (sintPageNow + 1) amp。 a href= amp。 上一/a End If If sintPageMax sintPageNow 1 then sstrPageInfo = sstrPageInfo amp。 surl amp。 1首頁/a sstrPageInfo = sstrPageInfo amp。 a href= amp。 sstrPageVar amp。 =20 Else surl = surl amp。 amp。 sstrCookiesName) = sintTmp Else sintRecordCount = sintTmp End If End Sub Rem 初始化分頁信息 Private Sub InitPageInfo() sstrPageInfo = If Not(sbooInitState) Then Exit Sub Dim surl surl = sstrPageUrl If Instr(1, surl, ?, 1) 0 Then surl = surl amp。 sstrTableName amp。 ) amp。 sstrCookiesName), 1) If ((sintTmp 0) Or (sintRefresh = 1))Then Dim sql, rs sql = SELECT COUNT( amp。 _ sstrCondiction amp。 _ FROM amp。 Value Else sstrOrderList = End If End Property Rem 用于統(tǒng)計記錄數(shù)的字段 Public Property Let strPrimaryKey(Value) sstrPrimaryKey = Value End Propert Rem 每頁顯示的記錄條數(shù) Public Property Let intPageSize(Value)17 sintPageSize = toNum(Value, 20) End Property Rem 數(shù)據(jù)庫連接對象 Public Property Let objConn(Value) Set sobjConn = Value End Property Rem 當(dāng)前頁 Public Property Let intPageNow(Value) sintPageNow = toNum(Value, 1) End Property Rem 頁面參數(shù) Public Property Let strPageVar(Value) sstrPageVar = Value End Property Rem 是否刷新. 1 為刷新, 其他值則不刷新 Public Property Let intRefresh(Value) sintRefresh = toNum(Value, 0) End Property Rem 獲得當(dāng)前頁 Public Property Get intPageNow() intPageNow = singPageNow End Property Rem 分頁信息 Public Property Get strPageInfo() strPageInfo = sstrPageInfo End Property Rem 取得記錄集, 二維數(shù)組或字串, 在進(jìn)行循環(huán)輸出時必須用 IsArray() 判斷18 Public Property Get arrRecordInfo() If Not sbooInitState Then Exit Property End If Dim rs, sql sql = SELECT amp。 毫秒 End IfEnd functionRem Class Cls_PageView Private sbooInitState Private sstrCookiesName Private sstrPageUrl Private sstrPageVar Private sstrTableName Private sstrFieldsList Private sstrCondiction Private sstrOrderList Private sstrPrimaryKey Private sintRefresh Private sintRecordCount Private sintPageSize Private sintPageNow Private sintPageMax Private sobjConnPrivate sstrPageInf Private Sub Class_InitializeCall ClearVars() End SubPrivate Sub class_terminate()15 Set sobjConn = nothing End Sub Public Sub ClearVars() sbooInitState = False sstrCookiesName = sstrPageUrl = sstrPageVar = page sstrTableName = sstrFieldsList = sstrCondiction = sstrOrderList = sstrPrimaryKey = sintRefresh = 0 sintRecordCount = 0 sintPageSize = 0 sintPageNow = 0 sintPageMax = 0 End Sub Rem 保存記錄數(shù)的 Cookies 變量 Public Property Let strCookiesName(Value) sstrCookiesName = Value End Property Rem 轉(zhuǎn)向地址 Public Property Let strPageUrl(Value) sstrPageUrl = Value End Property Rem 表名 Public Property Let strTableName(Value)16 sstrTableName = Value End Property Rem 字段列表 Public Property Let strFieldsList(Value) sstrFieldsList = Value End Property Rem 查詢條件 Public Property Let strCondiction(Value) If Value Then sstrCondiction = WHERE amp。 秒14 Else tTimeOver = FormatNumber((Timer() intDateStart) * 1000, 3, true) getTimeOver = 執(zhí)行時間: amp。 (strDbPath) Set conn = () connstr End functionRem Rem 關(guān)閉數(shù)據(jù)庫連接Rem function f__CloseConn() If IsObject(conn) Then End IfSet conn = nothing End functionRem Rem 獲得執(zhí)行時間Rem function getTimeOver(iflag) Dim tTimeOver If iflag = 1 Then tTimeOver = FormatNumber(Timer() intDateStart, 6, true) getTimeOver = 執(zhí)行時間: amp。 vbCr) (br/) I = I + 1 Loop %數(shù)據(jù)庫記錄通用快速分頁類：%LANGUAGE = VBScript CODEPAGE=936%%Option Explicit%%Dim intDateStartintDateStart = Timer()Rem 打開數(shù)據(jù)庫連接Rem function f__OpenConn() Dim strDbPath13Dim connstrstrDbPath = ../db/ connstr = Provider=。 _ Table type: amp。 rstSchema(TABLE_NAME) amp。Data Source= amp。) MyConn%下面是獲取數(shù)據(jù)表的方法： 直接用ado的 OpenSchema()方法打開adSchemaTables，建立一個schema記錄集：% Const adSchemaTables = 20 adSchemaColum