【文章內(nèi)容簡介】 /) amp。 % //可以更改數(shù)據(jù)庫后綴 4 系統(tǒng)的具體實現(xiàn) 前臺登陸模塊 圖 41前臺用戶登 陸流程圖 7 圖 42登陸界面 前臺用戶登陸流程如圖 41 所示，該模塊通過 文件實現(xiàn)。用戶登錄簡單，只要輸入用戶名、密碼。若用戶輸入的以上兩項與數(shù)據(jù)庫中保存的相符，則表明用戶登錄成功，可以開放全部前臺子系統(tǒng)；如果不符，則會顯示用戶登錄失敗相應(yīng)的就會轉(zhuǎn)到 頁面。前臺用戶登陸模塊的具體的執(zhí)行流程如圖 42所示。 前臺界面通過 。 調(diào)用文件和 Form表單通過下面的 代碼來實現(xiàn)： !下面代碼是用戶登錄控制代碼 // 此處 javascript代碼用于 驗證表單數(shù)據(jù) 用戶名為空的時候提示請輸入用戶名密碼為空的時候提示請輸入密碼 script language=javascript function CheckForm() { if(==) { alert(請輸入用戶名！ )。 ()。 return false。 } if( == ) 8 { alert(請輸入密碼！ )。 ()。 return false。 } } function ClearForm() { = 。 = 。 } /script //驗證表單數(shù)據(jù) 結(jié)束 // 下面代碼用于學生登錄判斷 %if Session(MM_UserName)= then % table width=100% cellspacing=5 bgcolor=FFFFFF form name=Login onSubmit=return CheckForm() action= method=Post tr td align=right用戶名： /td tdinput name=UserName size=12 /td /tr tr td align=right密 碼： /td tdinput type=password size=12 name=PassWord /td /tr tr align=center tdcolspan=2height=30inputname=submittype=image src=images/ width=52 height=18 ahref=39。javascript:ClearForm()39。img src=images/ alt= 清除 name=clear width=52 height=18 border=0/a /td /tr/form /table %else% // 登錄成功后顯示 table width=100% cellspacing=5 bgcolor=FFFFFF tr td align=right用戶名： /td td% Session(MM_UserName)%/td/tr trtd align=right密 碼： /td /tr trtd align=right身 份： /tdtd 9 % if Session(MM_UserAuthorization)=1 then 管理員 else 普通用戶 //登錄成功顯示 end if % /td /tr tr align=center td height=30 colspan=2a href=【注銷登錄】/a/td //注銷返回 頁面 /tr/table %end if% //相關(guān)文件 Banner實現(xiàn)（ ） !include file= // 頁面調(diào)用 top banner代碼 // 下面代碼是 banner特效控制代碼 % dim xpic,xswf randomize xpic=xpic/amp。(1+int(rnd*10))amp。.jpg randomize xswf=xswf/amp。(1+int(rnd*11))amp。.swf % // banner實現(xiàn)文件為 // 這里代碼可使 Flash背景透明 embed src=%= xswf % width=760 height=32 align=middle quality=high pluginspage= type=application/xshockwaveflash/embed 學生信息管理模塊 學生信息管理模塊的效果圖如圖 43 所示。該模塊相關(guān)文件為：。 圖 43信息管理界面 10 成績管理模塊 成績管理模塊的效果圖如圖 44 所示。該模塊相關(guān)文件為：。 圖 44 學生成績管理圖 考試管理模塊 考 試管理模塊的效果圖如圖 45所示。該模塊相關(guān)文件為： 。 圖 45 學生考試管理圖示 用戶管理模塊 用戶界面實現(xiàn)（ ）可以由管理員設(shè)置學生使用帳戶，如圖46所示。 11 圖 46用戶管理模塊 用戶界面實現(xiàn)（ ）可以由管理員設(shè)置學生使用帳戶。 （ 1）在用戶界面中，它是對數(shù)據(jù)表的列進行操作的。 用戶相關(guān)文件為： 等 它的屬性是對學生用戶進行添加 或刪除。以下為 部分代碼： % 39。 *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers=1 MM_authFailedURL= MM_grantAccess=false // 判斷是否已經(jīng)登錄 If Session(MM_UserName) Then If (false Or CStr(Session(MM_UserAuthorization))=) Or _ (InStr(1,MM_authorizedUsers,Session(MM_UserAuthorization))=1) Then MM_grantAccess = true End If End If // 如果沒有登錄跳轉(zhuǎn)到登錄頁面 If Not MM_grantAccess Then MM_qsChar = ? If (InStr(1,MM_authFailedURL,?) = 1) Then MM_qsChar = amp。 MM_referrer = (URL) if (Len(()) 0) Then MM_referrer = MM_referrer amp。 ? amp。 12 () MM_authFailedURL = MM_authFailedURL amp。 MM_qsChar amp。 accessdenied= amp。 (MM_referrer) (MM_authFailedURL) End If % % 39。 *** Edit Operations: declare variables // 獲取 url參數(shù)值以備后用 MM_editAction = CStr(Request(URL)) If ( ) Then MM_editAction = MM_editAction amp。 ? amp。 End If 39。 boolean to abort record edit MM_abortEdit = false 39。 query string to execute MM_editQuery = % % 39。 *** Redirect if userName exists // 會員列表顯示代碼部分， MM_flag=MM_insert If (CStr(Request(MM_flag)) ) Then MM_dupKeyRedirect= MM_rsKeyConnection=MM_StudentConn_STRING MM_dupKeyUserNameValue = CStr((UserName)) MM_dupKeySQL=SELECT UserName FROM User WHERE UserName=39。 amp。 MM_dupKeyUserNameValue amp。 39。 MM_adodbRecordset= set MM_rsKey=(MM_adodbRecordset) =MM_rsKeyConnection =MM_dupKeySQL =0 =2 13 =3 If Not Or Not Then 39。 the userName was found can not add the requested userName MM_qsChar = ? If (InStr(1,MM_dupKeyRedirect,?) = 1) Then MM_qsChar = amp。 MM_dupKeyRedirect = MM_dupKeyRedirect amp。 MM_qsChar amp。 UserName= amp。 MM_dupKeyUserNameValue (MM_dupKeyRedirect) End If End If % % 39。 *** Insert Record: set variables If (CStr(Request(MM_insert)) ) Then MM_editConnection = MM_StudentConn_STRING MM_editTable = User MM_editRedirectUrl = MM_fieldsStr = UserName|value|password|value|accesslevel|value MM_columnsStr = UserName|39。,none,39。39。|password|39。,none,39。39。|accesslevel|none,none,NULL 39。 create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, |) MM_columns = Split(MM_columnsStr, |) 39。 set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr((MM_fields(i))) Next 39。 append the query string to the redirect URL If (MM_editRedirectUrl And ) Then If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare) = 0 And ) Then MM_editRedirectUrl = MM_editRedirectUrl amp。 ? amp。 Else 14 MM_editRedirectUrl = MM_editRedirectUrl amp。 amp。 amp。 End If End If End If % （ 2）以下為 部分代碼： % 39。 *** Update Record: construct a sql update statement and execute it If (CStr(Request(MM_update)) And CStr(Request(MM_recordId)) ) Then 39。 create the sql update statement // 獲取數(shù)據(jù)生成相應(yīng) sql語句 MM_editQuery = update amp。 MM_editTable amp。 set For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),) Delim = MM_typeArray(0) If (Delim = none) Then Delim = AltVal = MM_typeArray(1) If (AltVal = none) Then AltVal = EmptyVal = MM_typeArray(2) If (EmptyVal = none) Then EmptyVal = If (FormVal = ) Then FormVal = EmptyVal Else if (AltVal ) Then FormVal = AltVal ElseIf (Delim = 39。) Then 39。 escape quotes FormVal = 39。 amp。 Replace(FormVal,39。,39。39。) amp。