【文章內(nèi)容簡(jiǎn)介】 End if 用戶點(diǎn)擊”提交”按鈕 就要先處理要降級(jí)的文章，需要循環(huán)提交上來(lái)的chkDec中的每一個(gè)值，由于這些值是對(duì)應(yīng)文章記錄的主關(guān)鍵字ID，所以查找ID相符合得記錄，再把它的location字段設(shè)置為False,就表示這篇文章已經(jīng)屬于普通版了。 語(yǔ)句如下： For each x in (“chkDec”) sql=”select * from articles where ID =” amp。 x sq1,Conn,1,3 recArticles(“l(fā)ocation”)=False 然后，處理需要?jiǎng)h除的文章，需要循環(huán)chkDel的每一個(gè)值并且需要跟新users庫(kù)（sq1=”seclect uarticle from users where uid=(select auther from articles where id=”amp。 x amp?！?”,查找ID相符合的記錄，并將它刪除。最后，重新打開數(shù)據(jù)庫(kù)，選擇屬于精華版的文章（sq1=”select * from articles where location=True”: ,1,3） 普通版界面的設(shè)計(jì) 普通版界面制作和精華版界面設(shè)計(jì)類似，只不過在用戶點(diǎn)擊提交時(shí)，要處理的是升級(jí)的情況。語(yǔ)句如下： For each x in (“chkUpdate”) sq1=”select * from articles where ID=”amp。 x sq1,Conn,1,3 recArticles(“l(fā)ocation”)=True 閱讀版面設(shè)計(jì) 閱讀版面比較簡(jiǎn)單，只是一個(gè)無(wú)邊框的表格輸出文章的內(nèi)容，用一個(gè)QueryString字符串傳遞文章的編號(hào)和返回的版面。 發(fā)表文章界面的設(shè)計(jì) 發(fā)表文章界面也比較簡(jiǎn)單，只是為了用戶發(fā)表文章用，它用了變量Session(“post_mode”)來(lái)傳遞將返回哪個(gè)版面。 確認(rèn)發(fā)表文章的話，就打開數(shù)據(jù)表: set Conn=(“”) ”bbs” set recArticles=(“”) sql=”Select * from articles” sql,Conn,1,3 利用AddNew方法添加記錄: recArticles(“name”)=(“title”) recArticles(“content”)=(“content”) recArticles(“datel”)=Now recArticles(“auther”)=Session(“ID”)(“uid”) 根據(jù)Session(“post_mode”)的值，來(lái)決定location字段的真或假： if Session(“post_mode”)=”精華” then recArticles(“l(fā)ocation”)=True else recArticles(“l(fā)ocation”)=False end if 用戶的發(fā)表文章數(shù)加1 resAriticles (“uarticle”)=recArticles(“uarticle”)+1 ,Execute(“select * from users where uid =”amp。Session(“ID”)(“uid”)amp?！薄? 信息管理界面設(shè)計(jì) 信息管理界面用來(lái)對(duì)用戶進(jìn)行管理 代碼和注釋如下： % dim sel,recMembers,flag dim userid,username,permission,confirm `在默認(rèn)情況下，要把他們?cè)O(shè)置為空 flag=”” userid=”” username=”” permission=”” `confrim設(shè)置為False confirm=False `創(chuàng)建一個(gè)Recordset對(duì)象，設(shè)定好鏈接字符串。 Set Conn=（”） ”bbs” Set recMenbers=(“ADODB. Recordset”) If (“Request_Method”)=”POST” then `當(dāng)窗口被提交后，為判斷提交的情況，把提交按鈕的指存到sel變量中。 `如果沒有被點(diǎn)中的按鈕，返回值為空if (“search”)=”查詢” then sel= (“search”)elseif (“delete”)= ”刪除” then sel= (“delete”)elseif (“modify”)=”修改” then sql= (“modify”)end if`下面根據(jù)sel的不同情況，分別進(jìn)行處理。 Sql=”select * from users where uid=”amp。(“userID”)amp?！薄? sql,Conn,2,3 Select Case sel Case”查詢” If Not them userid=recMembers(“uid”) username=recMembers(“uname”) permission=Cstr(recMembers(“upermission”)) confirm=recMembers(“using”)else flag=”Search” end if Case”修改”`如果點(diǎn)擊的是”修改”按鈕，那就首先要找出被修改的記錄`sql=”select * from users where uid=”amp。 (“userID”)amp。””` sql,dbname,adOpenKeyset,adLockOptimistic`如果記錄集不空，說明找到了相應(yīng)的記錄if Not then `那么就不記錄的各個(gè)字段的內(nèi)容設(shè)置為管理員輸入的內(nèi)容 recMembers(“uname”)=(“username”) recMembers(“upermission”)=Cint((“userkind”)) recMembers(“using”)=Cbool(Cint((“status”))) `并更新記錄 end if flag=”Update” Case”刪除”`如果是要?jiǎng)h除的話，首先也要找到需要被刪除的記錄`sql=”select * from members where zhanghao =”amp。 (“txtzhanghao” amp?！啊癭 sql,dbname,adOpenKeyset,adLockOptimistic`如果記錄為空，說明找到了if Not then`那就刪掉這條記錄`再把記錄前移一條，用來(lái)使BOF數(shù)行為空`刪除articles庫(kù)中的記錄`Set recArticle=(“)sql=”delete from articles where auther=” amp。(“usersID”)amp?！薄?sql)` sql ,Conn,2,3`if not then` end if flag=”Delete”end Selectend if% 用戶身份確認(rèn)界面 元程序和注釋如下： % dim recUsers `設(shè)定連接字符串Conn并創(chuàng)建RecordSet對(duì)象。 Set Conn=(“”) ”bbs” Set recUsers=(“”) If (“Request_Method”)=”POST” then `如果用戶是點(diǎn)擊的”提交” if (“HandIN”)=”提交” then`那么，首先循環(huán)提交上來(lái)的chkAffirm中的每一個(gè)值 For each x in (“chkAffirm”) `由于這些值是對(duì)應(yīng)文章記錄的主關(guān)鍵字ID，所以查找ID相符合的記錄 sql=”select * from users where ID=”amp。 x sql,Conn,1,3 `把它的usign字段置為True,表示確認(rèn) recUsers(“using”)=True Next `最后要重新打開數(shù)據(jù)庫(kù)，選擇為被確認(rèn)的用戶 sql=”select * from users where usign = False” sql,Conn,1,3 `下面是為了便于分頁(yè)顯示，要設(shè)置Recordset對(duì)象的相應(yīng)屬性，以及必要的Session變量 Set Session(“recAffirm”)=recUsers `因?yàn)橐淮沃荒茱@示5個(gè)用戶，所以把Recordset對(duì)象的記錄頁(yè)大小設(shè)為5 Session(“recAffirm”).PageSize=5 `這句判斷，是為了防止Session的變量被刪空。 If Not Session(“recAffirm”).BOF then Session(“recAffrim”).AbsolutePage=1 End if `設(shè)為第一頁(yè) Session(“page_Affirm”)=1 End if %總 結(jié)通過以上的研究和實(shí)踐，我們可以得出結(jié)論，BBS留言簿因?yàn)樗?jiǎn)單豐富的功能和方便快捷的交流方式，將在互聯(lián)網(wǎng)時(shí)代中，大有作為。留言簿將由于越來(lái)越多的人學(xué)習(xí)使用ASP，變得更加完善，也變?cè)骄?，和使用? 經(jīng)過這次畢業(yè)設(shè)計(jì)，使我受益匪淺，也對(duì)制作網(wǎng)頁(yè)產(chǎn)生了更大的興趣。能力來(lái)自于實(shí)踐，我現(xiàn)在不僅能夠更加熟練的使用VBScript語(yǔ)言進(jìn)行網(wǎng)頁(yè)制作，也對(duì)讓我ASP產(chǎn)生了更加濃厚的興趣，因?yàn)?，我是第一次作此類的畢業(yè)設(shè)計(jì)，所以，在很多的地方我都還存在著不足，我所作的這個(gè)留言簿，還存在著各個(gè)方面的不足和缺點(diǎn)，但是，我相信通過我不斷的學(xué)習(xí)，我能夠很快的提高自己的專業(yè)水平和自身素質(zhì)，不辜負(fù)母校的期盼。 附 錄登陸界面源碼：% dim recMembers `下面這個(gè)if……end 程序段是為了用戶退出使用的。 `當(dāng)一個(gè)用戶在””主頁(yè)中點(diǎn)擊了”退出”的超文本鏈接后，就會(huì)鏈接到 `這個(gè)””中來(lái)。同時(shí)賦給一個(gè)QueryString字符串”exit=True” if (“exit”) =”True” then `所以，當(dāng)QueryString變量exit為”True”時(shí)，說明用戶要求退出 `執(zhí)行Session對(duì)象的Abandon方法。 End if `在判斷注冊(cè)信息是否正確之前，要設(shè)置Session(“success”)變量的指為False Session(“success”)=False If (“Request_Method”) =”post” then `根據(jù)用戶所輸入的賬號(hào)的不同，進(jìn)行不同的處理。 Select Case (“userid”) `當(dāng)輸入的是Guest這個(gè)字符串時(shí)， `同時(shí)把Session(“success”)設(shè)置為True,表示這個(gè)用戶注冊(cè)成功。但是這里并沒 `由設(shè)定Session(“ID”),這是區(qū)分客人和真正用戶的標(biāo)志。 Case “Guest” Session(“success”)=True “://yyd/bbs/” `在其它情況下，都把用戶輸入的信息作為注冊(cè)信息處理。 Case else `創(chuàng)建recMembers這個(gè)Recordset對(duì)象。 Set Conn=(“”) (“bbs”) `利用SQL語(yǔ)句選擇賬戶和密碼都與用戶輸入相符合的記錄。 Set recMenbers=(“SELECT * FROM users where uid =”amp。 (“userid”) amp?！盿nd upassword=”amp。 (“pwd”)amp?！薄? `如果記錄集不為空，說明有符合條件的記錄，用戶注冊(cè)成功。 If Not then `設(shè)置該用戶信息全局變量結(jié)果集Set Session(“ID”)=recMembers `上站次數(shù)加1ssql=”SELECT * FROM users where uid=”amp。 (“userid”) amp?！盿nd upassword=”amp。 (“pwd”)amp?！薄? ssql,Conn,2,3 recMenbers(“utime”)=recMembers(“utime”)+1 Session(“success”)=True ` ://yyd/bbs/End if End SelectEnd if %注冊(cè)界面源碼:% `初始化標(biāo)記變量，success標(biāo)記服務(wù)器校驗(yàn)是否通過，flag為出錯(cuò)標(biāo)記 success=False