社區(qū)論壇設(shè)計(jì)

PAGE1題目社區(qū)論壇 摘要：隨著BBS的出現(xiàn)，人們的交流有了新的變化。在BBS里，人們之間的交流打破了空間、時(shí)間的限制。BBS連人方便，可以通過(guò)Internet登錄，也可以通過(guò)電話網(wǎng)撥號(hào)登錄。BBS站往往是由一些有志于此道的愛好看建立，對(duì)所有人都免費(fèi)開放。而且，由于BBS的參與人眾多，因此各方面的話題都不乏熱心者。可以說(shuō)，在BBS上可以找到任何你感興趣的話題。此系統(tǒng)主要實(shí)現(xiàn)BBS網(wǎng)站全部功能。采用目前應(yīng)用最為廣泛的ASP作為開發(fā)工具來(lái)開發(fā)此系統(tǒng)、以保證系統(tǒng)的穩(wěn)定性。采用目前最為流行的網(wǎng)頁(yè)制作工具Dreamweaver和目前最為流行的動(dòng)畫制作工具FlashMX。整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，完成會(huì)員的注冊(cè)，會(huì)員發(fā)帖，瀏覽新帖等所要完成的功能和開發(fā)的過(guò)程。重點(diǎn)的說(shuō)明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。我的模塊是考勤承認(rèn)子系統(tǒng).只要的功能是從數(shù)據(jù)庫(kù)里查找出所有員工的出勤和作業(yè)信息,供領(lǐng)導(dǎo)的審批。因?yàn)閷徟捻?xiàng)目多，所有要從多個(gè)表中查詢，這就需要功能強(qiáng)大的數(shù)據(jù)庫(kù)支持。如何利用COM組件在數(shù)據(jù)庫(kù)里查找數(shù)據(jù)，就是本論文的核心內(nèi)容。關(guān)鍵字：BBS，COM組件，ASPTOC\o"1-3"\h\z一、緒論 3(一)國(guó)內(nèi)外的現(xiàn)狀 3(二)技術(shù)背景 41．B/S模型的優(yōu)點(diǎn) 42．ASP技術(shù) 43．?dāng)?shù)據(jù)庫(kù)的應(yīng)用 5二、需求分析 6(一)任務(wù)描述 6(二)系統(tǒng)特點(diǎn) 6(三)系統(tǒng)配置 71．Hardware（硬件） 72．Software（軟件） 7(三)編碼規(guī)范 8(四)相關(guān)技術(shù)說(shuō)明 81．COM組件與ASP的集成 82．ASP對(duì)象和ActiveXDLL比較 113．ASP與組件比較 114．ASP的"黏合"作用 12三、系統(tǒng)設(shè)計(jì) 13(一)模塊劃分 131．論壇用戶管理 142．論壇貼子管理 143．后臺(tái)管理 15(二)頁(yè)面設(shè)計(jì) 161．論壇用戶管理 162．論壇貼子管理 193．后臺(tái)管理 22(三)數(shù)據(jù)庫(kù)設(shè)計(jì)描述 251．帖子信息表 252．回復(fù)表 263．鏈接表 264．用戶表 274．附加表 27四、系統(tǒng)實(shí)現(xiàn) 28(一)用戶注冊(cè) 28(二)用戶登錄 28(三)顯示發(fā)貼信息 28五、致謝 29六、參考文獻(xiàn) 30一、緒論(一)國(guó)內(nèi)外的現(xiàn)狀社區(qū)是互聯(lián)網(wǎng)的靈魂，BBS是網(wǎng)民互動(dòng)溝通的最佳紐帶。

2005年7月，CNNIC發(fā)布的《第十六次中國(guó)互聯(lián)網(wǎng)絡(luò)發(fā)展?fàn)顩r統(tǒng)計(jì)報(bào)告》顯示，在網(wǎng)民經(jīng)常使用的網(wǎng)絡(luò)服務(wù)/功能選項(xiàng)中，社區(qū)/BBS以40.6%的高比例選票，僅次于即時(shí)通訊的44.9%。同時(shí)，國(guó)內(nèi)知名調(diào)查機(jī)構(gòu)艾瑞iResearch發(fā)布的《2004年中國(guó)網(wǎng)絡(luò)社區(qū)研究報(bào)告》也顯示，超過(guò)68%的網(wǎng)絡(luò)用戶使用過(guò)社區(qū)/BBS服務(wù)。(二)技術(shù)背景1．B/S模型的優(yōu)點(diǎn)幾乎沒有限制的客戶端訪問和極其簡(jiǎn)單化的應(yīng)用程序部署和管理是B/S模型的優(yōu)勢(shì)所在，這一點(diǎn)主要是針對(duì)C/S開發(fā)模型來(lái)說(shuō)的，因?yàn)镃/S開發(fā)模型，采用服務(wù)器/客戶端的形式來(lái)運(yùn)行的，所以，客戶擴(kuò)展起來(lái)麻煩，而且，維護(hù)難，地理位置要求嚴(yán)格，所以，目前，已經(jīng)有很多分布式的系統(tǒng)，都采用了B/S架構(gòu)。2．ASP技術(shù)采用一種已經(jīng)成熟的語(yǔ)言，一種簡(jiǎn)單的語(yǔ)言，有利于我們剛畢業(yè)的新生來(lái)開發(fā)這個(gè)系統(tǒng)。雖然，大家一再?gòu)?qiáng)調(diào)，ASP技術(shù)已經(jīng)被取代，但目前，還是有很多公司繼續(xù)使用它，可見，其穩(wěn)定性還是可以的，開發(fā)出來(lái)的系統(tǒng)還是可以在企業(yè)中良好的運(yùn)用的，所以，為我們開發(fā)系統(tǒng)，提供了很好的基礎(chǔ)。3．?dāng)?shù)據(jù)庫(kù)的應(yīng)用一個(gè)成功的信息管理系統(tǒng)，是建立在許多條件之上的，而數(shù)據(jù)庫(kù)是其中一個(gè)非常重要的條件和關(guān)鍵技術(shù)。信息管理系統(tǒng)所涉及的數(shù)據(jù)庫(kù)設(shè)計(jì)分五個(gè)步驟：數(shù)據(jù)庫(kù)需求分析、概念設(shè)計(jì)、邏輯設(shè)計(jì)、物理設(shè)計(jì)與加載測(cè)試。對(duì)數(shù)據(jù)庫(kù)操作的語(yǔ)言有很多種，SQL(StructuredQueryLanguage，結(jié)構(gòu)查詢語(yǔ)言)是一個(gè)功能強(qiáng)大的數(shù)據(jù)庫(kù)語(yǔ)言。SQL通常使用于數(shù)據(jù)庫(kù)的通訊。ANSI（美國(guó)國(guó)家標(biāo)準(zhǔn)學(xué)會(huì)）聲稱，SQL是關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)的標(biāo)準(zhǔn)語(yǔ)言。SQL語(yǔ)句通常用于完成一些數(shù)據(jù)庫(kù)的操作任務(wù)，比如在數(shù)據(jù)庫(kù)中更新數(shù)據(jù)，或者從數(shù)據(jù)庫(kù)中檢索數(shù)據(jù)。使用SQL的常見關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)有：Oracle、Sybase、MicrosoftSQLServer、Access、Ingres等等?？记诠芾硐到y(tǒng)的信息量非常大，所以，我采用的是MicrosoftSQLServer2000。二、需求分析(一)任務(wù)描述系統(tǒng)模塊的設(shè)計(jì)應(yīng)該遵循整個(gè)系統(tǒng)總體設(shè)計(jì)思路。即基于B/S模型構(gòu)建考勤系統(tǒng)。系統(tǒng)的總體設(shè)計(jì)應(yīng)該是提供給用戶一個(gè)操作簡(jiǎn)單，功能全面的信息發(fā)布系統(tǒng)，整個(gè)系統(tǒng)可以實(shí)現(xiàn)BBS的基本信息，詳細(xì)信息的錄入，修改和刪除，信息的增加、修改和刪除等，本系統(tǒng)涉及到數(shù)據(jù)庫(kù)中８張表(二)系統(tǒng)特點(diǎn)該系統(tǒng)根據(jù)大連通世泰建材有限公司的具體情況設(shè)計(jì)的員工考勤管理系統(tǒng)，每個(gè)模塊都有它的針對(duì)性，針對(duì)普通員工和領(lǐng)導(dǎo)都有不同的使用功能。能夠詳細(xì)的記錄員工每天的出勤和工作情況，領(lǐng)導(dǎo)還可以在線對(duì)員工的請(qǐng)求審批。大大的減少了工作量,增加了工作效率。也為員工的表現(xiàn)提供一個(gè)有力的證據(jù)。使每個(gè)員工的工作透明化，增加了上下級(jí)的溝通與了解。另外該系統(tǒng)模塊劃分清楚，功能獨(dú)立，操作簡(jiǎn)單。(三)系統(tǒng)配置1．Hardware（硬件）硬件環(huán)境(訪問者)：建議用戶在力所能及的情況下采用較高配置的硬件資源。硬件環(huán)境(開發(fā)者)：pentium4處理器，256M內(nèi)存，40G磁盤空間。2．Software（軟件）訪問者：IE、Netscape等瀏覽器。最好是IE瀏覽器，本網(wǎng)頁(yè)在IE瀏覽器下通過(guò)了測(cè)試。開發(fā)者：OperatingSystem（操作系統(tǒng)）：Windows2000Tools（工具）：EditPlus2,Visualbasic6.0Database（數(shù)據(jù)庫(kù)）：SQLServer2000Server(服務(wù)器)：IISTechnic（技術(shù)）：前臺(tái)網(wǎng)頁(yè)的設(shè)計(jì)采用HTML和Javascript腳本語(yǔ)言技術(shù)制作。這樣的優(yōu)點(diǎn)就是，不但可以實(shí)現(xiàn)美麗的頁(yè)面，還可以進(jìn)行輸入判斷，使用用戶操作容易，后臺(tái)對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作采用COM技術(shù)，兩者獨(dú)立性好，代碼可復(fù)用。(三)編碼規(guī)范文件命名用采用統(tǒng)一方式，相同模塊的名的頭部相同；文件歸類，以不同的文件夾存放，分四個(gè)文件夾，include,com,css,image；出錯(cuò)信息的制作，采用<javascript>腳本語(yǔ)言校驗(yàn)，出錯(cuò)信息均用alert函數(shù)報(bào)錯(cuò)。(四)相關(guān)技術(shù)說(shuō)明1．COM組件與ASP的集成本系統(tǒng)主要采用的是ASP語(yǔ)言。雖然ASP是一個(gè)很成熟的開發(fā)語(yǔ)言，但是所有的操作都用ASP代碼實(shí)現(xiàn)，就會(huì)影響頁(yè)面的瀏覽速度和系統(tǒng)的執(zhí)行的速度。所以，我們采用了COM組件與ASP集成起來(lái)的方法去開發(fā)這個(gè)系統(tǒng)。把一部分的代碼轉(zhuǎn)移到COM里。在開發(fā)這個(gè)系統(tǒng)的時(shí)候，COM是我新接觸的一個(gè)技術(shù)，正是對(duì)它的使用使我的功能模塊得到了很大的改善。所以，我想把我認(rèn)為好的地方介紹給大家。(1)應(yīng)用程序?qū)ο螅ˋpplication）可以使用Application對(duì)象實(shí)現(xiàn)應(yīng)用軟件的所有用戶共享信息，并在服務(wù)器運(yùn)行期間持久地保存數(shù)據(jù)，只有應(yīng)用程序結(jié)束時(shí)，該對(duì)象才被撤消。Application對(duì)象除了能夠共享和保存數(shù)據(jù)之外，還具有控制訪問應(yīng)用層數(shù)據(jù)的方法和可用于程序啟動(dòng)和停止時(shí)觸發(fā)過(guò)程的事件。-(2)會(huì)話對(duì)象（Session）利用session對(duì)象可以為應(yīng)用程序的單個(gè)用戶持久保持?jǐn)?shù)據(jù)信息。當(dāng)某用戶第一次請(qǐng)求服務(wù)器應(yīng)用程序中，*.asp文件的URL時(shí)，要啟動(dòng)session。在缺省情況下，如果沒有用戶請(qǐng)求，則服務(wù)器只保留session對(duì)象20分鐘。當(dāng)用戶關(guān)閉瀏覽器時(shí)，session對(duì)象關(guān)閉。例如，在“考勤管理系統(tǒng)”中，由于職位的不同，權(quán)限也不同，可以查閱的信息也不同，所以將起身份唯一標(biāo)識(shí)作為Ssession對(duì)象，保證用戶在頁(yè)面跳轉(zhuǎn)時(shí)不會(huì)丟失其身份信息。(3)請(qǐng)求對(duì)象（Request）Request對(duì)象允許服務(wù)器應(yīng)用程序查詢有關(guān)與之交互的客戶程序的信息，Request對(duì)象由客戶程序發(fā)往服務(wù)器?？蛻舫绦蛴性S多種方法可以將信息發(fā)送給ASP文件，但無(wú)論使用哪種方法，ASP代碼都必須使用Request對(duì)象及其集合，以便接收信息。Request對(duì)象的兩個(gè)集合能夠?qū)崿F(xiàn)輸入的HTML表單的信息與服務(wù)器端腳本間的通信。通過(guò)使用QueryString集合或Form集合檢索表單的數(shù)據(jù)，取決于提交數(shù)據(jù)的HTTP表單的Method屬性。當(dāng)HTML表單使用Get方法向ASP文件傳遞數(shù)據(jù)時(shí)，用QueryString集合；用Post方法時(shí)，則用Form集合。(4)響應(yīng)對(duì)象（Response）Response對(duì)象的屬性、方法和集合可用于格式化HTTP頭信息及要返回給用戶的HTML。(5)服務(wù)器對(duì)象（Server）Server對(duì)象提供了服務(wù)器應(yīng)用程序可以使用的對(duì)象和訪問的方法。使用Server對(duì)象，可以在服務(wù)器上啟動(dòng)ActiveX對(duì)象例程。(6)環(huán)境對(duì)象（ObjectContext）環(huán)境對(duì)象ObjectContext用于提交或放棄一項(xiàng)由MTS管理的事務(wù)，它以ASP頁(yè)面包含的腳本進(jìn)行初始化。2．ASP對(duì)象和ActiveXDLL比較就本質(zhì)而言，ASP內(nèi)置對(duì)象和定制的ActiveXDll差別不大，都可以在MicrosoftVisualBasic中使用。從應(yīng)用方式來(lái)說(shuō)，ASP對(duì)象和ActiveXDll的不同之處在于其打包方法。ASP對(duì)象是始終能在VBScript中應(yīng)用的ActiveX元素，不用明確地創(chuàng)建ASP對(duì)象；ActiveXDll是存在于ASP結(jié)構(gòu)之外的Dll，在應(yīng)用中須首先創(chuàng)建該對(duì)象實(shí)例。從應(yīng)用范圍來(lái)說(shuō)，ASP對(duì)象主要用于客戶端保存信息，提供客戶的處理請(qǐng)求；而ActiveXDll則主要用于中間層的事務(wù)邏輯處理，功能更強(qiáng)，應(yīng)用范圍更廣。3．ASP與組件比較雖然不用定制組件，僅使用ASP也能實(shí)現(xiàn)絕大部分的服務(wù)器端事務(wù)處理，但相對(duì)組件而言，僅憑ASP腳本來(lái)構(gòu)建應(yīng)用系統(tǒng)存在著明顯的局限性。首先，解釋腳本比運(yùn)行一個(gè)對(duì)象要慢得多，不利于向大范圍的用戶推廣；其次腳本不能從功能中分離出來(lái)，用腳本編寫的事務(wù)邏輯劃分不明晰，增大了發(fā)現(xiàn)錯(cuò)誤的難度，無(wú)形中加大了排錯(cuò)的開銷；而且組件是可重用的，腳本則談不上真正意義桑的重用性。4．ASP的"黏合"作用在三層體系結(jié)構(gòu)中，事務(wù)邏輯作為一個(gè)個(gè)COM組件在中間層執(zhí)行，大大減少了服務(wù)器端運(yùn)行的ASP腳本。但這并不意味著ASP將失去其原有的光彩。ASP不僅可以編寫腳本動(dòng)態(tài)生成HTML，還可以作為“黏合劑”將各個(gè)COM組件“黏合”在一起，并負(fù)責(zé)應(yīng)用系統(tǒng)和COM組件間參數(shù)的傳遞。三、系統(tǒng)設(shè)計(jì)(一)模塊劃分基于B/S模型構(gòu)建論壇分以下二個(gè)模塊：首頁(yè)首頁(yè)用戶管理用戶管理貼子管理貼子管理刪除舊帖刪除舊帖用戶回帖添加新貼用戶回帖添加新貼用戶信息注冊(cè)用戶登錄用戶密碼修改用戶基本信息修改用戶信息注冊(cè)用戶登錄用戶密碼修改用戶基本信息修改1．論壇用戶管理(1)用戶注冊(cè)將用戶信息保存到數(shù)據(jù)庫(kù)中。注冊(cè)的信息用于在論壇中識(shí)別身份。(2)用戶信息修改修改數(shù)據(jù)庫(kù)中的用戶信息。修改信息分為兩個(gè)部分。修改用戶基本信息和修改密碼。(3)用戶登錄用戶輸入注冊(cè)的用戶名密碼登入系統(tǒng)。系統(tǒng)將設(shè)別用戶身份。系統(tǒng)將用戶信息和系統(tǒng)時(shí)間顯示在主頁(yè)上。2．論壇貼子管理(1)發(fā)表新貼用戶登錄后在論壇主頁(yè)可以發(fā)表新貼。新貼是新的討論的開始。只有登錄的用戶才能發(fā)表新貼。(2)用戶回帖論壇的用戶登錄以后可以回復(fù)其他人發(fā)表的貼子。只有登錄的用戶才能回帖。回帖能恢復(fù)文本信息不能發(fā)送圖片。(3)刪除舊帖超級(jí)管理員登錄以后可以刪除過(guò)期的就貼，和違反規(guī)定的，不合法的貼子。3．后臺(tái)管理(1)用戶管理超級(jí)用戶登錄后，進(jìn)入后臺(tái)管理系統(tǒng)。點(diǎn)擊用戶管理并進(jìn)入。超級(jí)用戶可以編輯、刪除普通用戶。編輯包括修改用戶信息、改普通用戶為高級(jí)用戶。系統(tǒng)的唯一管理員是admin。(2)貼子加精管理員進(jìn)入系統(tǒng)后可以設(shè)置某個(gè)貼子為精華帖子。精華帖子的圖標(biāo)和普通帖子的圖標(biāo)不同。(3)帖子置頂管理員進(jìn)入系統(tǒng)后可以設(shè)置某個(gè)貼子置頂。置頂帖子的圖標(biāo)和普通帖子的圖標(biāo)不同。(4)友情連接管理管理員進(jìn)入系統(tǒng)后可以設(shè)置友情連接。輸入LOGO圖標(biāo)地址和連接地址，友情連接會(huì)以圖片的形式出現(xiàn)在頁(yè)面底部。(5)版權(quán)信息管理管理員進(jìn)入系統(tǒng)后可以設(shè)置版權(quán)信息。版權(quán)信息在頁(yè)面的底部。(二)頁(yè)面設(shè)計(jì)1．論壇用戶管理(1)用戶注冊(cè)圖1-(2)用戶信息修改圖2-1圖1-2(3)用戶登錄圖1-32．論壇貼子管理(1)發(fā)表新貼圖2-1(2)用戶回帖圖2-2(3)刪除舊帖圖2-33．后臺(tái)管理(1)用戶管理圖3-1(2)友情連接管理圖3-2(3)版權(quán)信息管理圖3-3(三)數(shù)據(jù)庫(kù)設(shè)計(jì)描述1．帖子信息表GOCREATETABLE[dbo].[Content]( [ContId][varchar](20)COLLATEChinese_PRC_CI_ASNOTNULL, [Subject][varchar](50)COLLATEChinese_PRC_CI_ASNULL, [Words][varchar](1000)COLLATEChinese_PRC_CI_ASNULL, [UserName][varchar](50)COLLATEChinese_PRC_CI_ASNULL, [CreateTime][varchar](50)COLLATEChinese_PRC_CI_ASNULL, [LastAnswerTime][char](30)COLLATEChinese_PRC_CI_ASNULL, [HitCount][int]NULL, [IsTop][int]NULL, [face][varchar](50)COLLATEChinese_PRC_CI_ASNULL, [tian][datetime]NULL)ON[PRIMARY]GO2．回復(fù)表GOCREATETABLE[dbo].[HuiFu]( [Hid][int]IDENTITY(1,1)NOTNULL, [ContId][varchar](20)COLLATEChinese_PRC_CI_ASNULL, [Hobj][varchar](50)COLLATEChinese_PRC_CI_ASNULL, [Hwords][varchar](1000)COLLATEChinese_PRC_CI_ASNULL, [Husers][varchar](50)COLLATEChinese_PRC_CI_ASNULL, [Hsex][varchar](2)COLLATEChinese_PRC_CI_ASNULL, [Hface][varchar](50)COLLATEChinese_PRC_CI_ASNULL, [Hlasttime][varchar](50)COLLATEChinese_PRC_CI_ASNULL, [Hquan][int]NULL, [Hlogo][varchar](50)COLLATEChinese_PRC_CI_ASNULL, [Hemail][varchar](50)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]GO3．鏈接表GOCREATETABLE[dbo].[link]( [linkid][int]IDENTITY(1,1)NOTNULL, [linkurl][varchar](30)COLLATEChinese_PRC_CI_ASNULL, [linklogo][varchar](50)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]GO4．用戶表GOCREATETABLE[dbo].[Users]( [UserId][int]IDENTITY(1,1)NOTNULL, [UserName][varchar](50)COLLATEChinese_PRC_CI_ASNULL, [UserSex][varchar](2)COLLATEChinese_PRC_CI_ASNULL, [UserPwd][varchar](50)COLLATEChinese_PRC_CI_ASNULL, [Email][varchar](50)COLLATEChinese_PRC_CI_ASNULL, [Logo][char](50)COLLATEChinese_PRC_CI_ASNULL, [Qan][int]NULL)ON[PRIMARY]GO4．附加表GOCREATETABLE[dbo].[FuJia]( [banquan][varchar](100)COLLATEChinese_PRC_CI_ASNULL, [pagenum][int]NULL)ON[PRIMARY]GO四、系統(tǒng)實(shí)現(xiàn)(一)用戶注冊(cè)%> <% setrs=con.execute("selectusernamefromuserswhereusername='"&rname&"'") ifrs.eof=falsethen response.Write("用戶名已經(jīng)有人注冊(cè)過(guò)了，請(qǐng)重新填寫<br><br>")%> <ahref="reg.asp"class="hlink"><fontclass="aa">返回注冊(cè)頁(yè)面</font></a> <%else<% setcon=server.CreateObject("adodb.connection") setrs=server.CreateObject("adodb.recordset")con.open"provider=sqloledb.1;datasource=.;uid=sa;pwd=sa;database=Discuss" rname=request.Form("regname") rsex=request.Form("sex") rpass=request.Form("pwd1") rcpass=request.Form("pwd2") remail=request.Form("email") rface=request.Form("face") application("face")=rface ifrsex=1then fsex="男" else fsex="女" setrs=con.execute("insertintousers(username,usersex,userpwd,email,logo,qan)values('"&rname&"','"&fsex&"','"&rpass&"','"&remail&"','"&rface&"',0)") response.Write("<br>恭喜您注冊(cè)成功<br><br>") response.Write("您的用戶名是：<fontcolor=red>"&rname&"</font><br><br>") response.Write("您的密碼是：<fontcolor=red>"&rpass&"</font><br><br>")%> <metaHTTP-EQUIV=REFRESHCONTENT='2;URL=index.asp'> <ahref="index.asp"class="hlink"><fontclass="aa">返回首頁(yè)面</font><br><br></a> <%endif%> (二)用戶登錄<%ifrs.eof=falsethen session.Timeout=30 session("username")=uname session("userpassword")=upass session("uquan")=rs("Qan") session("face")=rs("logo") session("usex")=rs("UserSex") session("tt")=rs("Email")%> 登陸成功，感覺社區(qū)歡迎您<br><br><ahref="index.asp"class="hlink">返回首頁(yè)</a> <metaHTTP-EQUIV=REFRESHCONTENT='2;URL=index.asp'> <%tt=Trim(Request.Form("cook")) selectcasett case1 Response.Cookies("userinfo")("uname")=Trim(Request.Form("uname")) Response.Cookies("userinfo")("upwd")=Trim(Request.Form("upwd")) case2 Response.Cookies("userinfo").Expires=Date+1 Response.Cookies("userinfo")("uname")=Trim(Request.Form("uname")) Response.Cookies("userinfo")("upwd")=Trim(Request.Form("upwd")) case3 Response.Cookies("userinfo").Expires=Date+31 Response.Cookies("userinfo")("uname")=Trim(Request.Form("uname")) Response.Cookies("userinfo")("upwd")=Trim(Request.Form("upwd")) case4 Response.Cookies("userinfo").Expires=Date+365 Response.Cookies("userinfo")("uname")=Trim(Request.Form("uname")) Response.Cookies("userinfo")("upwd")=Trim(Request.Form("upwd")) endselectelse%> 密碼或用戶名錯(cuò)誤請(qǐng)重新<ahref="login.asp"class="hlink"><fontcolor="#0066CC">登陸</font></a>或<ahref="reg.asp"class="hlink"><fontcolor="#006