【正文】 e=radio value=DD.%=rs(D)% /td/tr/tablebr%i=i+1Loop%P align=centerINPUT id=submit1 name=submit1 type=submit value=提交INPUT id=reset1 name=reset1 type=reset value=重填/form /td/tr%end ifelse%td height=13 width=688 valign=middle align=center/tdtrtd height=35 width=177 valign=middle align=center/tdtd height=232 width=688 valign=top align=center rowspan=2請 選 擇 題 目 屬 性！ pimg border=0 src=image/ width=235 height=149/p/td/tr%end if%trtd height=197 width=177 valign=top align=centerform method=post action=select size=1 name=chapter class=td1% id=request(id) if id then sql=SELECT * FROM tutorial where ID=amp。idamp。 set rs=(sql) 39。 option value=39。amp。rs(ID)amp。39。amp。rs(rule)amp。 rs(title) /option else option value=39。39。請選擇題目所屬的章節(jié)/option end if Set rs1=() mySQL = SELECT * FROM tutorial order by Id mySQL,conn,1,1 39。Do While not 39。 option value=39。amp。rs1(ID)amp。39。amp。 rs1(rule) amp。 rs1(title) 39。 /option 39。 39。 loop option value=39。all39。amp。全部題目 /option% /selectp題目數(shù)量amp。nbsp。amp。nbsp。 input type=text name=num size=4 class=td1 style=textalign: center。amp。nbsp。amp。nbsp。 題/p pinput type=submit value=開始答題 name=A1/p /formp　/td/tr/table/BODY判分模塊的代碼如下：%=true%HTMLHEADTITLE%=title%/TITLEMETA content=text/html。 charset=gb2312 equiv=ContentTypelink rel=stylesheet type=text/css href=css/link rel=stylesheet type=text/css href=css/META content=Microsoft FrontPage name=GENERATORbase target=_selfmeta name=Microsoft Theme content=art 1011/HEADBODY leftMargin=40 topMargin=20%chapterid=trim(request(chapterid))num=trim(request(num))j=numorder=trim(request(order))for i=1 to jif (ansamp。i)= then centerfont color=39。FF000039。amp。第amp。iamp。題沒有填寫amp。/font/centerbr centera href=39。javascript:(1)。39。返回/a/centerend ifnext%TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=c width=764 height=35trtd height=13 width=223 valign=middle align=center現(xiàn)在位置：font face=華文行楷 size=4a href=首頁/a—測驗結果/font/tdtd height=245 width=3 valign=middle align=center rowspan=3 bgcolor=000000td height=13 width=630 valign=middle align=center/tdtrtd height=35 width=223 valign=middle align=center/tdtd height=232 width=630 valign=top align=left rowspan=2table border=1 width=90% align=center cellspacing=0 cellpadding=5 bgcolor=A4D1FF height=81trtd bgcolor=A4D1FF height=1 width=100% align=center colspan=4font color=FF0000本次測驗結果/font/td/trtrtd bgcolor=EFF3FF height=1 width=22% align=centerfont color=FF0000『題目編號』/font/tdtd bgcolor=EFF3FF height=1 width=26% align=centerfont color=FF0000『你的答案』/font/tdtd bgcolor=EFF3FF height=1 width=27% align=centerfont color=FF0000『正確答案』/font/tdtd bgcolor=EFF3FF height=1 width=25% align=centerfont color=FF0000『題目說明』/font/td/tr%if chapterid=all thensql=select top amp。numamp。 * from test order by amp。orderamp。 descelsesql=select top amp。numamp。 * from test where ID=amp。chapteridamp。 order by amp。orderamp。 descend if Set conn = () driver={Microsoft Access Driver (*.mdb)}。dbq= amp。 ()Set rs= () sql,conn,1,1ycorrect=0rsCount=0for i=1 to i=1Do while not rsCount=rsCount+1%trtd bgcolor=EFF3FF height=1 width=22% align=center%=i%/tdtd bgcolor=EFF3FF height=1 width=26% align=center%if (i)rs(answer) then font color=39。FF000039。amp。(i)amp。(錯誤)amp。/fontelse (i)amp。(正確)end if%　/tdtd bgcolor=EFF3FF height=1 width=27% align=center% rs(answer)if (rsCount)=rs(answer) thenycorrect=ycorrect + 1end if%　/tdtd bgcolor=EFF3FF height=1 width=25% align=center% rs(subject)%/td/tr%i=i+1loopnext%trtd bgcolor=A4D1FF height=1 width=100% align=center colspan=4font color=FF0000你的成績：/font%score=int(ycorrect/rscount*100) scoreamp。分，if score 60 then 你不及格！if score = 60 and score = 80 then 及格if score 80 and score = 100 then 優(yōu)秀！%/td/tr/tablebr/td/trtrtd height=197 width=223 valign=top align=centerform method=post action= name=test onsubmit=return checkdata()select size=1 name=chapter class=td1option value=請選擇題目所屬的章節(jié)/option%Set rs1=()mySQL = SELECT * FROM tutorial order by ID mySQL,conn,1,1 option value=39。all39。amp。全部題目 /option% /selectp題目數(shù)量amp。nbsp。amp。nbsp。 input type=text name=num size=4 class=td1 value=5 style=textalign: center。amp。nbsp。amp。nbsp。 題/p pinput type=submit value=開始答題 name=B1/p /form p　 /td /tr /table /BODY第 52 頁 共 53