基于BS架構(gòu)的班級(jí)網(wǎng)站設(shè)計(jì)與實(shí)現(xiàn)--ASP課程設(shè)計(jì)

1、ASP課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告項(xiàng) 目 名 稱： 基于B/S架構(gòu)的班級(jí)網(wǎng)站設(shè)計(jì)與實(shí)現(xiàn) 參 與 成 員： 學(xué) 號(hào)： 聯(lián) 系 電 話： 日 期： 2010-11-02 一、前言ASP（Active Server Pages）活動(dòng)服務(wù)器頁(yè)面，基于微軟公司的服務(wù)器IIS的統(tǒng)一環(huán)境，是Microsoft的一種技術(shù)，它起一種編程語(yǔ)言的作用，利用它編寫動(dòng)態(tài)產(chǎn)生網(wǎng)頁(yè)的HTML程序代碼。ASP可以使用兩種腳本語(yǔ)言：VBScript和Jscript(所謂的Jscript語(yǔ)言就是微軟件版本的JavaScript語(yǔ)言) ，但主要使用VBScript。這些腳本可以執(zhí)行應(yīng)用程序邏輯，并能夠用ActiveX組件執(zhí)行特殊任務(wù)，如數(shù)據(jù)庫(kù)

2、查詢、文件輸入輸出等。ASP內(nèi)含5個(gè)內(nèi)置的Active Server Components（ActiveX服務(wù)器組件），即Database Access component（數(shù)據(jù)庫(kù)訪問(wèn)組件）、File Access component(文件訪問(wèn)組件)、Ad Rotator component（廣告輪顯器組件）、Browser Capabilities component（瀏覽器信息組件）、Content Linking component（內(nèi)部鏈接組件）。最常用的內(nèi)置組件是文件組件和廣告組件。ASP最強(qiáng)大的功能還是使用外置組件。ASP本身包含了一個(gè)DLL文件，名字為asp.dll，缺省安裝在W

3、inntSystem32inetsrv目錄下。這個(gè)DLL文件負(fù)責(zé)得到一個(gè)ASP頁(yè)面（由文件擴(kuò)展名.asp標(biāo)識(shí)），然后對(duì)它進(jìn)行分析，尋找服務(wù)器端腳本內(nèi)容。這個(gè)腳本傳給相應(yīng)的腳本引擎，腳本的執(zhí)行結(jié)果與ASP頁(yè)中的HTML和模板文本結(jié)合在一起。完整的頁(yè)面會(huì)送到Web服務(wù)器，送往原先請(qǐng)求的客戶端。二、個(gè)人網(wǎng)站的設(shè)計(jì)體系結(jié)構(gòu)本系統(tǒng)通過(guò)客戶端瀏覽器向網(wǎng)絡(luò)上的服務(wù)器發(fā)出請(qǐng)求，服務(wù)器對(duì)瀏覽器的請(qǐng)求進(jìn)行處理，將用戶所需信息返回到瀏覽器。B/S結(jié)構(gòu)簡(jiǎn)化了客戶機(jī)的工作，把二層C/S結(jié)構(gòu)的事務(wù)處理邏輯模塊從客戶機(jī)的任務(wù)中分離出來(lái)，由Web服務(wù)器單獨(dú)組成一層來(lái)負(fù)擔(dān)其任務(wù)，從而減輕了客戶機(jī)的壓力。系統(tǒng)的體系架構(gòu)：Brow

4、ser/Web/DataBase（Access）。設(shè)計(jì)目標(biāo)在現(xiàn)有的各種異構(gòu)平臺(tái)的基礎(chǔ)之上構(gòu)筑一個(gè)通用的平臺(tái)無(wú)關(guān)、語(yǔ)言無(wú)關(guān)的技術(shù)層，將網(wǎng)站的所有功能作為Web服務(wù)展示出來(lái)，用戶根據(jù)自己的需要選擇相關(guān)的服務(wù)。主要功能模塊圖1 主要功能模塊本系統(tǒng)的權(quán)限采用基于角色的訪問(wèn)控制，權(quán)限賦予角色，角色分配給用戶。用戶通過(guò)所屬的角色享有權(quán)限。通過(guò)權(quán)限控制，保障了合法用戶順利實(shí)現(xiàn)系統(tǒng)功能，禁止了非授權(quán)用戶對(duì)系統(tǒng)的入侵。數(shù)據(jù)庫(kù)設(shè)計(jì)通訊錄通訊錄數(shù)據(jù)庫(kù)文件bjtxl.mdb文件包括兩個(gè)表，分別為alogin和txl。alogin用來(lái)存儲(chǔ)登錄界面的用戶名和密碼信息，txl用來(lái)存儲(chǔ)同學(xué)的信息，表1和表2所示表1 數(shù)據(jù)庫(kù)表

5、alogin的結(jié)構(gòu)字段名類型說(shuō)明ID自動(dòng)編號(hào)用戶的標(biāo)識(shí)yhm文本（20）登錄的用戶名mm文本（20）登錄的密碼表2 數(shù)據(jù)庫(kù)表txl的結(jié)構(gòu)字段名類型說(shuō)明ID自動(dòng)編號(hào)同學(xué)信息的標(biāo)識(shí)xm文本（20）同學(xué)的姓名lxfs文本（80）同學(xué)的聯(lián)系方式bz文本（80）備注留言簿留言簿數(shù)據(jù)庫(kù)包括兩個(gè)表GuestBook和hfBook。GuestBook用來(lái)存儲(chǔ)教師留言信息，hfBook用來(lái)存儲(chǔ)教務(wù)員的回復(fù)信息，表3和表4所示。hfBook數(shù)據(jù)庫(kù)表中的字段“rID”存儲(chǔ)原主題的ID，該ID就是GuestBook數(shù)據(jù)庫(kù)表中的ID字段。表3 數(shù)據(jù)庫(kù)表GuestBook的結(jié)構(gòu)字段名類型說(shuō)明ID自動(dòng)編號(hào)留言的標(biāo)識(shí)姓名文本

6、（80）留言人的姓名E-mail文本（160）留言人的E-mail主題文本（255）留言的主題留言備注留言的內(nèi)容時(shí)間日期/時(shí)間留言的時(shí)間，now（）IP文本留言人的IP地址Verify數(shù)字驗(yàn)證標(biāo)志，暫時(shí)沒(méi)用表4 數(shù)據(jù)庫(kù)表hfBook的結(jié)構(gòu)字段名類型說(shuō)明ID自動(dòng)編號(hào)回復(fù)信息的唯一標(biāo)識(shí)rID數(shù)字原來(lái)主題的ID用戶名文本回復(fù)人的姓名IP文本回復(fù)人的IP地址回復(fù)內(nèi)容文本回復(fù)的內(nèi)容時(shí)間日期/時(shí)間回復(fù)的時(shí)間三、系統(tǒng)實(shí)現(xiàn)1.身份認(rèn)證主要代碼：<% syhm=request("yhm")smm=request("mm")set rs=server.CreateOb

7、ject("Adodb.recordset")sql="select * from alogin where yhm='"&syhm&"'"rs.open sql,connif syhm="" then response.Write("管理員的名不能為空!") %><link href="css/alogin1.css" rel="stylesheet" type="text/css" /&g

8、t; <p><a href=javascript:history.back()>請(qǐng)輸入管理員名！</a><br><br> <% response.End() end if if smm="" then response.Write("密碼不能為空") %> <a href=javascript:history.back()>請(qǐng)輸入密碼！</a><br /><br /> <% response.end() end if if syh

9、m<>"chenqing" then response.write("您不是系統(tǒng)管理員！") %> <a href=javascript:history.back()>請(qǐng)重新輸入系統(tǒng)管理員名！</a> <br /><br /> <% response.end() else if smm=rs("mm") then response.Redirect(session("file") else %> <a href=javascript

10、:history.back()>密碼錯(cuò)誤！請(qǐng)重新輸入密碼！</a> <br /><br /> <% end if end if rs.closeset rs=nothingconn.closeset conn=nothing%></p>2.聊天室進(jìn)入聊天室需要進(jìn)行身份認(rèn)證，完成此操作過(guò)后，自動(dòng)跳轉(zhuǎn)至聊天界面，在頁(yè)面上方可以可見(jiàn)當(dāng)前在線人數(shù)，其主要代碼如下： message.asp：聊天室的信息輸入界面<% mywords = Request("message")oneSentence = "姓

11、名：" & Session("username") oneSentence = oneSentence & "機(jī)器號(hào):" & Session("no")& "說(shuō):" & mywordsApplication.Lock()Application("talk")=Application("talk") & oneSentence & "<br>"Application.UnLock(

12、)%><HTML><BODY BGCOLOR="LIGHTBLUE"><FORM METHOD="POST" ACTION="MESSAGE.ASP"><INPUT NAME="message" TYPE="TEXT" SIZE="50"><INPUT TYPE="SUBMIT" VALUE="SEND"></FORM></BODY></HT

13、ML> display.asp：聊天信息顯示頁(yè)面<HTML><HEAD><META HTTP-EQUIV="REFRESH" CONTENT="3;URL=display.asp"><SCRIPT LANGUAGE="JavaScript"> function scrollWindow() this.scroll(0,65000)setTimeout('scrollWindow()',200) scrollWindow()</SCRIPT></HE

14、AD><BODY><%Response.Write(Application("talk")%></BODY> </HTML>3.留言簿留言簿包含提交留言，瀏覽留言，編輯留言（修改和刪除），清除重寫四大模塊，其中編輯留言需要身份認(rèn)證才可以進(jìn)行修改、刪除操作；并且瀏覽留言采用分頁(yè)顯示技術(shù)?！傲粞圆尽敝黜?yè)面運(yùn)行效果如圖2所示，其主要代碼如下： handle.asp：處理程序<%'讀取各字段的數(shù)據(jù)Name = Request("Name")Email = Request("Email&

15、quot;)Subject = Request("Subject")Memo = Request("Memo")'檢查各字段是否輸入了數(shù)據(jù)If Name = "" Or Email = "" Or Subject = "" Or Memo = "" Then Response.Write ("字段空白不接受！")'不再處理以下的程序 Response.End End If'插入到數(shù)據(jù)庫(kù)set conn = Server.Create

16、Object("ADODB.Connection")conn.Open("driver=Microsoft Access Driver (*.mdb);dbq=" &_Server.MapPath("lyb.mdb")SQL = "INSERT INTO lyb(姓名,email,主題,內(nèi)容) VALUES('" &_Name & "','" &Email & "','" & Subjec

17、t & "','" & Memo & "')"'Response.Write(SQL)conn.Execute(SQL)conn.close()Response.Redirect("display.asp")%> display.asp：顯示程序<%'連接數(shù)據(jù)庫(kù)，做查詢set conn = Server.CreateObject("ADODB.Connection")conn.Open("driver=Microsoft Acce

18、ss Driver (*.mdb);dbq=" &_Server.MapPath("lyb.mdb")sql = "SELECT * FROM lyb ORDER BY 時(shí)間 DESC"set rs = conn.Execute( sql )%><%'按照的樣式輸出While Not rs.EOF%> <TABLE BORDER="0" BORDERCOLOR="#111111"> <TR> <TD><B><FONT

19、SIZE="4" COLOR="#008080">姓名：</FONT></B></TD> <TD><%=rs("姓名")%></TD> </TR> <TR><TD><B><FONT SIZE="4" COLOR="#008080"> Email:</FONT></B></TD> <TD><A HREF=&q

20、uot;MAILTO:<%=rs("email")%>"> <%=rs("email")%></A></TD> </TR> <TR><TD><B><FONT SIZE="4" COLOR="#008080">主題：</FONT></B></TD> <TD WIDTH="542" HEIGHT="17">&l

21、t;%=rs("主題")%></TD></TR> <TR><TD><B><FONT SIZE="4" COLOR="#008080">時(shí)間：</FONT></B></TD> <TD><%=rs("時(shí)間")%></TD> </TR> <TR><TD><B><FONT SIZE="4" COLOR=

22、"#008080">內(nèi)容</FONT></B></TD> <TD><%=rs("內(nèi)容")%></TD> </TR> </TABLE> <HR><%rs.movenext()Wend%>圖2 留言簿主頁(yè)面4.通訊錄通訊錄的功能是保存姓名、E-mail地址、家庭住址等常用的聯(lián)系信息。模塊包含瀏覽記錄，查詢記錄，添加記錄和編輯記錄（修改和刪除）四個(gè)部分，其中添加記錄和編輯留言需要身份認(rèn)證。瀏覽留言采用分頁(yè)顯示技術(shù)，通訊錄主頁(yè)面運(yùn)行效果如

23、圖3所示，其主要代碼如下： add.asp：添加記錄<% set rs=server.CreateObject("adodb.recordset")rs.open "txl",conn,1,2 rs.addnew rs("xm")=request.Form("xm") rs("lxfs")=request.Form("lxfs") rs("bz")=request.Form("bz") rs.Update response.wri

24、te "記錄己經(jīng)被成功輸入。" rs.close set rs=nothing conn.close set conn=nothing %> del.asp：刪除記錄<% id=request.querystring("id") SQLstmt="DELETE from txl where id="& id &"" conn.execute(SQLstmt) conn.close set conn=nothing Server.Transfer "tongxunlu.asp&q

25、uot; %> query.asp：查詢記錄<% xm2=request.form("xm") sqlstmt="SELECT * from txl where xm='"& xm2 &"'" set rs=server.createobject("adodb.recordset") rs.open sqlstmt,conn,1,1 totalerec=rs.recordcount if totalerec=0 then response.write "沒(méi)有符合

26、條件的記錄,請(qǐng)重新輸入！" response.endend if%> <table> <tr> <td>姓名</td> <td>聯(lián)系方式</td> <td備注</td> </tr><% do while not rs.eof %> <tr align="center"> <td ><%=rs("xm")%></td> <td><%=rs("lxfs&q

27、uot;)%></td> <td><%=rs("bz")%></td> </tr><% rs.movenext loop rs.close set rs=nothing conn.close set conn=nothing %> </table> mod.asp：修改記錄<% id3=request.form("id")xm3=request.form("xm")lxfs3=request.form("lxfs")bz

28、3=request.form("bz")sqlstmt="UPDATE txl set xm='"& xm3 &"',lxfs='"& lxfs3 &"',bz='"& bz3 &"' where id="& id3 &""conn.execute(sqlstmt)conn.closeset conn=nothingserver.transfer "ton

29、gxunlu.asp"%>圖3 通訊錄主頁(yè)面圖4 通訊錄瀏覽5.圖片計(jì)數(shù)器圖片計(jì)數(shù)器是Application對(duì)象的一個(gè)用途，因?yàn)锳pplication是所有的用戶所共有的，所以可以存儲(chǔ)計(jì)數(shù)器的值，當(dāng)有新用戶訪問(wèn)網(wǎng)頁(yè)時(shí)自動(dòng)增值計(jì)數(shù)器的值。其代碼如下：<% Application.Lock()Application("Counter") = Application("Counter") + 1Application.UnLock()Function G ( counter ) Dim S, i S = CStr( counter ) F

30、or i = 1 to Len(S) myimage = myimage & "<IMG SRC=" & Mid(S, i, 1) & ".gif>" Next G = myimageEnd Function %><P ALIGN="CENTER">您是本站第<%=G (Application("Counter")%> 位貴賓！ </P>6.當(dāng)前時(shí)間當(dāng)前時(shí)間是now()自動(dòng)調(diào)用系統(tǒng)時(shí)間實(shí)現(xiàn)的，其代碼如下：<script langua

31、ge="vbscript">document.write(now()</script>7.在線人數(shù)統(tǒng)計(jì)在線人數(shù)統(tǒng)計(jì)采用Application對(duì)象和Session對(duì)象來(lái)編寫。當(dāng)網(wǎng)站開(kāi)啟時(shí)就自動(dòng)調(diào)用global.asa文件，此時(shí)其中的Application_OnStart首先被調(diào)用，然后執(zhí)行其中的語(yǔ)句，Application("whosOn")被自動(dòng)清零。然后當(dāng)?shù)谝晃挥脩舻卿浘W(wǎng)站時(shí)，Session_OnStart被調(diào)用，此時(shí)Application("whosOn")被自動(dòng)加一。當(dāng)?shù)诙?、第三位用戶登錄時(shí)，又被加一，所以顯

32、示的是在線的人數(shù)。其代碼如下： CountOnLine.asp<%Response.Write("現(xiàn)在有" & Application("whoson")& "人在線")%> global.asa<Script LANGUAGE="VBScript" RUNAT="SERVER">Sub Application_OnStart()Application.Lock()Application("whosOn") = 0Application

33、.UnLock()End SubSub Session_OnStart()Application.Lock()Application("whoson") = Cint(Application("whoson") + 1Application.UnLock()End SubSub Session_OnEnd()Application.Lock()Application("whoson") = Cint(Application("whoson") - 1Application.UnLock()End Sub</S

34、cript>8.廣告輪顯廣告圖片的動(dòng)態(tài)顯示時(shí)利用內(nèi)置組件ADROTATOR來(lái)實(shí)現(xiàn)的。使用該組件，可以在每次訪問(wèn)中顯示不同的圖標(biāo)，可以設(shè)置廣告的不同權(quán)重使得顯示頻率不同。其代碼如下： ad.asp<META HTTP-EQUIV="REFRESH" CONTENT="3"URL=DEFAULT.ASP><% set MyAdvertise = Server.CreateObject("MSWC.AdRotator")%><CENTER><%=MyAdvertise.GetAdvertise

35、ment("ad.txt") %></CENTER> ad.txtREDIRECT ad_redir.aspWIDTH 230 HEIGHT 60 BORDER 0*yule.gif././web/mifeng.html 娛樂(lè)天宮40welcome.gif././zhuye.asp 我的地盤我做主30lvhai.gif././web/lvhai.mht 安徽綠海商務(wù)學(xué)院30 ad_redir.asp<% Response.Redirect(Request("url") %>9.文件鏈接組件文件鏈接組件使用戶可以在你頁(yè)面中自由

36、跳轉(zhuǎn)，當(dāng)有許多并列的頁(yè)面時(shí)，改組件非常有用，可以大大簡(jiǎn)化每個(gè)頁(yè)面加入相應(yīng)鏈接信息的這個(gè)過(guò)程。其代碼如下： link.asp總文件個(gè)數(shù)為：<%Set Link = Server.CreateObject("MSWC.nextlink")Response.Write(Link.GetListCount("link.txt")%><BR><% Sum = Link.GetListCount("link.txt")'返回文件總數(shù)For I = 1 to Sum'用循環(huán)依次寫出所有的文件鏈接%>

37、;<a href=" <%=Link.GetNthURL("link.txt",I)%>" target="_blank"> <%=Link.GetNthDescription("link.txt",I)%></a><br><% Next %> link.txtwenjian/01.asp詠白海棠 wenjian/02.asp荷塘月色wenjian/03.asp三國(guó)演義 wenjian/05.asp詠菊問(wèn)菊wenjian/06.asp赤壁懷古1

38、0.記錄客戶端的IP地址該程序中OpenTextFile(path,8,true)方法有三個(gè)參數(shù)，第一個(gè)參數(shù)“path”打開(kāi)文件的地址；第二個(gè)參數(shù)“8”是打開(kāi)方式，這里是以追加的形式打開(kāi)；第三個(gè)參數(shù)“true”表示如果該文件不存在就創(chuàng)建一個(gè)新文件。Request.ServerVariables("REMOTE_ADDR")為客戶端的IP地址，這樣所有訪問(wèn)過(guò)該頁(yè)面的IP地址就被記錄下來(lái)了。其代碼如下：<% path = Server.MapPath("test.log")set MyFileObject = Server.CreateObject(&

39、quot;Scripting.FileSystemObject")set MyTextFile = MyFileObject.OpenTextFile(path,8,true)MyTextFile.WriteLine(Request.ServerVariables("REMOTE_ADDR")MyTextFile.Close()%>11.文件上傳文件上傳組件可以使用戶在ASP頁(yè)面中接受客戶瀏覽器上傳的文件。本文件上傳包含下載、瀏覽、刪除操作，其中刪除操作需要身份認(rèn)證，用戶上傳的文件保存到數(shù)據(jù)庫(kù)中，Access中是利用類型“OLE對(duì)象”來(lái)上傳文件的。其代碼如下

40、： index.asp<HTML> <BODY><P ALIGN='RIGHT'><A HREF="ADD_FORM.ASP">上傳文件</A><TABLE WIDTH="100%" BORDER="1"><TR BGCOLOR="#CACACA" ALIGN="CENTER"><TD WIDTH="10%">預(yù)覽</TD><TD WIDTH=&q

41、uot;15%">名稱</TD><TD WIDTH="13%">大小(K)</TD><TD WIDTH="15%">類型</TD><TD WIDTH="17%">簡(jiǎn)介</TD><TD WIDTH="10%">下載</TD><TD WIDTH="10%">瀏覽</TD><TD WIDTH="10%">刪除</TD&

42、gt;</TR><%set conn = server.createobject("ADODB.CONNECTION")conn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" &_server.mappath("temp.mdb")strSql = "SELECT * FROM uploadfiles ORDER BY submit_date DESC" Set rs = conn.Execute(strSql)Do while No

43、t rs.EofResponse.Write "<tr bgcolor='#EBEBEB'>"Response.Write "<td><img src='showimage.asp?id=" &_rs("id") & "' width='120' height='80'></td>"Response.Write "<td>" & rs("f

44、ilename") & "</td>"Response.Write "<td align='right'>" & Int(rs("size")/1024) & "</td>"Response.Write "<td>" & rs("ext") & "</td>"Response.Write "<td>"

45、 & rs("intro") & "</td>"Response.Write "<td align='center'><a href='download.asp?id=" &_rs("id") & "'>下載</a></td>"Response.Write "<td align='center'><a href='brow

46、se.asp?id=" &_rs("id") & "' target='_blank'>瀏覽</a></td>"Response.Write "<td align='center'><a href='delete.asp?id=" &_rs("id") & "'>刪除</a></td>"Response.Write &qu

47、ot;</tr>"rs.MoveNextLoop%></TABLE></BODY> </HTML> add_form.asp<HTML><HEAD> <SCRIPT Language="JavaScript">function check_Null()if (document.form1.upfile.value="")alert("文件不能為空!"); return false;if (ro.val

48、ue="")alert("說(shuō)明不能為空!"); return false; return true;</SCRIPT></HEAD><BODY><H2 ALIGN="CENTER">上傳文件</H2><CENTER><FORM ACTION="upload.asp" METHOD="post" ENCTYPE="multipart/form-data" NAME="form1"

49、ONSUBMIT="return check_Null();"><TABLE BORDER="0" WIDTH="60%"><TR><TD>選擇文件</TD><TD><INPUT TYPE="file" NAME="upfile" SIZE="40"><BR>（文件名請(qǐng)勿用中文）</TD></TR><TR><TD>簡(jiǎn)單說(shuō)明</TD&g

50、t;<TD><INPUT TYPE="TEXT" name="intro" SIZE="50">（必須輸入）</TD></TR></TABLE><P><INPUT TYPE="SUBMIT" VALUE=" 確定 "></FORM></CENTER></BODY> </HTML> browse.asp<HTML><BODY><img s

51、rc="showimage.asp?id=<%=Request.QueryString("id")%>"></BODY></HTML> showimage.asp<% set conn = server.createobject("ADODB.CONNECTION")conn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" &_server.mappath("temp.mdb")'

52、;打開(kāi)記錄集strSql = "SELECT * FROM uploadfiles WHERE id = " & Request("id")Set rs = conn.Execute(strSql)'下面將文件輸出到客戶端瀏覽器Response.ContentType = "image/*" Response.BinaryWrite rs("fileimage") %> download.asp<% set conn = server.createobject("ADODB.C

53、ONNECTION")conn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" &_server.mappath("temp.mdb")'打開(kāi)記錄集strSql = "Select * From uploadfiles where id = " & Request("id")Set rs = conn.Execute(strSql)'下面將文件輸出到客戶端，首先指明ContentTypeResponse.ContentT

54、ype = "application/octet-stream"'告訴瀏覽器文件名稱Response.AddHeader "Content-Disposition","attachment;filename=" & rs("filename")'告訴瀏覽器文件大小Response.AddHeader "Content-Length", CStr(rs("size")'輸出二進(jìn)制文件Response.BinaryWrite rs("fileimage")%> delete.asp<%'刪除數(shù)據(jù)庫(kù)中的記錄set conn = server.createobject("ADODB.CONNECTION")conn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" &