【正文】 9。 sql,conn,1,3 if not ( and ) then if rs(total) then table width=400 align=centertrtd height=30br您已經(jīng)參加過考試了，/td/trtrtd height=39。4039。 colspan=39。339。bfont color=red你的的成績?yōu)椋?(rs(total)) 分。br/font/b/td/tr/table div align=centera href=39。javascript:()39。關(guān)閉窗口/a/div else div align=center提示：p您已經(jīng)參加過考試了，請(qǐng)等待成績！pa href=39。javascript:(1)39。返回/a/div end if else%body oncontextmenu==false%if ks=1 then %script type=text/JavaScriptvar maxtime。if(==39。39。){ maxtime = %=ExamTime%*60。}else{maxtime = 。}function CountDown(){if(maxtime=0){minutes = (maxtime/60)。seconds = (maxtime%60)。msg = 剩余時(shí)間：+minutes+分+seconds+秒。[timer].innerHTML = msg。if(maxtime == 15*60) alert(39。注意，還有15分鐘考試即將結(jié)束!39。)。maxtime。 = maxtime。 }else{clearInterval(timer)。(考試時(shí)間已到，試卷即將提交！)。=。()。}}timer = setInterval(CountDown(),1000)。/scripttable cellSpacing=0 cellPadding=0 align=center background=images/ width=1002 tr td colSpan=3 id=banner align=centerfont color=FFFFFF%=SiteName%/font/td /tr tr td colSpan=3 id=menu注意事項(xiàng)：本試卷共%=ExamScore%分，考試時(shí)間為%=ExamTime%分鐘，時(shí)間到自動(dòng)提交試卷。span id=timer/span /td /tr/tabletable width=1002 align=center bgcolor=FAFAFAform id=form1 name=fm method=post action= onsubmit=return checkForm(this) tr td id=info colspan=5table width=100% border=0 tr td考生信息： 班級(jí)：u%=session(poc)%/uamp。nbsp。 姓名：u%=session(yonghuming)%/uamp。nbsp。 學(xué)號(hào)：u%=session(num)%/u/td tdamp。nbsp。/td td width=100 align=centerimg src=admin/images/ width=16 height=14 //td /tr /table/td /tr%if xz0 then % tr td colspan=4 id=BigTitle一、選擇題 %=ChoiceDes% /td /tr%39。選擇題開始 NumC=ChoiceNum sqlChoice=select top amp。NumCamp。 * from Choice order by rnd(()*amp。rnd()amp。) set rsChoice=() sqlChoice,conn,1,1 Do while not For k = 1 to NumC% % set rs1 = () sql = select * from save sql,conn,3,3 rs1(fenlei) = daxuan rs1(timu) = rsChoice(Topic) rs1(daan) = rsChoice(right) rs1(yonghu) = session(yonghuming) rs1(num) = session(num) rs1(shijian) = date() % tr onMouseOver==39。F0F7FF39。 onMouseOut==39。FAFAFA39。 td colspan=4table width=98% cellpadding=0 cellspacing=2 align=center tr td colspan=2b%=k%.%=rsChoice(Topic)%/binput name=Choice1%=k% type=hidden value=%=rsChoice(right)%/td /tr tr td width=50%input type=radio name=Choice%=k% value=A title=請(qǐng)選擇單選“第%=k%題”~! / A、%=rsChoice(A)%/td tdinput type=radio name=Choice%=k% value=B title=請(qǐng)選擇單選“第%=k%題”~! / B、%=rsChoice(B)%/td /tr tr td width=50%input type=radio name=Choice%=k% value=C title=請(qǐng)選擇單選“第%=k%題”~! / C、%=rsChoice(C)%/td tdinput type=radio name=Choice%=k% value=D title=請(qǐng)選擇單選“第%=k%題”~! / D、%=rsChoice(D)%/td /tr /table /td /tr% NextLoop39。選擇題結(jié)束set rsChoice=nothingend if%3評(píng)分部分代碼:!include file=inc/ !include file=inc/!include file=../inc/%IF Request(wor)=del Thensql=delete from Result where id=amp。Request(id)(sql)End IF%%action=Request(action)id=Request(id)if action=yes Then set rs=() if id= then sql=select * from Result sql,conn,3,3 39。添加記錄到數(shù)據(jù)表末端 elsesql=select * from Result where id=amp。idamp。 sql,conn,1,2end if rs(total)=Request(total) 39。更新數(shù)據(jù)表記錄 set rs=nothing ?action=listend if%script language=JavaScript!function DoEmpty(params){if (confirm(真的要?jiǎng)h除這條記錄嗎？刪除后此記錄里的所有內(nèi)容都將被刪除并且無法恢復(fù)！)) = params 。}///scriptscript language=JavaScriptfunction check(){ if (==) { alert(請(qǐng)輸入學(xué)生總成績！) () () return } ()}/scripthtmlheadmeta equiv=ContentType content=text/html。 charset=gb2312title/titlelink href=images/ rel=stylesheet type=text/css/headbodytable width=100% border=0 cellpadding=0 cellspacing=0 tr valign=top td bgcolor=FFFFFF %if action=list then%BR table width=96% border=0 align=center cellpadding=4 cellspacing=1 bgcolor=aec3de tr align=center bgcolor=F2FDFF td colspan=8 class=optiontitle班級(jí)列表/td /tr tr align=center bgcolor=F2FDFF td colspan=8 align=left%dim sqlClass,rsClasssqlClass=select * from Sclass order by id ascSet rsClass= () sqlClass,conn,1,1if then (還沒有任何班級(jí)，請(qǐng)先添加班級(jí)。)end ifdo while not if rsClass(Cname)=ClassName then (a href=39。?action=listamp。ClassName= amp。 rsClass(Cname) amp。 39。font color=39。black39。 amp。 rsClass(Cname) amp。 /font/a | ) else (a href=39。?action=listamp。ClassName= amp。 rsClass(Cname) amp。 39。 amp。 rsClass(Cname) amp。 /a | ) end if loopset rsClass=nothing39。按班級(jí)分類查詢開始ClassName=trim(request(ClassName))sname=trim(request(sname))% /td /tr tr align=left bgcolor=F2FDFF td class=optiontitle colspan=8a href=?action=list學(xué)生列表/a %if ClassName= then 所有學(xué)生else%%=ClassName%/td /tr tr align=39。center39。 bgcolor=ebf0f7 td width=12%班級(jí)/td td width=6%學(xué)號(hào)/td td width=14%姓名/td td width=28% colspan=3操作/td td width=20%提交地址/td td width=20%提交時(shí)間/td /tr27