【正文】 ifend if nextif flag=1 then %script language=javascriptalert(試題錄入成功！)。var now=new Date()。(?time=+())。/script%else%script language=javascriptalert(錯誤：數(shù)據(jù)不全，或提交為空記錄！)。()。/script%end if end if %htmlheadmeta equiv=ContentLanguage content=zhmeta name=GENERATOR content=Microsoft FrontPage meta name=ProgId content=meta equiv=ContentType content=text/html。 charset=gb2312title在線考試系統(tǒng)/titlelink rel=stylesheet type=text/css href=../style type=text/css!.style1 {color: 000000}/style/headbody topmargin=0 leftmargin=0pp align=centeramp。nbsp。/pp align=centeramp。nbsp。/pp align=centeramp。nbsp。/pp align=centerfont class=test1 style1判斷題管理/font/ph6 align=centeramp。nbsp。/h6div align=center center form name=form1 action= input type=hidden name=ctype value=types table border=1 cellpadding=5 cellspacing=2 style=bordercollapse: collapse bordercolor=999999 width=600 tr td align=center colspan=3注：可以一次添加10道判斷題/td /tr tr bgcolor=ff0099 td width=50 align=center編號/td td width=500 align=center題目/td td width=50 align=center答案/td /tr %for i=1 to 10 j=i if j mod 2 =0 then bg=E9F8F0 else bg=ffffff end if% tr bgcolor=ffe1ff td align=center%=i%/td td input type=text name=T%=i% size=65 class=line/td td align=center select name=cate%=i% size=1 style=backgroundcolor: rgb(224,252,255) option selected value=1對/option option value=0錯/option/select/td /tr %next% /table h6amp。nbsp。 /h6 p input type=submit value=提交 name=B1 input type=reset value=重置 name=B2 /p /form /center/div/body/html!include file=!include file=%sql=delete from type1 where id=amp。trim(request(id))set rs=(sql)%script language=javascriptalert(試題刪除成功！)。var now=new Date()。(?time=+())。/script3．修改操作的關(guān)鍵代碼!include file=script language=javascriptfunction check(){if (==){alert(請錄入題干！)。()。return false。}=types。()。}/script%sql=select * from type1 where id=amp。trim(request(id))set rs= (sql)if request(ctype)=types thensqlfind=select * from type1 where 題干=39。amp。trim(request(t1))amp。39。 and 正確答案=amp。cbool(request(cate))amp。 and idamp。request(id)set rss=(sqlfind)if not then%script language=javascriptalert(已有此試題！)。()。/script%elsesqledit=update type1 set 題干=39。amp。trim(request(t1))amp。39。,正確答案=amp。cbool(request(cate))amp。 ,加入日期=39。amp。date()amp。39。 where id=amp。request(id)set rss=(sqledit)%script language=javascriptalert(試題修改成功！)。var now=new Date()。(?time=+())。/script%end if end if %htmlheadmeta equiv=ContentLanguage content=zhmeta name=GENERATOR content=Microsoft FrontPage meta name=ProgId content=meta equiv=ContentType content=text/html。 charset=gb2312title在線考試系統(tǒng)/titlelink rel=stylesheet type=text/css href=../style type=text/css!.style1 {color: 000033}/style/headbody topmargin=0 leftmargin=0pp align=centeramp。nbsp。/pp align=centeramp。nbsp。/pp align=centeramp。nbsp。/pp align=centerfont class=test1 style1管理判斷題/font/ph6 align=centeramp。nbsp。/h6div align=center center form name=form1 action= input type=hidden name=ctype input type=hidden name=id value=%=trim(request(id))% table border=1 cellpadding=5 cellspacing=0 style=bordercollapse: collapse bordercolor=111111 width=600 tr td align=center colspan=3修改判斷題/td /tr tr bgcolor=ff0099 td width=50 align=center編號/td td width=500 align=center題目/td td width=50 align=center答案/td /tr tr bgcolor=ffe1ff td align=center%=rs(id)%/td td input type=text name=t1 size=70 class=line value=%=rs(題干)%/td td align=center select name=cate size=1 style=backgroundcolor: rgb(224,252,255) option selected value=1 % if rs(正確答案)=true then selected%對/option option value=0 % if rs(正確答案)=false then selected%錯/option/select/td /tr /table pamp。nbsp。 /p h5 input type=button value=提交 name=B1 onClick=check() input type=reset value=重置 name=B2 /h5 /form /center/div/body/html