【正文】 size=5 color=FF0000%=session(selectsubjectname)%考試 /font/b/p % if (submit1)=開始考試 then % form name=testform method=post action= table border=0 cellspacing=0 bordercolor=111111 width=100% tr td width=100% height=25bfont size=3 color=000080一、單項(xiàng)選擇題 ( 每題 %=session(singleper)% 分 , 共 %=session(singlenumber)%題 )/font/b/td /tr /table % dim i,sql,rs,count,temp,strid1,strid2 strid1= strid2= randomize for i=1 to session(singlenumber) 39。for i=1 to CInt(CStr((singlenumber))) set rs=() 39。sql=select * from question where subjectname=39。amp。 (selectsubjectname) amp。 39。and type=39。單選題 39。 and haveselect=0 sql=select * from question where subjectname=39。amp。session(selectsubjectname) amp。 39。and type=39。 單選題 39。 and haveselect=0 sql,conn,3,2 count= temp=fix(count*rnd(10)) temp rs(haveselect)=1 strid1=strid1 amp。 rs(ID) amp。 , % 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 26 圖 45 考試頁面 % subjectname=session(selectsubjectname) studentname=session(studentname) singlenumber=session(singlenumber) singleper=session(singleper) multinumber=session(multinumber) multiper=session(multiper) endtime=now() score=0 selectstr1=(hidQuestID1) selectstr2=(hidQuestID2) len1=len(selectstr1) len2=len(selectstr2) str1=left(selectstr1,len11) 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 27 str2=left(selectstr2,len21) dim id1,id2 id1=split(str1,) id2=split(str2,) for i=1 to singlenumber result=(noamp。id1(i1)) if not isempty(result) then sql=select * from question where id=amp。 clng(id1(i1)) set rs=() sql,conn,3,2 if result=rs(answer) then score=score+cint(singleper) end if set rs=nothing else end if next for i=1 to multinumber result=(noamp。id2(i1)) if not isempty(result) then sql=select * from question where id=amp。 clng(id2(i1)) set rs=() sql,conn,3,2 if result=rs(answer) then score=score+cint(multiper) end if set rs=nothing else end if next sql=select * from score set rs=() sql,conn,3,2 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 28 rs(studentname)=studentname rs(subjectname)=subjectname rs(endtime)=endtime rs(score)=score set rs=nothing call endConnection() total=singlenumber*singleper+multinumber*multiper (centeramp。studentnameamp。你好！你的考試成績?yōu)椋?amp。scoreamp。分，總分為 amp。totalamp。分 /centerbr) % 圖 46 考試結(jié)果頁面 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 29 % set rs = () select * from subject,conn,1,1 if 0 then 數(shù)據(jù)庫出錯(cuò) else if and then 沒有科目 else do while not % div id=KB%=n%Child class=parentfont size=+1a href=?subjectname=%=rs(subjectname)% onMouseOver==39。%=rs(subjectname) %39。return true。 onMouseOut==39。39。return true。IMG SRC=../images/ WIDTH=18 HEIGHT=16 BORDER=0%=rs(subjectname) %/a/fontbr/div % n=n+1 loop set rs=nothing end if end if % !刷新和退出 div id=KB%=n%Parent class=parenta href= target=_top onMouseOver==39。 刷 新 頁 面 39。return true。 onMouseOut==39。39。return true。IMG SRC=../images/ WIDTH=18 HEIGHT=16 BORDER=0font size=+1 face=宋體 刷新頁面 /font/a/div div id=KB%=n+1%Parent class=parentfont size=+1 face= 宋體 a href= onMouseOver==39。 退 出 39。return true。 onMouseOut==39。39。return true。IMG SRC=../images/ WIDTH=18 HEIGHT=16 BORDER=0退 出 /a/font/div 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 30 script language=JavaScript if (NS4) { firstEl = KB1Parent。 firstInd = getIndex(firstEl)。 arrange()。 } 圖 47管理員頁面 % dim isedit 39。是否在編輯狀態(tài) dim color 39。表格顏色 dim id,studentname39。定義變量，用戶的 id dim sql,rs,rsc color=1 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 31 isedit=false if request(action)=edit then isedit=true end if if request(action)=edit then 39。修改用戶 if trim(request(studentpassword))= then 錯(cuò)誤 !密碼不能為空 ! a href=返回 /a end if sql=update student set studentname=39。 amp。 cstr(trim(request(studentname))) amp。 39。,studentpassword=39。 amp。 cstr(trim(request(studentpassword))) sql if 0 then 數(shù)據(jù)庫操作出錯(cuò) : + else % script language=vbscript msgbox 操作成功 !用戶 %=trim(request(studentname))% 的信息已經(jīng)更新 ! /script %end if end if if request(action)=add then 39。添加新用戶 if trim(request(studentname))= or trim(request(studentpassword))= then 錯(cuò)誤 ! 用 戶 名 或 密 碼 不 能 為 空 ! a href= onclick=39。javascript:(1)39。返回 /a end if set rs=() 39。檢查學(xué)生是否重名 select * from student where studentname=39。 amp。 cstr(trim(request(studentname))) amp。 39。,conn,1,1 if 0 then 數(shù)據(jù)庫出錯(cuò) else if not and not then 錯(cuò)誤 ! 該用學(xué)生存在 ! a href= onclick=39。javascript:(1)39。返回 /a 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 32 end if end if set rs=nothing sql=insert into student(studentname,studentpassword) values(39。 amp。 cstr(trim(request(studentname))) amp。 39。,39。 amp。 cstr(trim(request(studentpassword))) amp。 39。) sql if 0 then 數(shù)據(jù)庫操作出錯(cuò) : + else % script language=vbscript msgbox 操作成功 !新用戶 %=trim(request(studentname))% 的信息添加成功 ! /script %end if end if if request(action)=del then 39。刪除用戶 sql=delete from student where id= amp。request(id) sql if 0 then 數(shù)據(jù)庫操作錯(cuò)誤： + else % script language=vbscript msgbox 操作成功 !用戶 %=trim(request(studentname))% 的信息已刪除 ! /script % end if end if % html head title管理學(xué)生 在基于 Inter