ASP課程設(shè)計實驗報告.docx

ASP課程設(shè)計實驗報告項 目 名 稱： 基于B/S架構(gòu)的班級網(wǎng)站設(shè)計與實現(xiàn) 參 與 成 員： 夏維強 學(xué) 號： * 聯(lián) 系 電 話： * 日 期： 2010-11-23 一、前言ASP（Active Server Pages）活動服務(wù)器頁面，基于微軟公司的服務(wù)器IIS的統(tǒng)一環(huán)境，是Microsoft的一種技術(shù)，它起一種編程語言的作用，利用它編寫動態(tài)產(chǎn)生網(wǎng)頁的HTML程序代碼。ASP可以使用兩種腳本語言：VBScript和Jscript(所謂的Jscript語言就是微軟件版本的JavaScript語言) ，但主要使用VBScript。這些腳本可以執(zhí)行應(yīng)用程序邏輯，并能夠用ActiveX組件執(zhí)行特殊任務(wù)，如數(shù)據(jù)庫查詢、文件輸入輸出等。ASP內(nèi)含5個內(nèi)置的Active Server Components（ActiveX服務(wù)器組件），即Database Access component（數(shù)據(jù)庫訪問組件）、File Access component(文件訪問組件)、Ad Rotator component（廣告輪顯器組件）、Browser Capabilities component（瀏覽器信息組件）、Content Linking component（內(nèi)部鏈接組件）。最常用的內(nèi)置組件是文件組件和廣告組件。ASP最強大的功能還是使用外置組件。ASP本身包含了一個DLL文件，名字為asp.dll，缺省安裝在WinntSystem32inetsrv目錄下。這個DLL文件負(fù)責(zé)得到一個ASP頁面（由文件擴展名.asp標(biāo)識），然后對它進行分析，尋找服務(wù)器端腳本內(nèi)容。這個腳本傳給相應(yīng)的腳本引擎，腳本的執(zhí)行結(jié)果與ASP頁中的HTML和模板文本結(jié)合在一起。完整的頁面會送到Web服務(wù)器，送往原先請求的客戶端。二、個人網(wǎng)站的設(shè)計1.體系結(jié)構(gòu)本系統(tǒng)通過客戶端瀏覽器向網(wǎng)絡(luò)上的服務(wù)器發(fā)出請求，服務(wù)器對瀏覽器的請求進行處理，將用戶所需信息返回到瀏覽器。B/S結(jié)構(gòu)簡化了客戶機的工作，把二層C/S結(jié)構(gòu)的事務(wù)處理邏輯模塊從客戶機的任務(wù)中分離出來，由Web服務(wù)器單獨組成一層來負(fù)擔(dān)其任務(wù)，從而減輕了客戶機的壓力。2.設(shè)計目標(biāo)在現(xiàn)有的各種異構(gòu)平臺的基礎(chǔ)之上構(gòu)筑一個通用的平臺無關(guān)、語言無關(guān)的技術(shù)層，將網(wǎng)站的所有功能作為Web服務(wù)展示出來，用戶根據(jù)自己的需要選擇相關(guān)的服務(wù)。 3.主要功能模塊 圖1 班級網(wǎng)站的主要功能模塊本系統(tǒng)的權(quán)限采用基于角色的訪問控制，權(quán)限賦予角色，角色分配給用戶。用戶通過所屬的角色享有權(quán)限。通過權(quán)限控制，保障了合法用戶順利實現(xiàn)系統(tǒng)功能，禁止了非授權(quán)用戶對系統(tǒng)的入侵。4.數(shù)據(jù)庫設(shè)計1.留言簿留言簿架構(gòu)：Browser/Web/DataBase（Access）其數(shù)據(jù)庫包括兩個表alogin和lyb。alogin用來存儲登陸密碼，lyb用來存儲用戶的回復(fù)信息，表4-1和表4-2所示。hfBook數(shù)據(jù)庫表中的字段“rID”存儲原主題的ID，該ID就是GuestBook數(shù)據(jù)庫表中的ID字段。表4-1 數(shù)據(jù)庫表alogin的結(jié)構(gòu)字段號類型說明ID自動編號用戶的標(biāo)識yhm文本（80）登錄的用戶名mm文本（160）登錄的密碼 表4-2 數(shù)據(jù)庫表lyb的結(jié)構(gòu)字段號類型說明姓名自動編號用戶的標(biāo)識Email數(shù)字用戶的郵箱主題文本留言的標(biāo)題內(nèi)容文本留言的內(nèi)容時間日期/時間回復(fù)的時間2.通訊錄通訊錄架構(gòu)：數(shù)據(jù)庫文件bjtxl.mdb文件包括兩個表，分別為alogin和txl。alogin用來存儲登錄界面的用戶名和密碼信息，txl用來存儲同學(xué)的信息，表3和表5所示表4-3 數(shù)據(jù)庫表alogin的結(jié)構(gòu)字段名類型說明ID自動編號用戶的標(biāo)識yhm文本（20）登錄的用戶名mm文本（20）登錄的密碼表4-4 數(shù)據(jù)庫表txl的結(jié)構(gòu)字段名類型說明ID自動編號同學(xué)信息的標(biāo)識xm文本（20）同學(xué)的姓名lxfs文本（80）同學(xué)的聯(lián)系方式bz文本（80）備注3.BBS論壇通訊錄架構(gòu)：數(shù)據(jù)庫文件bbspp1.mdb文件包括兩個表，分別為發(fā)言表和用戶表。發(fā)言表用來存儲登錄界面的用戶名和密碼信息如表4-5，用戶表用來存儲同學(xué)的信息。 表4-5 BBS 用戶表字段名類型ID自動編號用戶名文本密碼文本電子信箱文本臨時身份文本網(wǎng)址文本表4-6三、個人網(wǎng)站的實現(xiàn)1身份認(rèn)證主要代碼如下： 請輸入管理員名！ 請輸入密碼！ % response.end() end if if syhmchenqing then response.write(您不是系統(tǒng)管理員！) % 請重新輸入系統(tǒng)管理員名！ 密碼錯誤！請重新輸入密碼！ 2留言簿handle.asp：處理程序主要代碼如下：display.asp：顯示程序主要代碼如下： 姓名： Email: A HREF=MAILTO: 主題： 時間： 內(nèi)容 “留言簿”登錄留言頁面運行效果如圖2所示 聊天室圖2留言簿登錄留言界面3.聊天室（1）聊天室信息輸入界面其主要代碼如下： % mywords = Request(message) oneSentence = 姓名： & Session(username) oneSentence = oneSentence & 編號: & Session(no)& 說: & mywords Application.Lock() Application(talk)=Application(talk)& oneSentence & Application.UnLock()% （2） 聊天信息顯示頁面其主要代碼如下： function scrollWindow() this.scroll(0,65000) setTimeout(scrollWindow(),200) scrollWindow() “聊天室”聊天界面運行效果如圖3所示。圖3聊天室聊天界面4.通訊錄通訊錄的功能是保存手機號碼、E-mail地址、住宅電話等常用的聯(lián)系信息，或?qū)σ郧暗男畔⑦M行分組、管理和更新、并根據(jù)用戶要求把后臺數(shù)據(jù)庫信息發(fā)布到前端的瀏覽器，直觀顯示給用戶。其主要包括四個方面： 添加記錄、查詢記錄、刪除記錄、修改記錄。其通訊錄查詢記錄程序的主要代碼如下： 姓名 聯(lián)系方式 td備注 “通訊錄”查詢主頁面運行效果如圖4所示。圖4 通訊錄瀏覽頁界面4BBS論壇Vew.Asp        a href=wordadd1.asp?No=我要發(fā)言              a href=leave.asp?No=離開論壇             管理員入口%sql=SELECT * FROM 發(fā)言表 WHERE 發(fā)言次序=1 ORDER BY ID DESCdim rootRsSet rootRs=Server.CreateObject(ADODB.RecordSet)rootRs.Open sql,conn,1,1If rootRs.Bof OR rootRs.Eof ThenResponse.Write 目前還沒有發(fā)言內(nèi)容。elseset name1=rootrs(發(fā)言標(biāo)題)set name2=rootrs(用戶名)set name3=rootrs(回復(fù)數(shù))set name4=rootrs(電子信箱)set Num=rootrs(Num)rootRs.pagesize=10rootRs.AbsolutePage =1if Request(page) then rootRs.AbsolutePage =Request(page)RowCount =rootRs.pagesizeIf Not rootRs.Eof Then%0%a href=mailto:人回復(fù)a href=vew2.asp?Num=&No=言論內(nèi)容1 thenResponse.Write Response.Write Response.Write 帖子分頁：For i=1 to rootRs.pagecountResponse.Write Response.Write & i & Response.Write NextResponse.Write End ifEnd ifrootRs.closeSet rootRs=nothingconn.closeSet conn=nothing% 圖5 帖子顯示頁面Wordadd1.asp%sql=SELECT * FROM 用戶表 WHERE 臨時身份 and 臨時身份= & Request(No) & Set Rs=conn.Execute(sql)If Rs.Bof OR Rs.Eof ThenResponse.Write 臨時身份出錯,你無權(quán)發(fā)言,請從新登陸。elseSet name1 = rs(用戶名) Set mail = rs(電子信箱) Set url = rs(網(wǎng)址)%姓名：E_mail：主頁：%Response.Write %Response.Write %Response.Write %Response.Write %Res