【正文】 urrentpage1 Then 39。總頁數(shù)大于當(dāng)前頁 ?? End If % 共 %=totalnumber%個(gè)網(wǎng)站 頁次： %=CurrentPage%/%=n%頁 的實(shí)現(xiàn) 功能描述 網(wǎng)站登錄頁面為 ,在網(wǎng)站登 錄 模塊，包含一個(gè)表單，用于網(wǎng)站聯(lián)系人輸入網(wǎng)站和個(gè)人信息，在表單中，包含輸入網(wǎng)站信息的文本域。顯示分類目錄的文本域?yàn)?sort_id，它為只讀類型，只能單擊文本域右邊的“選擇分類”按鈕來輸入，當(dāng)網(wǎng)站聯(lián)系人輸入所有的信息，并單擊“確定”按鈕，然后判斷用戶輸入的分類目錄是否存在，如果存在，則生成輸入網(wǎng)站的最終分類目錄。如果數(shù)據(jù)庫中已經(jīng)存在該網(wǎng)址，則給出提示，并返回到前一頁，當(dāng)所有的數(shù)據(jù)保存在數(shù)據(jù)庫中之后，頁面上顯示網(wǎng)站登 錄成功的提示。 如果合法，數(shù)據(jù)將被提交到 文件中處理，在該文件中將使用 Request 對象的 From()方法獲取網(wǎng)站登錄數(shù)據(jù)，然后判斷用戶輸入的分類目錄是否存在，如果存在，則生成輸入網(wǎng)站的最終分類目錄，接著再判斷用戶輸入的網(wǎng)站網(wǎng)址是否已經(jīng)保存在數(shù)據(jù)庫 中，如果沒有保存在數(shù)據(jù)庫中，則在數(shù)據(jù)庫中插入一條新的記錄： 39。子類名稱 rs(sort_path)=path_id 39。父類 id rs(title)=(title) 39。網(wǎng)站網(wǎng)址 rs(keyword)=(keyword) 39。網(wǎng)站描述 rs(name)=(name) 39。聯(lián)系人 if oicq= then 39。qq end if rs(address)=(address) 39。郵政編碼 rs(verify)=1 39。點(diǎn)擊次數(shù) rs(time)=date() 39。更數(shù)數(shù)據(jù)庫 39。當(dāng)所有的數(shù)據(jù)保存到數(shù)據(jù)庫中后，頁面上 將 顯示登錄成功的提示。 在網(wǎng)站修改頁面上，包含兩個(gè)表單。另一張表單是網(wǎng)站聯(lián)系人登 錄 時(shí)輸入姓名和電子郵箱，在該表單中，輸入聯(lián)系人的姓名的文本域?yàn)?name，輸入聯(lián)系人電子郵箱的文本域?yàn)?。并 單擊 “確定”按鈕后，所有的數(shù)據(jù)提交到 文件中，該文件將所有的數(shù)據(jù)保存在數(shù)據(jù)庫中。 工作流程圖 網(wǎng)站修改 的工作流程如圖 5 所示： 第 12 頁 共 21頁 圖 5 網(wǎng)站修改工作流程圖 界面設(shè)計(jì) 在首頁頁面或者分類目錄頁面或登 錄 頁面上單擊“網(wǎng)站修改”超連接，首先進(jìn)入網(wǎng)站修改登 錄 頁面，在該頁面上輸入網(wǎng)站登 錄 時(shí)填寫的聯(lián)系人姓名和聯(lián)系人電子郵件。網(wǎng)站修改頁面也分兩部分：上面為網(wǎng)站搜索部分，下面為網(wǎng)站信息修改部分。網(wǎng)站修改的設(shè)計(jì)界面如 圖 6 所示 ： 圖 6 網(wǎng) 站修改界面 圖 用戶登陸 網(wǎng)站管理頁面 網(wǎng)站管理 網(wǎng)站 審核 分類管理 退出系統(tǒng) 修改已審核網(wǎng)站 刪除已審核網(wǎng)站 添加分類 刪除分類 修改分類 第 13 頁 共 21頁 工作流程 和代碼設(shè)計(jì) 在表單中輸入聯(lián)系人名稱以及郵箱后，數(shù)據(jù)被提交到 文件中處理 ， 在 中首先使用 QueryString()方法 讀 取 action 的值，如果 action的值為 login，則讀取表單傳遞過來的聯(lián)系人姓名和電子郵箱數(shù)據(jù)， 并 判斷聯(lián)系人姓名和電子郵箱是否為空： if name= then Script(39。)。/Script else if = then Script(39。)。/Script 如果二者都不為空，則從數(shù)據(jù)庫中查詢 列的值為輸入電子郵箱的記錄。如果全部正確，則登錄成功，保存聯(lián)系人登錄的電子郵箱和 id，并將頁面轉(zhuǎn)到 修改頁面。 5 系統(tǒng)后臺(tái)模塊設(shè)計(jì) 網(wǎng)站管理模塊 的實(shí)現(xiàn) 前臺(tái)頁面可以看成是對數(shù)據(jù)庫中表的查詢，讀入，而后臺(tái)則是對數(shù)據(jù)庫表中的信息進(jìn)行修改，添加，刪除，從而改變前臺(tái)的顯示信息。 功能描述 管理員登 錄 之后，首先進(jìn)入的就是網(wǎng)站管理模塊，該模塊管理員能夠?qū)σ褜徍说木W(wǎng)站進(jìn)行修改和刪除操作。 當(dāng)管理員單擊某個(gè)網(wǎng)站對應(yīng)的“刪除”超連接，就可以將該網(wǎng)站及其所有信息從數(shù)據(jù)庫中刪除。你目前還沒登錄，請先登錄！ 39。_ (39。)。獲得要?jiǎng)h除記錄的id， Replace 過程將獲得的 id 字符串中的 39。要?jiǎng)h除的記錄id 為空 39。操作失敗，沒有選擇合適參數(shù)，請單擊確定返回！ 39。/script 39。id 存在 39。delidamp。刪除成功，給出提示 scriptalert(39。)。不同的地方在于，網(wǎng)站審核模塊顯示的所有網(wǎng)站均為未審核網(wǎng)站， 已經(jīng)審核了的網(wǎng)站將不會(huì)在 此 頁面顯示。當(dāng)用戶輸入修改后的信息，單擊確定按扭，所有的數(shù)據(jù)將被提交到 文件中處理， 部分 處理代碼如下 ： case edit 39。是否首頁顯示 sort_id=(sort_id) 39。創(chuàng)建 RecordSet 對象 39。(id),conn,1,3 rs(sort)=(sort) 39。更新數(shù)據(jù)庫 39。判斷 sort_id 的值，并根據(jù) sort_id 的 第 16 頁 共 21頁 值返回到不同的界面 Script(39。)。39。/Script else Script(39。)。?sort_id=amp。39。/Script end If 分類添加 在分類顯示界面的最下方，有一個(gè)“添加分類”超連接。 界面中包含表單 forms，用來輸入要添加的分類信息。首頁顯示為一個(gè)下拉列表 show。操作文本域 為 action。表單中還定義了一個(gè)隱藏域 id，用來保存當(dāng)前分類的 id。在 文件中，首先判斷用戶是否登 錄 ，如果登 錄 ，則讀取操作 action 的值，如果 action 的值為 add，則執(zhí)行添加處理。讀取 action 的值 select case action 39。action 的值為 add show=(show) 39。上級(jí) ID set rs=() 39。從數(shù)據(jù)庫中查詢 id 為空的記錄，將結(jié)果保存在 rs 中 select * from sort where id is null,conn,1,3 39。分類名稱 if show= then 39。上級(jí) ID的值，為空表示最上層分類 rs(sort_id)=0 else rs(sort_id)=sort_id end If rs(sort_id)=sort_id end If 39。關(guān)閉 RecordSet 對象 Set rs=nothing if sort_id= or sort_id = 0 then 39。分類添加成功 39。_ (39。)。)。?sort_id=amp。39。/Script end If 第 18 頁 共 21頁 分類刪除 刪除操作也是在 文件中執(zhí)行的。 其中 del（ ）過程是一個(gè)遞歸過程，其基本思想是：首先判斷 該分類 是否是最 下級(jí)分類，如果是，則直接刪除改分類，完成操作。最后直到所有的下級(jí)分類以及 下級(jí)分類 的下級(jí)分類 等都刪除掉，然后再將 該 分類刪除。id,conn,1,3 If or Then 39。id) 39。跳出 Function 過程 Else 39。循環(huán)處理每一個(gè)下級(jí)分類 nid = drs(id) 39。刪除該下級(jí)分類 39。關(guān)閉 RecordSet 對象 Set drs = nothing (delete * from sort where id=amp。刪除該分類 End Function 6 系統(tǒng)性能測試 系統(tǒng)測試環(huán)境 本系統(tǒng)測試環(huán)境： CPU PⅢ ，內(nèi)存 SDRAM 128M， SQL SERVER 2021， WIN2021/XP，2021 下均測試通過。 測試結(jié)果 在系統(tǒng)的各個(gè)模塊設(shè)計(jì)完成之后，需要對整個(gè)系統(tǒng)進(jìn)行全面的測試。在進(jìn)行系統(tǒng)測試過程中會(huì)出現(xiàn)如下幾種情況： （ 1）及時(shí)的捕捉數(shù)據(jù)庫連接和關(guān)閉異常。 （ 3）對數(shù)據(jù)庫插入操作異常進(jìn)行捕捉。 （ 5）對數(shù)據(jù)庫添加操作異常進(jìn)行捕捉。 結(jié) 論 本文通過對 搜索引擎的認(rèn) 識(shí)和 發(fā)展 現(xiàn)狀 的 分析， 從理論聯(lián)系實(shí)際，完成了基于 ASP 的搜索引擎的開發(fā)， 系統(tǒng)主要實(shí)現(xiàn)了用戶對信息的檢索 。在網(wǎng)站修改模塊，輸入登錄時(shí)填寫的用戶名和郵箱 。唯一不足的是 ：信息的搜索能力的大小取決于網(wǎng)站登錄錄入數(shù)據(jù)的多少。 其次是代碼優(yōu)化問題，在編碼過程中 常遇到代碼重用 的現(xiàn)象， 通過 編寫公共的類。同時(shí)也方便修改代碼。 [2] 林永 ,張樂強(qiáng) .Visual Basic 用戶編程手冊 [M].北京： 人民郵電出版社 ,2021。 [4] 龔沛曾 ,楊志強(qiáng) .Visual Basic 程序設(shè)計(jì)教程（ ） [M].北京 ： 高等教育出版社 ,2021。 [6] 康博 .Microsoft SQL Server [M].北京： 人民郵電出版社 ,1999。