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