【正文】 初始化結(jié)束End Sub Public Sub DbListBind()dim startindex As integer39。計(jì)算共有多少條記錄recordcount = intcount=recordcount39。)=Images/button/=管理登錄end if39。,39。,39。,39。,39。,39。)=Images/button/=管理員高級(jí)設(shè)置Dim strfpath As string=()(strfpath)=(1).Rows(0)(1)=(1).Rows(1)(1)=(1).Rows(2)(1)=(1).Rows(3)(1)=(1).Rows(5)(1)=(1).Rows(6)(1)=replace((1).Rows(7)(1),)=replace((1).Rows(8)(1),)=replace((1).Rows(9)(1),)=replace((1).Rows(10)(1),)=replace((1).Rows(11)(1),)=replace((1).Rows(12)(1),)=replace((1).Rows(13)(1),)=(1).Rows(14)(1)=(1).Rows(15)(1)=(1).Rows(16)(1)=(1).Rows(17)(1)Dim j As integer For j = 0 To 1If (j).value=(1).Rows(18)(1) Then(j).selected=trueEnd If Next()Else (onclick)=MM_showHideLayers(39。,39。,39。,39。,39。,39。,39。,39。,39。如果是管理員,執(zhí)行代碼if session(isadmin) then(onclick)=MM_showHideLayers(39。若頁(yè)面未被提交，初始化留言簿設(shè)置。if (del) and session(isadmin) then Dim delm As New oledbmand(delete from guest where id=amp。),myconn) () () () ()end if39。 (remote_addr) amp。,39。 caption amp。,39。 (face) amp。,39。 content amp。,39。 (emot) amp。,39。) amp。 replace((homepage),chr(39),39。,39。) amp。 replace((),chr(39),39。,39。 (qq) amp。,39。 (sex) amp。,39。 username amp。)username=Trim(username)If username= Then username=佚名Dim updatem As New oledbmand(insert into guest (name,sex,qq,homepage,emot,content,face,caption,ip) values (39。)caption=Trim(caption)If caption= Then caption=無主題Dim username=replace((username),chr(39),39。)If content= Then content=:( 這家伙很懶，沒有發(fā)表任何內(nèi)容Dim caption As String=replace((caption),chr(39),39。)content=replace(content,chr(39),39。)content=replace(content,chr(13),br)content=Trim(content)content=replace(content, ,amp。)content=replace(content,amp。if (post) = true thendim content as string=replace((content),amp。連接數(shù)據(jù)庫(kù)pagesize = (每頁(yè)顯示留言數(shù))myconn= New OleDbConnection((數(shù)據(jù)庫(kù)路徑))()39。以下是子程序，用以處理各種事件。第九章 參考文獻(xiàn)[1] 王志偉，：中國(guó)水利電力出版社，2002年[2] Chris Goode,John Kauffman et with Visual York:Wrox press Ltd，2003 [3] ：中國(guó)鐵道出版社，2002年[4] ：清華大學(xué)出版社，2002年[5] 林少景編著. . 北京：清華大學(xué)出版社，2002年[6] （access 2000）. 北京：清華大學(xué)出版社，2002年[7] 肖建編. ：北京希望電子出版社，2003年[8] （美）巴茲拉等，黃開枝，王曉娜編著. ：清華大學(xué)出版社，2003年[9] （美）邁克，塞溫編著. ：中國(guó)電力出版社，2003年[10] （美）巴西尤羅等，楊浩編著. WEB服務(wù)商級(jí)編程—：清華大學(xué)出版社，2003年[11] （美）凱森陳君編著. ：清華大學(xué)出版社，2003年[12] ：北京航空航天大學(xué)出版社，2003年[13] （美）米切爾的等編著. ：中國(guó)電力出版社，2003年[14] 曾登高編著..：電子工業(yè)出版社，2003年[15] 胡海， Mx標(biāo)準(zhǔn)教程. 北京：北京希望電子出版社，2003年[16] 王克杰，劉敏編. 中文版Dreanweaver Mx網(wǎng)頁(yè)制作入門及進(jìn)階教程. 北京：北京希望電子出版社，2003年[17] 孫趙林編. Dreanweaver Mx經(jīng)典范例教程. 北京：北京希望電子出版社，2003年[18] ：中國(guó)鐵道出版社，2003年附件：系統(tǒng)源代碼% Page language=vb %%設(shè)置頁(yè)面腳本超時(shí)，請(qǐng)不要?jiǎng)h除，防止程序產(chǎn)生錯(cuò)誤引起服務(wù)器崩潰%%=120%%導(dǎo)入名稱空間%% Import Namespace= %% Import Namespace= %% Import Namespace= %% Import Namespace= %Script Runat=Server39。 在畢業(yè)設(shè)計(jì)期間，*老師本身?yè)?dān)負(fù)著很多重要繁重的工作，可是*老師總是不厭其煩的解答我們的問題，并專門擠出時(shí)間給同學(xué)們講解畢業(yè)設(shè)計(jì)所急需的專業(yè)知識(shí)。由于畢業(yè)設(shè)計(jì)的時(shí)間較短又因?yàn)樽约旱臅r(shí)間和精力有限，顯得代碼層次較亂，在軟件功能上可能還存在某些不完整的地方，這都有待于進(jìn)一步的改善，懇請(qǐng)姜老師及評(píng)閱教師指正。通過此次的畢業(yè)設(shè)計(jì)，、ACCESS、DREAMWEAVER MX的相關(guān)知識(shí)，在一定程度上具備獨(dú)立進(jìn)行一個(gè)課題開發(fā)研究的能力，能夠積極主動(dòng)的去學(xué)習(xí)新的知識(shí)，積極發(fā)現(xiàn)問題并探求解決問題的方法，.NET技術(shù)必將引起新一輪的跨平臺(tái)軟件的開發(fā)浪潮，必將極其深刻的影響并改變?nèi)藗兊纳?，；從能力來說，通過此次畢業(yè)設(shè)計(jì)在姜老師的悉心教導(dǎo)下，通過自己不斷的學(xué)習(xí)鉆研，并且充分利用互聯(lián)網(wǎng)絡(luò)所提供的便利，自己的學(xué)習(xí)能力有了大幅度的提高。第七章 結(jié)束語(yǔ)經(jīng)過三個(gè)多月的畢業(yè)設(shè)計(jì)，互動(dòng)留言簿系統(tǒng)基本開發(fā)完畢。后臺(tái)運(yùn)行代碼如下：public sub checkadmin(obj As object,e As eventargs)39。ips(1)amp。 Dim j As integer For j = 0 To 1If (j).value=(1).Rows(18)(1) Then(j).selected=trueEnd If ()public Function F_IP(IP)if session(isadmin)= and (ipinfo)=關(guān)閉 thendim ipsips=Split(ip,.)F_IP=ips(0)amp。/fontBR) End IfEnd Tryend if%查詢ip模塊的實(shí)現(xiàn) 為了更好的管理留言簿或者是統(tǒng)計(jì)訪問用戶的地域信息，能夠通過訪問者發(fā)表的文章，捕獲到訪問者的ip地址就顯得尤為重要。返回首頁(yè)/a重新搜索。/fontBR) ElseIf =viewstate(state) then (BRfont color=red錯(cuò)誤：搜索時(shí)不能連續(xù)提交相同關(guān)鍵字，請(qǐng)a href=39。39。具體實(shí)現(xiàn)代碼參見代碼清單，運(yùn)行結(jié)果如下圖所示：圖9：文章查詢頁(yè)面如果訪問者連續(xù)兩次提交相同的信息或者是錯(cuò)誤信息，系統(tǒng)會(huì)提示搜索關(guān)鍵字不能是空字符串、或者搜索時(shí)不能連續(xù)提交相同關(guān)鍵字：具體實(shí)現(xiàn)這個(gè)功能的部分代碼段如下：%Catch objex As exception If codemessage=loginerror then (BRfont color=red錯(cuò)誤：搜索關(guān)鍵字不能是空字符串。首先在頁(yè)面中布置一個(gè)簡(jiǎn)單的查詢內(nèi)容，按照關(guān)鍵字進(jìn)行查詢。 Data Source=amp。),myconn)()()()()發(fā)表文章模塊的實(shí)現(xiàn) 發(fā)表文章的模塊為互動(dòng)留言簿系統(tǒng)中最主要的模塊，通過該頁(yè)面訪問者可以將其發(fā)表的信息，并且根據(jù)服務(wù)器端的要求，能夠被調(diào)用和顯示。 (remote_addr) amp。,39。 caption amp。,39。 (face) amp。,39。 content amp。,39。 (emot) amp。,39。) amp。 replace((homepage),chr(39),39。,39。) amp。 replace((),chr(39),39。,39。 (qq) amp。,39。 (sex) amp。,39。 username amp。以下為寫入數(shù)據(jù)的部分程序代碼：Dim updatem As New oledbmand(insert into guest (name,sex,qq,homepage,emot,content,face,caption,ip) values (39。本系統(tǒng)采用的數(shù)據(jù)驗(yàn)證技術(shù)的部分程序代碼如下：function checkform(thisform){ if(==){ alert(昵稱不能留空！) () return(false) }其他各項(xiàng)目的判斷方法均類似，在這里就不一一累述了，完整代碼參考源代碼清單。 input type=radio name=sex value=靚女 靚女/td /tr tr td width=80 align=center騰訊 /td td width=117 input type=text name=qq class=text maxlength=10 onMouseMove=() size=15 /td td width=42 align=centerEmail/td td width=213 input type=text name= class=text maxlength=30 onMouseMove=() size=15 /td /tr tr td width=80 align=center個(gè)人主頁(yè)/td td colspan=3 input type=text name=homepage class=text maxlength=50 value=:// size=45 onMouseMove=() /td /tr tr td width=80 align=center選擇表情/td td colspan=3 input type=radio name=emot value=1 checked img src=images/emot/ width=16 height=16 input type=radio name=emot value=2 /tr tr