【正文】 () () ()end if39。若頁面未被提交，初始化留言簿設(shè)置。,39。,39。,39。,39。)=Images/button/=管理員高級設(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。)=Images/button/=管理登錄end if39。初始化結(jié)束End Sub Public Sub DbListBind()dim startindex As integer39。計算共有多少條記錄recordcount = intcount=recordcount39。,39。,39。,39。,39。,39。,39。,39。如果是管理員,執(zhí)行代碼if session(isadmin) then(onclick)=MM_showHideLayers(39。if (del) and session(isadmin) then Dim delm As New oledbmand(delete from guest where id=amp。 (remote_addr) amp。 caption amp。 (face) amp。 content amp。 (emot) amp。) amp。,39。 replace((),chr(39),39。 (qq) amp。 (sex) amp。 username amp。)caption=Trim(caption)If caption= Then caption=無主題Dim username=replace((username),chr(39),39。)content=replace(content,chr(39),39。)content=replace(content,amp。連接數(shù)據(jù)庫pagesize = (每頁顯示留言數(shù))myconn= New OleDbConnection((數(shù)據(jù)庫路徑))()39。第九章 參考文獻(xiàn)[1] 王志偉，：中國水利電力出版社，2002年[2] Chris Goode,John Kauffman et with Visual York:Wrox press Ltd，2003 [3] ：中國鐵道出版社，2002年[4] ：清華大學(xué)出版社，2002年[5] 林少景編著. . 北京：清華大學(xué)出版社，2002年[6] （access 2000）. 北京：清華大學(xué)出版社，2002年[7] 肖建編. ：北京希望電子出版社，2003年[8] （美）巴茲拉等，黃開枝，王曉娜編著. ：清華大學(xué)出版社，2003年[9] （美）邁克，塞溫編著. ：中國電力出版社，2003年[10] （美）巴西尤羅等，楊浩編著. WEB服務(wù)商級編程—：清華大學(xué)出版社，2003年[11] （美）凱森陳君編著. ：清華大學(xué)出版社，2003年[12] ：北京航空航天大學(xué)出版社，2003年[13] （美）米切爾的等編著. ：中國電力出版社，2003年[14] 曾登高編著..：電子工業(yè)出版社，2003年[15] 胡海， Mx標(biāo)準(zhǔn)教程. 北京：北京希望電子出版社，2003年[16] 王克杰，劉敏編. 中文版Dreanweaver Mx網(wǎng)頁制作入門及進(jìn)階教程. 北京：北京希望電子出版社，2003年[17] 孫趙林編. Dreanweaver Mx經(jīng)典范例教程. 北京：北京希望電子出版社，2003年[18] ：中國鐵道出版社，2003年附件：系統(tǒng)源代碼% Page language=vb %%設(shè)置頁面腳本超時，請不要刪除，防止程序產(chǎn)生錯誤引起服務(wù)器崩潰%%=120%%導(dǎo)入名稱空間%% Import Namespace= %% Import Namespace= %% Import Namespace= %% Import Namespace= %Script Runat=Server39。由于畢業(yè)設(shè)計的時間較短又因為自己的時間和精力有限，顯得代碼層次較亂，在軟件功能上可能還存在某些不完整的地方，這都有待于進(jìn)一步的改善，懇請姜老師及評閱教師指正。第七章 結(jié)束語經(jīng)過三個多月的畢業(yè)設(shè)計，互動留言簿系統(tǒng)基本開發(fā)完畢。ips(1)amp。/fontBR) End IfEnd Tryend if%查詢ip模塊的實現(xiàn) 為了更好的管理留言簿或者是統(tǒng)計訪問用戶的地域信息，能夠通過訪問者發(fā)表的文章，捕獲到訪問者的ip地址就顯得尤為重要。/fontBR) ElseIf =viewstate(state) then (BRfont color=red錯誤：搜索時不能連續(xù)提交相同關(guān)鍵字，請a href=39。具體實現(xiàn)代碼參見代碼清單，運行結(jié)果如下圖所示：圖9：文章查詢頁面如果訪問者連續(xù)兩次提交相同的信息或者是錯誤信息，系統(tǒng)會提示搜索關(guān)鍵字不能是空字符串、或者搜索時不能連續(xù)提交相同關(guān)鍵字：具體實現(xiàn)這個功能的部分代碼段如下：%Catch objex As exception If codemessage=loginerror then (BRfont color=red錯誤：搜索關(guān)鍵字不能是空字符串。 Data Source=amp。 (remote_addr) amp。 caption amp。 (face) amp。 content amp。 (emot) amp。) amp。,39。 replace((),chr(39),39。 (qq) amp。 (sex) amp。 username amp。本系統(tǒng)采用的數(shù)據(jù)驗證技術(shù)的部分程序代碼如下：function checkform(thisform){ if(==){ alert(昵稱不能留空！) () return(false) }其他各項目的判斷方法均類似，在這里就不一一累述了，完整代碼參考源代碼清單。amp。別/td td width=213 input type=radio name=sex value=帥哥 checked 帥哥amp。三、各功能模塊的實現(xiàn)利用dreamwerver mx進(jìn)行頁面設(shè)計圖7：留言簿的頁面代碼程序如下（主要部分）：form name=form1 method=post action=?post=true onSubmit=return checkform(form1) table width=100% cellpadding=1 cellspacing=0 class=gueststylebg tr td width=80 align=center您的昵稱/td td width=117 input type=text name=username class=text maxlength=12 onMouseMove=() size=15 font color=CC3300* /font /td td width=42 align=center 性amp。二、從數(shù)據(jù)庫文件中讀取和寫入數(shù)據(jù)所使用的技術(shù) .NET framework 包括一組數(shù)據(jù)庫訪問技術(shù)，使用它很容易連接到數(shù)據(jù)庫，訪問數(shù)據(jù)庫，甚至改變數(shù)據(jù)庫的內(nèi)容，—不僅僅是存儲在數(shù)據(jù)庫的數(shù)據(jù)，還包括存儲在電子郵件服務(wù)器、文本文件、應(yīng)用程序文當(dāng)中的數(shù)據(jù)，如EXCEL和XML數(shù)據(jù)。5）、文章查詢模塊 能夠滿足訪問者查找特定的信息，可以根據(jù)輸入的關(guān)鍵字，在留言主題和留言內(nèi)容里查找，直至找到匹配的記錄并僅顯示匹配的記錄信息。二、系統(tǒng)功能分析根據(jù)課題的要求，互動留言簿系統(tǒng)應(yīng)具備如下功能：訪問者能夠發(fā)表新主題、查閱其他訪問者發(fā)表的主題；訪問者可以回復(fù)主題；訪問者可以修改自己發(fā)表的主題；超級管理可以刪除、修改訪問者發(fā)表的任何主題；可以相互查詢訪問者的IP地址；系統(tǒng)能夠記錄文章發(fā)表的時間；能夠按照主題的關(guān)鍵字進(jìn)行查詢；系統(tǒng)能夠統(tǒng)計文章的總數(shù)量以及當(dāng)前的文章序號；能夠?qū)崿F(xiàn)分頁功能；系統(tǒng)需要建立的模塊 根據(jù)本論壇功能分析、擬建立如下模塊以滿足系統(tǒng)的要求：應(yīng)用平臺模塊1）、發(fā)表文章模塊用以發(fā)表用戶的文章，訪問者需要填寫姓名、性別、滕迅號、電子郵件、主頁地址、選擇表情和頭像、留言主題、留言內(nèi)容等信息。Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。一、 互動留言簿系統(tǒng)權(quán)限等級劃分等級權(quán)限說明超級管理對于發(fā)表的文章進(jìn)行修改、刪除等操作訪問用戶允許用戶瀏覽、查詢、發(fā)表文章互動留言簿系統(tǒng)的模型設(shè)計基于Access 2000 的互動留言簿系統(tǒng)系統(tǒng)，其基本的原理就是對數(shù)據(jù)庫進(jìn)行查詢、插入、修改、刪除、排序、匯總等操作。 下面語句完成文件刪除工作 ( c:\ ) ( 文件的刪除工作已經(jīng)成功完成！ )%＞第三章 互動留言簿系統(tǒng)作為一種網(wǎng)上進(jìn)行的信息共享和交流的空間。下面給出文件拷貝、移動和刪除例子。 把文本內(nèi)容寫入文件中( contxt ) 39。用以下語句替換，就可以了。 把文本內(nèi)容寫入文件中 39。對文件的寫操作相比較文件的讀操作來說較簡單。 文件的全部內(nèi)容！ )End Sub＜/script＞＜asp:panel id = panel1 runat = server ＞＜form Method = Post EncType = Multipart/FormData runat = server ＞＜p＞＜/p ＞請選擇文件名稱：＜input type = file id = filename runat = server /＞ ＜br ＞＜asp:button id = Write Text = 讀文件 OnClick = SendButton_Click runat = server /＞＜/form ＞＜/asp:panel ＞(三)、：本程序的運行界面如圖5所示：圖5：1)、程序設(shè)計中的主要思路及步驟：。 ＜br＞ ) 　39。 創(chuàng)建一個StreamReader對象Dim streamreaderobj As StreamReader Dim file_name as String39。 ＜br＞ ) Loop Until filecont = 39。下面是程序設(shè)計中的一些主要步驟：i＞、讀取文件中用到的對象StreamReader，本程序就是通過這個對象完成對文件的讀取。下面就這幾個操作來具體介紹一下。由于在此名稱空間中有定義了許多類、方法和屬性，而這些不可能通過本文來一一介紹。郵件以HTML的格式發(fā)送 ＜br＞＜br＞ = ＜br＞＜br＞39。定義郵件的暗送地址 ＜br＞＜br＞=majinhu ＜br＞＜br＞39。 第一步：，加入在程序中使用的程序語言類型：第二步：初始化SmtpMail、MailMessage對象： Dim mailObj AS new MailMessage Dim smtp AS new SmtpMail ‘定義SMTP服務(wù)器的名稱 = ‘定義郵件的發(fā)送地址 = “zhangchulan” ‘定義郵件的接收地址 =” majinhu” ‘定義郵件的暗送地址 =”majinhu” ‘定義郵件的抄送地址