【文章內(nèi)容簡(jiǎn)介】 /) amp。 % //可以更改數(shù)據(jù)庫(kù)后綴 4 系統(tǒng)的具體實(shí)現(xiàn) 前臺(tái)登陸模塊 圖 41前臺(tái)用戶登 陸流程圖 7 圖 42登陸界面 前臺(tái)用戶登陸流程如圖 41 所示，該模塊通過(guò) 文件實(shí)現(xiàn)。用戶登錄簡(jiǎn)單，只要輸入用戶名、密碼。若用戶輸入的以上兩項(xiàng)與數(shù)據(jù)庫(kù)中保存的相符，則表明用戶登錄成功，可以開(kāi)放全部前臺(tái)子系統(tǒng)；如果不符，則會(huì)顯示用戶登錄失敗相應(yīng)的就會(huì)轉(zhuǎn)到 頁(yè)面。前臺(tái)用戶登陸模塊的具體的執(zhí)行流程如圖 42所示。 前臺(tái)界面通過(guò) 。 調(diào)用文件和 Form表單通過(guò)下面的 代碼來(lái)實(shí)現(xiàn)： !下面代碼是用戶登錄控制代碼 // 此處 javascript代碼用于 驗(yàn)證表單數(shù)據(jù) 用戶名為空的時(shí)候提示請(qǐng)輸入用戶名密碼為空的時(shí)候提示請(qǐng)輸入密碼 script language=javascript function CheckForm() { if(==) { alert(請(qǐng)輸入用戶名！ )。 ()。 return false。 } if( == ) 8 { alert(請(qǐng)輸入密碼！ )。 ()。 return false。 } } function ClearForm() { = 。 = 。 } /script //驗(yàn)證表單數(shù)據(jù) 結(jié)束 // 下面代碼用于學(xué)生登錄判斷 %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 //注銷返回 頁(yè)面 /tr/table %end if% //相關(guān)文件 Banner實(shí)現(xiàn)（ ） !include file= // 頁(yè)面調(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實(shí)現(xiàn)文件為 // 這里代碼可使 Flash背景透明 embed src=%= xswf % width=760 height=32 align=middle quality=high pluginspage= type=application/xshockwaveflash/embed 學(xué)生信息管理模塊 學(xué)生信息管理模塊的效果圖如圖 43 所示。該模塊相關(guān)文件為：。 圖 43信息管理界面 10 成績(jī)管理模塊 成績(jī)管理模塊的效果圖如圖 44 所示。該模塊相關(guān)文件為：。 圖 44 學(xué)生成績(jī)管理圖 考試管理模塊 考 試管理模塊的效果圖如圖 45所示。該模塊相關(guān)文件為： 。 圖 45 學(xué)生考試管理圖示 用戶管理模塊 用戶界面實(shí)現(xiàn)（ ）可以由管理員設(shè)置學(xué)生使用帳戶，如圖46所示。 11 圖 46用戶管理模塊 用戶界面實(shí)現(xiàn)（ ）可以由管理員設(shè)置學(xué)生使用帳戶。 （ 1）在用戶界面中，它是對(duì)數(shù)據(jù)表的列進(jìn)行操作的。 用戶相關(guān)文件為： 等 它的屬性是對(duì)學(xué)生用戶進(jì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 // 如果沒(méi)有登錄跳轉(zhuǎn)到登錄頁(yè)面 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 // 會(huì)員列表顯示代碼部分， 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語(yǔ)句 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。