【文章內(nèi)容簡介】 類目錄數(shù)據(jù)庫表在數(shù)據(jù)庫中標記的是 Sort 數(shù)據(jù)表，它記錄的是子類信息，包括子類名稱、父類 ID 和是否在首頁顯示。 Sort 表的具體結(jié)構(gòu)如表 1所示： 表 1 sort表 字段名稱 數(shù)據(jù)類型 說明 主關鍵字 ID int 編號 * Sort varchar 子類名稱 SortID int 父類 ID Show int 是否在首頁顯示 第 4 頁 共 21頁 網(wǎng)站登錄數(shù)據(jù)信息數(shù)據(jù)庫在數(shù)據(jù)庫中標記的是 Web 數(shù)據(jù)表 ，它 記錄的是網(wǎng)站名稱、網(wǎng)站 內(nèi)容 簡介、網(wǎng)站地址、是否審核、網(wǎng)站關鍵字、聯(lián)系人姓名、聯(lián) 系人Email、聯(lián)系人 qq 號碼、聯(lián)系人地址、聯(lián)系人郵政編碼、網(wǎng)站登 錄 時間、網(wǎng)站訪問 次數(shù)、所屬子類名稱、子類路徑和所屬子類 ID。 Web 表的具體結(jié)構(gòu)如 表 2所示： 表 2 web表 字段名稱 數(shù)據(jù)類型 說明 主關鍵字 ID int 編號 * Title varchar 網(wǎng)站名稱 Content varchar 網(wǎng)站內(nèi)容簡介 URL varchar 網(wǎng)站地址 Verify char 管理員是否已經(jīng)確認 Keyword varchar 網(wǎng)站關鍵字 Name varchar 聯(lián)系人姓名 Email varchar 聯(lián)系人 Email varchar 聯(lián)系人 qq Address varchar 聯(lián)系人地址 PostCode varchar 聯(lián)系人郵政編碼 Time datetime 網(wǎng)站登錄時間 Click int 網(wǎng)站訪問次數(shù) Sort varchar 子類名稱 Sort_path varchar 子類路徑 Sort_ID int 子類 ID 管理員數(shù)據(jù)庫表 管理 員 數(shù)據(jù)表即： 數(shù)據(jù)表 Admin， 記錄的是管理員的 登錄 名和密碼。具體結(jié)構(gòu) 如 表 3 所示 ： 表 3 Admin表 字段名稱 數(shù)據(jù)類型 說明 主關鍵字 ID int 編號 * UserName varchar 管理員登錄名 Password varchar 管理員密碼 第 5 頁 共 21頁 關鍵字記錄數(shù)據(jù)庫表 關鍵字記錄表即 Keyword 數(shù)據(jù)表 ， 記錄關鍵字信息，包括關鍵字和輸入次數(shù)，具體結(jié)構(gòu)如 表 4所示 ： 表 4 Keyword表 字段名稱 數(shù)據(jù)類型 說明 主關鍵字 ID int 編號 * keyword varchar 關鍵字 hot int 輸入次數(shù) 系統(tǒng)設計結(jié)構(gòu)圖 系統(tǒng)設計 結(jié)構(gòu)如圖 1所示： 基于ASP的搜索引擎網(wǎng) 站 搜 索分 類 搜 索網(wǎng) 站 登 錄網(wǎng) 站 管 理管 理 員 登 錄 圖 1 系統(tǒng)功能結(jié)構(gòu)圖 4 系統(tǒng) 前臺模塊 設計 的實現(xiàn) 功能描述 用戶訪問系統(tǒng)時，首先接觸到的是首頁 面 ， 它 提供了到達 5個功能模塊的超鏈接，默認顯示為網(wǎng)站搜索模塊。 另外 頁面還提供一個表單 from，讓用戶輸入要搜索的關鍵字，當用戶輸入關鍵字 單擊搜索按鈕后，表單中的數(shù)據(jù)將被提交到 文件中處理。在 首先 讀取 傳遞過來的數(shù)據(jù)， 第 6 頁 共 21頁 然后判斷該數(shù)據(jù)是否為空。 如果不為空。則將數(shù)據(jù)分割為多 個關鍵字，然后在數(shù)據(jù)庫中查找匹配的記錄，并在頁面上顯示。 流程圖 在 網(wǎng)站搜索模塊中，數(shù)據(jù)流程如圖 2 所示： 圖 2 網(wǎng)站搜索數(shù)據(jù)流程圖 界面設計 搜索模塊的界面設計如 圖 3 所示 ： 圖 3 搜索模塊界面 工作流程和代碼設計 輸入關鍵字后，數(shù)據(jù)被提交到 中 ，首先 使用 Request 對象的QueryString()方法 讀取表單傳遞過來的 關鍵字， 再判斷 關鍵字是否為空 ， 若不為空， 將多個關鍵字 進行處理后 分開保存在一維數(shù)組中： keyword = replace(keyword,39。, ) 39。用空格替換關鍵詞中的字符 39。 數(shù)據(jù)是否為空 搜索并顯示結(jié)果 不為空 為空 關鍵字 第 7 頁 共 21頁 keyword = replace(keyword,[, ) 39。用空格替換關鍵詞中的字符 [ keyword = replace(keyword,], ) 39。用空格替換關鍵詞中的字符 ] keyword = replace(keyword,， , ) 39。用空格替換關鍵詞中的中文字符 ， keyword = replace(keyword, ) 39。用空格替換關鍵詞中的英文字符 , keyword=ltrim(rtrim(keyword)) 39。去掉關鍵詞左邊和右邊的空格。函數(shù)LTrim 去掉字符串左邊空格，函數(shù) RTrim 去掉字符串右邊空格 keywordlist=split(keyword) 39。將用戶輸入的關鍵詞用空格分成多個關鍵詞并保存在一維數(shù)組 keywordlist中 然后在 循環(huán)寫出查詢的 spl語句： 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 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)站搜索部分，然后判斷 是否 存在滿足條件的記錄，如果存在，則 使用 showcontent()過程 顯示 滿足條件的 所有記錄，并將記錄中的關鍵字用紅色字體顯示。 然后使用 showpage()過程顯示記錄的頁數(shù)信息，包括當前頁、總頁數(shù)等。最后 顯示查詢頁面的 底部 的 管理入口 ，并建立到管理員登 錄 的超連接。 分類目錄模塊 的實現(xiàn) 功能描述 分類目錄 界面由 實現(xiàn)，在該 頁 面 顯示的分類信息包括 sort_id=0 的分類和 sort_id=1 的分類，即最上級分類和要求顯示 在首頁上的下級分類。例如，如果把“計算機”作為最上級分類?！坝嬎銠C”又分為以下 3 類：軟件、硬件和網(wǎng)絡。設置這 3 個分類也顯示在首頁上，即 show=1。這 3 個分類的下一級分類不在首頁上顯示。當單擊分類目錄首頁上的某分類時，將進入 文件，在該文件中，將詳細顯示這一分類及其下級分類，并顯示屬于這一分類的所有網(wǎng)站信息。 第 8 頁 共 21頁 工作流程和代碼設計 單擊分類目錄首頁上的某一分類，進入 文件， 在 該 文件中，首先使用 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 若該分類還存在下級分類，將顯示下級分類，最后顯示屬于這一分類的所有網(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。當前頁是第一頁 第 9 頁 共 21頁 % 第一頁 上一頁