【文章內(nèi)容簡介】 如表 1所示： 表 1 網(wǎng)站登錄數(shù)據(jù)表 字段名稱 數(shù)據(jù)類型 說明 主關(guān)鍵字 ID 自動編號 編號 * Title 文本 網(wǎng)站名稱 Content 文本 網(wǎng)站內(nèi)容簡介 URL 文本 網(wǎng)站地址 Verify 是 /否 管理員是否已經(jīng)確認 Keyword 文本 網(wǎng)站關(guān)鍵字 Name 文本 聯(lián)系人姓名 Email 文本 聯(lián)系人 Email 文本 聯(lián)系人 qq Address 文本 聯(lián)系人地址 PostCode 文本 聯(lián)系人郵政編碼 Time 日期 /時間 網(wǎng)站登錄時間 Click 數(shù)字 網(wǎng)站訪問次數(shù) Sort 文本 子類名稱 Sort_path 文本 子類路徑 Sort_ID 數(shù)字 子類 ID 分類目錄數(shù)據(jù)庫表在數(shù)據(jù)庫中標記的是 Sort 數(shù)據(jù)表，它記錄的是子類信息，包括子類名稱、父類 ID 和是否在首頁顯示。 Sort 表的具體結(jié)構(gòu)如表 2 所示： 表 2 分類目錄數(shù)據(jù)表 字段名稱 數(shù)據(jù)類型 說明 主關(guān)鍵字 ID 自動編號 編號 * Sort 文本 子類名稱 SortID 數(shù)字 父類 ID Show 數(shù)字 是否在首頁顯示 第 5 頁 共 23頁 管理員數(shù)據(jù)表即：數(shù)據(jù)表 Admin， 記錄的是管理員的登錄名和密碼。具體結(jié)構(gòu)如表 3 所示 ： 表 3 管理員數(shù)據(jù)表 字段名稱 字段名稱 說明 字段名稱 ID 自動編號 編號 * UserName 文本 管理員登錄名 Password 文本 管理員密碼 圖片 數(shù)據(jù)表即： PIC 數(shù)據(jù)表，記錄的是圖片編號、圖片名稱、圖片介紹、圖片地址、是否確認、圖片關(guān)鍵字、小圖片相對路徑、大圖片相對路徑、圖片添加的日期、網(wǎng)站訪問次數(shù)。具體結(jié)構(gòu)如表 5 所示 ： 表 4 圖片數(shù)據(jù)表 字段名稱 數(shù)據(jù)類型 說明 主關(guān)鍵字 id 自動編號 編號 * Name 文本 圖片名稱 Introduce 文本 圖片內(nèi)容簡介 URL 文本 圖片地址 Verify 是 /否 管理員是否已經(jīng)確認 Keyword 文本 圖片關(guān)鍵字 smallImg 文本 小圖片相對路徑 bigImg 文本 大圖片相對路徑 remendDate 日期 /時間 設置為圖片添加的日期 Click 數(shù)字 網(wǎng)站訪問次數(shù) 系統(tǒng)的功能模塊圖 系統(tǒng)的功能模塊圖如圖 1 所示： 圖 1 系統(tǒng)的功能模塊圖 主界面 網(wǎng)站搜索 管理員登錄 圖片搜索 分類搜索 網(wǎng)站管理 網(wǎng)站登錄 第 6 頁 共 23頁 4 系統(tǒng)前臺模塊設計 網(wǎng)站搜索及圖片搜索模塊的實現(xiàn) 功能描述 用戶訪問系統(tǒng)時，首先接觸到的是首頁面 ，它提供了到達 6 個功能模塊的超鏈接，默認顯示為網(wǎng)站搜索模塊。另外頁面還提供一個表單 from，讓用戶輸入要搜索的關(guān)鍵字，當用戶輸入關(guān)鍵字單擊搜索按鈕后，表單中的數(shù)據(jù)將被提交到 文件中處理。在 首先讀取傳遞過來的數(shù)據(jù)，然后判斷該數(shù)據(jù)是否為空。如果不為空。則將數(shù)據(jù)分割為多個關(guān)鍵字，然后在數(shù)據(jù)庫中查找匹配的記錄，并在頁面上顯示。 流程圖 在網(wǎng)站搜索模塊中，數(shù)據(jù)流程如 圖 2 所示： 圖 2 網(wǎng)站搜索流程圖 界面設計 搜索模塊的界面設計如圖 3 所示： 圖 3 網(wǎng)頁搜索模塊界面圖 數(shù)據(jù)是否為空 關(guān)鍵字處理 否 是 輸入關(guān)鍵字 搜索并顯示結(jié) 第 7 頁 共 23頁 圖片搜索結(jié)果如圖 4 所示： 圖 4 圖片搜索結(jié)果圖 代碼設計 輸入關(guān)鍵字后，數(shù)據(jù)被提交到 中，首先使用 Request 對象的QueryString()方法讀取表單傳遞過來的關(guān)鍵字。 if keyword= then 39。關(guān)鍵詞為空 39。給出提示，返回前一頁。 () 函數(shù)的作用是返回前一頁 Script(39。 請 輸 入 關(guān) 鍵 詞 ！39。)。()。/Script else 然后將多個關(guān)鍵字進行處理后分開保存在一維數(shù)組中： keyword = replace(keyword,39。, ) 39。用空格替換關(guān)鍵詞中的字符 39。 keyword = replace(keyword,[, ) 39。用空格替換關(guān)鍵詞中的字符 [ keyword = replace(keyword,], ) 39。用空格替換關(guān)鍵詞中的字符 ] keyword = replace(keyword,， , ) 39。用空格替換關(guān)鍵詞中的中文字符 ， keyword = replace(keyword, ) 39。用空格替換關(guān)鍵詞中的英文字符 , keyword = replace(keyword, , ) 第 8 頁 共 23頁 keyword = replace(keyword, , ) keyword = replace(keyword, , ) 39。清除多余的空格 keyword=ltrim(rtrim(keyword)) 39。去掉關(guān)鍵詞左邊和右邊的空格。函數(shù) LTrim 去掉字符串左邊空格，函數(shù) RTrim 去掉字符串右邊空格 keywordlist=split(keyword) 39。將用戶輸入的關(guān)鍵詞用空格分成多個關(guān)鍵詞并保存在一維數(shù)組 keywordlist 中 然后在循環(huán)寫出查詢的 spl 語句： set rs=() 39。建立 RecordSet 對象 for i=0 to ubound(keywordlist) 39。ubound 函數(shù)獲得數(shù)組最大下標值 keywordlist(i) = Trim(keywordlist(i)) 39。Trim 函數(shù)去掉字符串左邊和右邊函數(shù) sql=sql amp。 like 39。% amp。 keywordlist(i) amp。 %39。 or 39。sql 語句， 指的是數(shù)據(jù)表 web 中 title 列的值 , 中包含關(guān)鍵詞 keywordlist(i) sql=sql amp。 like 39。% amp。 keywordlist(i) amp。 %39。 or sql=sql amp。 like 39。% amp。 keywordlist(i) amp。 %39。 or sql=sql amp。 like 39。% amp。 keywordlist(i) amp。 %39。 or next sql=Left(sql,(LEN(sql)3)) 39。LEN 函數(shù)獲得字符 串的長度， left 函數(shù)獲得字符串從左邊數(shù)指定數(shù)目的字符，在此是去掉字符串中最后幾位的 or if path= or sort_path=/0/ then search_sql=verify=0 and (amp。sqlamp。) order by click desc else search_sql=sort_path like 39。% amp。 sort_path amp。 %39。 and verify=0 and (amp。sqlamp。) order by click desc end if 39。從數(shù)據(jù)庫中查詢滿足條件的記錄，并保存在 rs 中 selectid,sort_path,sort_id,title,keyword,url,content,address,postcode,verify,click from web where amp。search_sql,conn,1,1 執(zhí)行查詢。使用 html 代碼顯示查詢頁面的網(wǎng)站搜索部分，然后判斷是否存 第 9 頁 共 23頁 在滿足條件的記錄，如果存在，則使 用 showcontent()過程顯示滿足條件的所有記錄，并將記錄中的關(guān)鍵字用紅色字體顯示。然后使用 showpage()過程顯示記錄的頁數(shù)信息，包括當前頁、總頁數(shù)等。最后顯示查詢頁面的底部的管理入口及版本信息，并建立到管理員登錄的超連接。 分類目錄模塊的實現(xiàn) 功能描述 分類目錄界面由 實現(xiàn)，在該頁面顯示的分類信息包括 sort_id=0 的分類和 sort_id=1 的分類，即最上級分類和要求顯示在首頁上的下級分類。例如，如果把 “醫(yī)療健康 ”作為最上級分類。 “醫(yī)療健康 ”又分為以下 10 個類： 緊急救助、瘦身、性保健 /知識、心理健康、醫(yī)院、癌癥、醫(yī)學、營養(yǎng)品、養(yǎng)生保健和女性健康。設置這 10 個分類也顯示在首頁上，即 show=1。這 10 個分類的下一級分類不在首頁上顯示。當單擊分類目錄首頁上的某分類時，將進入 文件，在該文件中，將詳細顯示這一分類及其下級分類，并顯示屬于這一分類的所有網(wǎng)站信息。 工作流程和代碼設計 單擊分類目錄首頁上的某一分類，進入 文件，在該文件中，首先使用 Request 對象的 QueryString（）方法讀取 sort_id 的值在數(shù)據(jù)庫中查找這一分類的所有上級分類，并連接在一起，其逐級顯示分類的代碼如下： locality= amp。sort 39。要在網(wǎng)頁上顯示的逐級分類 ,如計算機 軟件 編程語言 if sort_id0 then 39。sort_id 0 表示該類存在上級分類 for i=1 to 8 39。8 表示在本系統(tǒng)中分類只有 8 級 set rs=(select * from sort where id=amp。sort_id) if and then else sort=rs(sort) locality= a href=?sort_id=amp。sort_idamp。amp。sortamp。/aamp。locality sort_id=rs(sort_id) 39。上一層分類的 id end if set rs = nothing next end if 第 10 頁 共 23頁 若該分類還存在下級分類，將顯示下級分類，最后顯示 屬于這一分類的所有網(wǎng)站信息，在顯示網(wǎng)站信息的代碼出來中，用到了兩個過程： showcontent()過程和 showpage()過程。 Showcontent()過程顯示所有滿足條件的記錄。 Showpage()過程顯示頁數(shù)信息，包括當前頁、總頁數(shù)等，其中過程 showpage()的處理代碼如下： Function showpage(totalnumber,maxperpage,filename) 39。定義過程 Dim n If totalnumber Mod maxperpage=0 Then 39。totalnumber 能夠整除maxperpage n= totalnumber \ maxperpage Else 39。totalnumber 不 能 夠 整 除maxperpage n= totalnumber \ maxperpage+1 End If If CurrentPage2 Then 39。當前頁是第一頁 % 第一頁 上一頁 % Else 39。當前頁不是第一頁 % a href=%=filename%?sort_id=%=rqid%amp。page=1 第一頁 /a a href=%=filename%?sort_id=%=rqid%amp。page=%=CurrentPage1%上一頁/a % End If If ncurrentpage1 Then 39?？傢摂?shù)小于或等于當前頁 % 下一頁 最后一頁 % Else 39?？傢摂?shù)大于當前頁 …… End If % 共 %=totalnumber%個網(wǎng)站 頁次： %=CurrentPage%/%=n%頁 網(wǎng)站登錄模塊的實現(xiàn) 功能描述 網(wǎng)站登錄頁面為 ,在網(wǎng)站登錄模塊，包含一個表單，用于網(wǎng)站聯(lián)系人輸入網(wǎng)站和個人信息，在表單中，包含輸入網(wǎng)站信息的文本域。其中。顯示分類 第 11 頁 共 23頁 目錄的文本域為 sort_id，它為只讀類型，只能單擊文本域右邊的 “選擇分類 ”按鈕來輸入，當網(wǎng)站聯(lián)系人輸入所有的信息，并單擊 “確定 ”按鈕，然后判斷用戶輸入的分類目錄是否存在，如果存在，則生成輸入網(wǎng)站的最終分 類目錄。接著再判斷用戶輸入的網(wǎng)站網(wǎng)址是否已經(jīng)保存