Web應(yīng)用程序開發(fā)教程 第08章

Web應(yīng)用程序開發(fā)教程

授課教師：職務(wù)：第8章常用ASP應(yīng)用實例課程描述本章將介紹幾個常用的ASP實例。這些實例都是以ASP+SQLServer為基礎(chǔ)設(shè)計開發(fā)的，具體較高的實用價值。本章知識點用戶管理及用戶登錄簡易網(wǎng)上論壇網(wǎng)站流量統(tǒng)計系統(tǒng)網(wǎng)絡(luò)投票系統(tǒng)8.1用戶管理及用戶登錄系統(tǒng)功能分析及數(shù)據(jù)庫設(shè)計設(shè)計用戶登錄模塊限制普通用戶的權(quán)限設(shè)計系統(tǒng)主界面設(shè)計用戶管理模塊添加和修改用戶模塊設(shè)計刪除用戶模塊設(shè)計修改密碼模塊設(shè)計退出登錄模塊系統(tǒng)功能分析及數(shù)據(jù)庫設(shè)計用戶管理功能模塊的關(guān)系創(chuàng)建一個數(shù)據(jù)庫UserManCREATEDATABASEUserManGO創(chuàng)建一個用戶信息表UsersUSEUserManGOCREATETABLEUsers(UserId IntPrimaryKeyIDENTITY,UserName Varchar(50)NOTNULL,UserPwd Varchar(50)NOTNULL,Ename Varchar(50),Email Varchar(50))GOINSERTINTOUsers(UserName,UserPwd,Ename,Email)VALUES('Admin','Admin','','')GO設(shè)計用戶登錄模塊<%'如果尚未定義Passed對象，則將其定義為False，表示沒有通過身份認(rèn)證IfIsEmpty(Session("Passed"))ThenSession("Passed")=FalseEndIf

'如果Session("Passed")=False,則表示沒有通過身份驗證IfSession("Passed")=FalseThen '讀取從表單傳遞過來的身份數(shù)據(jù)UserName=Request.Form("UserName")UserPwd=Request.Form("UserPwd")

IfUserName=""ThenErrmsg="請輸入用戶名和密碼"Else設(shè)計用戶登錄模塊 '=============連接數(shù)據(jù)庫==============='Server對象的CreateObject方法建立Connection對象SetConn=Server.CreateObject("ADODB.Connection") 'Driver表示ODBC驅(qū)動程序 'Server表示數(shù)據(jù)庫服務(wù)器名稱 'UID表示用戶賬號 'PWD表示用戶密碼 'Database表示在數(shù)據(jù)庫服務(wù)器上的一個Database名稱 Conn.ConnectionString="driver={SQLServer};server=127.0.0.1;UID=sa;PWD=sa;Database=UserMan" '連接數(shù)據(jù)庫 Conn.Open '============從表Users中讀取用戶數(shù)據(jù)=============='定義Recordset對象Setrs=Server.CreateObject("ADODB.Recordset")'設(shè)置Connection對象的ConnectionString '設(shè)置rs的ActiveConnection屬性，綁定到連接 Setrs.ActiveConnection=Conn '設(shè)置游標(biāo)類型 rs.CursorType=3 '打開記錄集 rs.Open"SELECT*FROMUsersWHEREUserName='"&Trim(UserName)&"'"設(shè)計用戶登錄模塊'=============身份驗證=========================== Ifrs.EOFThen Errmsg="用戶不存在" Else IfUserPwd<>rs.Fields("UserPwd")Then Errmsg="密碼不正確"Else'登錄成功

Errmsg="" Session("Passed")=True Session("UserName")=rs.Fields("UserName") Session("UserId")=rs.Fields("UserId") EndIf EndIfEndIfEndIf'經(jīng)過登錄不成功，則畫出登錄表單MyFormIfNotSession("Passed")Then%>限制普通用戶的權(quán)限為了判斷用戶的身份IsAdmin.asp腳本：<%IfSession("UserName")<>"Admin"ThenResponse.Write("不是Admin用戶，沒有此權(quán)限")Response.EndEndIf%>設(shè)計系統(tǒng)主界面Index.asp將根據(jù)不同類型的用戶顯示不同的界面<!--#includefile=“ChkPwd.asp”-->……

<%'如果登錄成功，則根據(jù)用戶類型決定顯示內(nèi)容IfSession("Passed")=TrueThenResponse.Write("登錄成功，"&Session("UserName")&"，歡迎光臨<BR><BR><BR><center>")IfSession("UserName")="Admin"ThenResponse.Write("<ahref=UserList.asp>用戶管理</a><ahref=PwdChange.asp?UserId="&Session("UserId")&"onclick=""returnnewwin(this.href)"">修改密碼</a><ahref=logout.asp>退出登錄</a>")ElseResponse.Write("<ahref=PwdChange.asp?UserId="&Session("UserId")&"onclick=""returnnewwin(this.href)"">修改密碼</a><ahref=logout.asp>退出登錄</a>")EndIfEndIf%>設(shè)計系統(tǒng)主界面Admin登錄成功后的界面普通用戶登錄成功后的界面設(shè)計用戶管理模塊UserList.asp列出所有用戶記錄，可以添加、修改、刪除和查看用戶記錄。<%'Server對象的CreateObject方法建立Connection對象SetConn=Server.CreateObject("ADODB.Connection")Conn.ConnectionString="driver={SQLServer};server=127.0.0.1;UID=sa;PWD=sa;Database=UserMan"Conn.Open'定義Recordset對象Setrs=Server.CreateObject("ADODB.Recordset")'設(shè)置rs的ActiveConnection屬性，綁定到連接Setrs.ActiveConnection=Conn'設(shè)置游標(biāo)類型rs.CursorType=3'執(zhí)行SQL語句，讀取所有的用戶數(shù)據(jù)，并保存結(jié)果到記錄集對象rs中rs.Open"Select*fromUsersOrderbyUserId"rCount=rs.RecordCount

設(shè)計用戶管理模塊'循環(huán)顯示所有的用戶數(shù)據(jù)，同時畫出表格DoWhileNotrs.EOF%><tr><td><%=rs("UserName")%></td><td><%=rs("Ename")%></td><td><%=rs("Email")%></td><tdalign="center"><ahref=UserEdit.asp?userid=<%=rs("UserId")%>onclick="returnnewwin(this.href)">修改</a><%Ifrs("UserName")<>"Admin"Then%><ahref=UserDelt.asp?userid=<%=rs("UserId")%>onclick="returnnewwin(this.href)">刪除</a></td><%EndIf%></tr>

<%rs.MoveNextLoopIfrCount=0Then Response.Write"<tralign='center'><tdcolspan=6><fontcolor=red>目前還沒有用戶記錄</font></td></tr>"Else Response.Write"<tralign='center'><tdcolspan=6><fontcolor=red>當(dāng)前共有"&Trim(rCount)&"條用戶記錄</font></td></tr>"endif%>設(shè)計用戶管理模塊UserList.asp的運行界面添加和修改用戶模塊UserAdd.asp的設(shè)計界面UserEdit.asp的設(shè)計界面設(shè)計刪除用戶模塊UserDelt.asp，刪除指定的用戶記錄：<%Dimuid'讀取UserId參數(shù)uid=Request.QueryString("UserId")'Server對象的CreateObject方法建立Connection對象SetConn=Server.CreateObject("ADODB.Connection")Conn.ConnectionString="driver={SQLServer};server=127.0.0.1;UID=sa;PWD=sa;Database=UserMan"Conn.Open'執(zhí)行DELETE語句，刪除指定用戶Conn.Execute("DELETEFROMUsersWHEREUserId="&uid)Response.Write"<h2>成功刪除</h2>"%>設(shè)計修改密碼模塊設(shè)計退出登錄模塊logout.asp。退出登錄的操作包括：將Session("Passed")設(shè)置為False，表示當(dāng)前沒有用戶登錄；將Session("UserName")設(shè)置為空；將網(wǎng)頁轉(zhuǎn)向到index.asp，要求用戶重新登錄。Logout.asp：

<%Session("Passed")=falseSession("UserName")=""Response.Redirect("index.asp")%>8.2簡易網(wǎng)上論壇系統(tǒng)功能分析及數(shù)據(jù)庫設(shè)計主頁中的用戶管理部分用戶身份驗證注冊新用戶修改用戶信息刪除用戶顯示主題留言添加新帖子查看留言內(nèi)容回復(fù)留言刪除留言置頂與取消置頂系統(tǒng)功能分析及數(shù)據(jù)庫設(shè)計創(chuàng)建數(shù)據(jù)庫：

CREATEDATABASEDiscussGO創(chuàng)建表：表Content用來保存論壇留言的標(biāo)題；表Users用來保存系統(tǒng)用戶信息；主頁中的用戶管理部分注冊、修改、刪除用戶信息添加新帖子、查看留言內(nèi)容添加新帖子查看留言內(nèi)容8.3網(wǎng)站流量統(tǒng)計系統(tǒng)系統(tǒng)功能分析及數(shù)據(jù)庫設(shè)計設(shè)計公共文件設(shè)計訪問者界面網(wǎng)站信息界面設(shè)計最近訪問者界面設(shè)計按月統(tǒng)計界面設(shè)計按年統(tǒng)計界面設(shè)計系統(tǒng)功能分析及數(shù)據(jù)庫設(shè)計網(wǎng)站流量統(tǒng)計系統(tǒng)包含以下主要模塊：訪問者基本信息。網(wǎng)站綜合信息。最近20名訪問者信息。按月訪問量統(tǒng)計。按年訪問量統(tǒng)計。數(shù)據(jù)庫為FluxStat：

CREATEDATABASEFluxStatGO創(chuàng)建表WebInfo、表Visitors和表FluxStat。設(shè)計公共文件1．連接數(shù)據(jù)庫ConnDB.asp<%DimConnDimConnSt