【正文】 sername)%/tdtd%=rs(score)%/tdtddiv align=centera href=?ID=%=rs(ID)%刪除/a/div/tdtddiv align=centera href=?ID=%=rs(ID)%更新/a/div/td/tr%loop%/table/body/html%LANGUAGE=VBSCRIPT CODEPAGE=936%! include file= %strsql=delete from student where ID=amp。(password)amp。 and password=39。(username)amp。 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。(strSql)(非常遺憾，您沒(méi)有完成考試，您的成績(jī)將被記為0分！)%/body/html1. 登陸模塊：模塊概述：（1）判斷管理員身份；（2）為用戶建立Session對(duì)象。usernameamp。URL=title無(wú)標(biāo)題文檔/title/headbody%username=session(username)strSql=update student set score=1 where username=39。(strSql)%/body/html%LANGUAGE=VBSCRIPT CODEPAGE=936%! include file= htmlheadmeta equiv=ContentType content=text/html。usernameamp。 where username=39。scoreamp。score)strSql=update student set score=39。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。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*請(qǐng)注意時(shí)間！/font/ppfont考試時(shí)間為45分鐘，45分鐘內(nèi)沒(méi)有交卷者將被記為零分！/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。}/scripthtmlheadmeta equiv=ContentType content=text/html。is1=setTimeout(isnclock(),1000)。=((sec10) ? 0 : )+sec。=+((hrs12) ? hrs12:hrs)。var min=()。}function isnclock(){var now=new Date()。}function startit(){stopit()。function stopit(){if(isn2){ clearTimeout(isn1)。var isn2=false。評(píng)分模塊模塊概述：（1） 提交學(xué)員所做答案（2） 與數(shù)據(jù)庫(kù)中正確答案對(duì)比評(píng)分：未在規(guī)定時(shí)間內(nèi)答完的記零分，在規(guī)定內(nèi)答完的安如下公式換算（right/all=得分/100）（3） 得分記錄入數(shù)據(jù)庫(kù)（4） 顯示成績(jī)考試模塊及提交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注冊(cè)成功,點(diǎn)擊登陸/a /center % end if % /body /html：（登陸時(shí)若已參加過(guò)考試則顯示分?jǐn)?shù)）模塊概述：數(shù)據(jù)庫(kù)查詢。bramp。39。amp。兩次密碼輸入不同 end if if strp(msg,注冊(cè)錯(cuò)誤信息)0 then (?msg=amp。用戶名不能為空 end if if strp(cstr((password)),cstr((password2)))0 then msg=msgamp。 charset=gb2312title成功/title /head body % ac=(ac) msg=注冊(cè)錯(cuò)誤信息 if (username)= then msg=msgamp。模塊概述：（1） 用戶名與密碼是否為空，是否符合標(biāo)準(zhǔn)；（2） 用戶名是否可用，是否重復(fù)；（3） 兩次輸入的密碼是否相同；（4） 是否注冊(cè)成功；相應(yīng)代碼： //注冊(cè)界面%LANGUAGE=VBSCRIPT CODEPAGE=936%htmlheadmeta equiv=ContentType content=text/html。您的成績(jī)?yōu)閍mp。 sqlc,conn,1,1 if not() then if rsc(score)0 then if rsc(score)=1 then (rsc(username)amp。(password)amp。 and password=39。(username)amp。 charset=gb2312 title學(xué)生登陸/title /head body center p學(xué)生登陸/p form name=form2 method=post action= table width=39% border=0 tr td width=22% height=40用戶名:/td td width=78% height=40input name=username type=text id=username3 size=20/td /tr tr td height=43密 碼:/td td height=43input name=password type=password id=password size=20/td /tr tr td height=37 colspan=2 align=centerinput type=submit name=Submit value=確定 input type=reset name=Submit value=重置/td /tr tr td height=20 colspan=2a href= target=_self注冊(cè)/a/td /tr /table /form/center/bo