【文章內容簡介】 mp。(username)amp。39。 sql,conn,1,1 ck=rsc(username) set rsc=nothing if ck then msg=msgamp。bramp。用戶名被人注冊 (?msg=amp。msg) end if dsql=select * from student where id is null set rs=() dsql,conn,1,3 rs(username)=(username) rs(password)=(password)rs(score)=0 set rs=nothing % center a href= target=_self注冊成功,點擊登陸/a /center % end if % /body /html：（登陸時若已參加過考試則顯示分數(shù)）模塊概述：數(shù)據(jù)庫查詢。4. 考試模塊模塊概述：（1） 限定考試時間（2） 提供考題5. 提交amp。評分模塊模塊概述：（1） 提交學員所做答案（2） 與數(shù)據(jù)庫中正確答案對比評分：未在規(guī)定時間內答完的記零分，在規(guī)定內答完的安如下公式換算（right/all=得分/100）（3） 得分記錄入數(shù)據(jù)庫（4） 顯示成績考試模塊及提交amp。評分模塊代碼：%@LANGUAGE=VBSCRIPT CODEPAGE=936%! include file= %sql=select * from testset rs=(sql)%script LANGUAGE=Javascriptvar isn1=null。var isn2=false。today=new Date()。function stopit(){if(isn2){ clearTimeout(isn1)。 }isn2=false。}function startit(){stopit()。isnclock()。}function isnclock(){var now=new Date()。var hrs=()。var min=()。var sec=()。=+((hrs12) ? hrs12:hrs)。=((min10) ? 0 : )+min。=((sec10) ? 0 : )+sec。=(hrs=12) ? . : .。is1=setTimeout(isnclock(),1000)。isn2=true。}/scripthtmlheadmeta equiv=ContentType content=text/html。 charset=gb2312meta equiv=refresh content=30。URL=meta name=Microsoft Visual Studio /headbody onLoad=startit()centertable border=2trtdTime/tdtdHour/tdtdMin/tdtdSec/tdtd/td/trtrtd/tdtd valign=topform name=clckh onSubmit=0input type=text name=disp size=2 value=/form/tdtd valign=topform name=clckm onSubmit=0input type=text name=disp size=2 value=/form/tdtd valign=topform name=clcks onSubmit=0input type=text name=disp size=2 value=/form/tdtd valign=topform name=clck onSubmit=0input type=text name=disp size=4 value=/form/td/tr/table/centerp/ppfont*請注意時間！/font/ppfont考試時間為45分鐘，45分鐘內沒有交卷者將被記為零分！/font/pform action= id=form1 method=post name=form1p%i=1do while not %p align=left%=rs(question)%/ptable align=center border=1 cellpadding=1 cellspacing=1 width=80%trtd style=width:50% width=50%input name=ans% =i% type=radio value=A%=rs(a)%/tdtdinput name=ans%=i% type=radio value=B% =rs(b) %/td/trtrtdinput name=ans%=i% type=radio value=C%=rs(c)%/tdtdinput name=ans%=i% type=radio value=D%=rs(d)%/td/tr/table%i=i+1loop%/pp/pp align=centerinput id=submit1 name=submit1 type=submit value=提交input id=reset1 name=reset1 type=reset value=重置/p/form/body/html%@LANGUAGE=VBSCRIPT CODEPAGE=936%! include file= htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312meta equiv=refresh content=10。URL=/headbody%username=session(username)dim scoredim ycorrectdim rsCountsql=select answer from testset rs=(sql)ycorrect=0rsCount=0(正確答案:)do while not rs(answer)rsCount=rsCount+if (rsCount)=rs(answer) thenycorrect=ycorrect+end ifloop(bramp。你的答案：)score=int((ycorrect/rsCount)*100)for i=1 to (i)next(br)(你的成績：amp。score)strSql=update student set score=39。amp。scoreamp。39。 where username=39。amp。usernameamp。39。(strSql)%/body/html%@LANGUAGE=VBSCRIPT CODEPAGE=936%! include file= htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312meta equiv=refresh content=10。URL=title無標題文檔/title/headbody%username=session(username)strSql=update student set score=1 where username=39。amp。usernameamp。39。(strSql)(非常遺憾，您沒有完成考試，您的成績將被記為0分！)%/body/html1. 登陸模塊：模塊概述：（1）判斷管理員身份；（2）為用戶建立Session對象。相應代碼：%@LANGUAGE=VBSCRIPT CODEPAGE=936%! include file= html head meta equiv=ContentType content=text/html。 charset=gb2312 title管理員登陸/title /head body center p管理員登陸/pform name=form1 method=post action= table width=33% height=128 border=0 tr td width=28% height=40用戶名:/td td width=72% height=40input name=username type=text id=username size=20/td /tr tr td height=42密 碼:/td td height=42input name=password type=password id=password size=20/td /tr tr td height=36 colspan=2 align=centerinput type=submit name=Submit value=確定 input type=reset name=Submit value=重置/td /tr tr /table /form /center /body /html %@LANGUAGE=VBSCRIPT CODEPAGE=936%! include file= % set rsc=() sqlc=select * from teacher where name=39。amp。(username)amp。39。 and password=39。amp。(password)amp。39。 sqlc,conn,1,1 if not() thensession(username)=rsc(name) session(password)=rsc(password) =30set rsc=nothing () else(對不起，用戶名或密碼錯誤！)end if% 2. 用戶管理模塊模塊概述：用戶的改、刪、查相應代碼：%@LANGUAGE=VBSCRIPT CODEPAGE=936%! include file= htmlbodyh2 align=center class=style1參加考試學員/h2%sql=select * from student order by id DESCset rs=(sql)%table width=80% border=1 align=centertr bgcolor=999999th width=16%編號/thth width=32%姓名/thth width=17%成績/thth width=18%刪除/thth width=17%更新/th/tr%do while not %trtd%=rs(ID)%/tdtd%=rs(username)%/tdtd%=rs(score)%/tdtddiv align=centera href=?ID=%=rs(ID)%刪除/a/div/tdtddiv align=centera href=?ID=%=rs(ID)%更新/a/div/td/tr%