【文章內容簡介】 頁面返回的 action消息來確定是否調用 SaveAdd()。 主要代碼見附錄 修改信息頁 在這里可以修改個人的信息，包括性別、電子郵箱、 qq 號碼。修改好之后點擊提交按鈕，就將新的個人信息提交到數據庫中 ． 圖六 主要實現步驟： 1 首先用 Session(“name”)判斷是否為登陸會員，在 Dreamweaver中設計出總體風格。 2 打開數據庫查詢 userinfo 表，以電子郵箱為例，使文本區(qū)域的 input type=text name=value=%=Rs()%〉。 號碼同理。 3 將對信息修改得保存定義為一個名為 SaveChange(),根據頁面返回的action 消息來確定是否調用 SaveChange()。 主要代碼見附錄 論壇撰寫主題頁的的實現 當用戶登錄后進入論壇就可以撰寫主題了在這里還可以添加圖片。具體界面如下圖： 圖七 這個功能的實現和文章投稿相似，在這就不重復了 論壇回復頁面 用戶可以在這個頁面對自己感興趣的主題進行跟帖，填寫了內容后直接按發(fā)表按鈕就可以提交到數據 庫了。這個功能的實現和文章投稿相似，在這就不重復了。 圖八 聊天室主頁 聊天室主頁的框架是由： 成。界面如下 : 圖九 主要實現步驟 : 1 聊天內容顯示頁 :在這里 ,就用到了 Application這個對象，如果用戶發(fā)送的談話內容不為空，則先將 Application對象鎖定，使其可寫，再將談話內容保存在Application對象中，然后再將 Application對象解鎖，取消其可寫性，再后再輸出顯示。 2 聊 天內容發(fā)送頁：在這一頁中只需加入一個獲取登陸著用戶名的 asp代碼。 %Session(“name”)%。 3 聊天室主頁：首先用 Dreamweave 布置好框架，用 Session(“name”)判斷是否為合法會員，在各框架中引用個分頁面。以 View。 asp 頁為例frame src=View。 asp name=View 主要代碼見附錄。 完成這次設計我的感觸很深，要想完成一件事情你不但要有過硬的專業(yè)知識其中恒心毅力也是很重要的，由于是自己獨立第一次開發(fā)一個 網站沒有經驗，而且好多知識以前都沒有學過都得靠從實踐中慢慢摸索，現學現用，其困難可想而知。在這里我要感謝耐心指導我的老師，和一起摸索前進的同學在這段時間給我的幫助。 為了完成這次設計我首先通過上網搜索和在圖書館查找與之有關的知識，使用什么開發(fā)工具會用到什么知識做到心中有數。然后看看什么是學過的什么還沒有接觸過，學過的加緊鞏固，沒有學過得趕快買資料進行自學。在這次設計中我真正感受到，有些知識你不會沒關系，但在平時一定要加強自學能力的培養(yǎng)。我覺得這也是我們進入社會所必須具備的求生手段。 要設計出一個相對完美的網 站沒有總體規(guī)劃是不行的，就像蓋一座大樓你沒有圖紙是不行的，你不可以想到哪就蓋哪。首先你得明白做這個網站的目的是什么，應該具有什么功能，要實現這些功能需要那些模塊，這些模塊之間又有什么聯系。只有弄清楚了這些你才可以有條不紊的進行設計。當然前期素材收集也是很重要的，素材不充足你就得中途停工，這樣就會大大的浪費時間，甚至打斷你的思路。 為了盡快地完成這個設計，我將 dreamweaver mx 和 asp 結合起來，用dreamweaver mx 設計基本的頁面，因為 dreamweaver mx 具有很好的視覺美化作用可以加 入 flash 和音樂增加了網站的美感，使其更加吸引人的眼球。然后再在代碼中加入 asp 代碼實現與數據庫的交互，和網頁的動態(tài)。而且在 asp 中還可引用任何公共頁，這樣大大加快了開發(fā)速度。 由于技術知識有限，我知道我的網站免不了有很多的不足之處，而正因為這樣才可以激起我高昂的斗志，繼續(xù)學習，不斷完善。 在本次畢業(yè)設計的過程中，老師給了我很大的幫助。不僅使我在規(guī)定的時間內完成了系統的設計，同時還使我學到了很多有益的經驗。在此，我謹向老師表示最衷心的感謝。 在做設計的過程中也得到了很多同學的幫助，在此 也向他們表示感謝。 同時，也很感謝數信學院計算機科學與技術專業(yè)所有領導和老師在四年大學的學習和生活中對我的關懷、教導及信賴，感謝所有幫助過我們的同學。 在上機過程中也很感謝數學系機房管理員教師給我的支持與方便，是他們?yōu)槲覀儗Ｐ牡亻_發(fā)營造和維護著良好的工作環(huán)境。 [1] 薩師煊 王珊 編著《數據庫系統概論》（第三版） [M]。北京 :高等教育出版社 ,2021 [2]王姍 陳紅 編著 《數據庫系統原理教程》第一版 北京 清華大學出版社 [3]宣小平 但正剛 張文毅 編著 《 ASP 數據庫系統開發(fā)實例導航》 第一版 北京 人民郵電出版社 [4]夏邦貴 劉凡馨 等編著 《 ACCESS 2021 數據庫開發(fā)經典實例精講》 機械工業(yè)出版社 [5] 李雁翎 《 Access 數據庫應用技術 》 中國鐵道出版社 ， 2021 [6] 鄧文淵等 《 ASP 與網頁數據庫設計》 中國鐵道出版社 [7]鄧文淵 陳惠貞 陳俊榮編著《 ASP 與網絡數據庫技術》 中國鐵道出版社 2021 [8] 鮑哥 盧堅 《 Dreamweaver MX 2021 標準 教程》 海洋出版社 [9] 張微 劉任憑編著 《 Dreamweaver 完美網頁設計》 [10] 蘇治中 編著 《 Dreamweaver MX 2021 入門與提高》 中國鐵道出版社 2021。 5 [11] 揚國才王建峰 王玉昆編著《基于 Web 的遠程自學型教學系統設計及實現》計算機應用， 。 [12］宋紅 李珍香編著《計算機網絡與遠程教育》計算機與現代化 2021。 注冊頁 td w idth=40% height= 25 align=right bgcolor=FFFFFF注冊用戶名： /td td w idth=60% bgcolor=FFFFFF input type=text name=na me ID=Text1 font color=FF0000*/font（支持中文） /td /tr tr td height=25 align=right bgcolor=FFFFFF密碼：/td td bgcolor=FFFFFF input type=passw ord name=pw d ID=Text2 font color=FF0000*/font（長度大于 6 位） /td /tr tr td height=25 align=right bgcolor=FFFFFF重復密碼： /td td bgcolor=FFFFFF input type=passw ord name=pw d1 ID=Text3 font color=FF0000*/font（長度大于 6 位） /td /tr tr td height=25 align=right bgcolor=FFFFFF性別：/td td bgcolor=FFFFFF input name=ge nd er type=radio value=1 checked img src=images/ width=40 height=40 input type=radio name=gender value=0 % If gender=0 Then checked % img src=images/ width=40 height=40/td /tr tr td height=25 align=right bgcolor=FFFFFF電子郵箱： /td td bgcolor=FFFFFF input type=text name= ID=Text4/td /tr tr td height=25 align=right bgcolor=FFFFFF 號碼： /td td bgcolor=FFFFFF input type=text name=qq ID=Text5/td /tr /table/td /tr tr td height=30 align=center input type=submit name=Sub mit value= 提交 input type=reset name= reset value=重置 /td /tr 文章瀏覽頁： % Dim newsclass1 Set Rs1 = () Sql1=Select class,title From newclass Sql1,conn,3,3 Do While not % table width=549 border=0 align=center cellpadding=1 tr td height=23table width=100% border=0 align=left bgcolor=f7efde tr th width=93% align=left class=STYLE12 scope=coltable width=220 border=0 tr th width=214 scope=colspan class=STYLE10%=Rs1(title)%/span/th /tr /table/th th width=7% align=right scope=cola href=?action=list1amp。newclass=%=Rs1(class)%img src=images/ alt=asas width=33 height=9 border=0 //th /tr /table/td /tr tr % newsclass1=Rs1(class) Set Rs2 = () Sql2=Select Top 4 * From wz Where class=amp。newsclass1amp。 Order By click Desc Sql2,conn,3,3 If And Then trtd width=39。5%39。 height=39。2039。 /tdtd width=39。95%39。 本版塊暫無文章！ /td/tr Else tempnum=1 Do While not % 投稿頁 select name=new sclass ID=Select1 % Set Rs1 = () Sql1=Select * From new class Sql1,conn,3,3 Do While not option value= amp。 Rs1(class) amp。 amp。 Rs1(title) amp。 /option Loop Set Rs1=nothing % /select % If Request(action)=SaveAdd Then Call SaveAdd() End If % % Sub SaveAdd() Dim title Dim new sclass Dim author Dim im