【導(dǎo)讀】一個(gè)很重要的發(fā)展方向。在線考試系統(tǒng)可以借助于Inter進(jìn)行，考試既可以在。本地進(jìn)行，也可以在異地進(jìn)行，大大拓展了考試的靈活性。Server2000數(shù)據(jù)庫(kù)編寫(xiě)的網(wǎng)絡(luò)應(yīng)用程序。它有應(yīng)用簡(jiǎn)單、升級(jí)和部署方便、擴(kuò)展。它實(shí)現(xiàn)了無(wú)紙化考試、批量添加試題、動(dòng)態(tài)隨機(jī)生成試題、客觀題。部分計(jì)算機(jī)自動(dòng)閱卷即時(shí)評(píng)分、成績(jī)直接存到數(shù)據(jù)庫(kù)進(jìn)行統(tǒng)計(jì)排名等功能。的質(zhì)量、減少考試的成本等具有重要的意義。

　　

【正文】 試頁(yè)面運(yùn)行結(jié)果 圖 83b 考試頁(yè)面運(yùn)行結(jié)果 考試頁(yè)面的計(jì)時(shí)器是由 JavaScript 編寫(xiě)的， var m=%=Session[Time]%接收從數(shù)據(jù)庫(kù)中讀出的考試時(shí)間，然后由函數(shù) function Time()完成計(jì)時(shí)功能。當(dāng)考試時(shí)間結(jié)束時(shí)，系統(tǒng)自動(dòng)交卷。 計(jì)時(shí)器功能實(shí)現(xiàn)代碼如下 ： /*******************************************************************/ 30 script type=text/javascript var msec=0 var sec=0 var min=0 var m=%=Session[Time]% function Time() { [0].=min+:+sec go=setTimeout(Time(),1) msec++ if(msec==1000) { msec=0 sec++ } if(sec==60) { if(minm) { sec=0 min++ } if(min==m) { (go)。 (39。btnSubmit139。).click()。// 考試到點(diǎn)，觸發(fā) 事件 alert(39?？荚嚂r(shí)間已到，試卷已提交，感謝使用本系統(tǒng)！ 39。)。 } } } /script 考試頁(yè)面生成的 考題是動(dòng)態(tài)隨機(jī)生成的，實(shí)現(xiàn)方法是，利用 Sql 語(yǔ)句： ” select Topic from tb_ExamTopic where SubjectName=’” +Session[“ SubjectName” +].ToString()”’ order by newid()” ，將數(shù)據(jù)庫(kù)中的相應(yīng)科目的考試題目隨機(jī)讀出（順序打亂全部讀出），然后用 sqldatareader 讀出考試信息中規(guī)定的試題的題數(shù)，這樣就實(shí)現(xiàn)了隨機(jī)讀取 試題， datalist 控件用于接收動(dòng)態(tài)隨機(jī)讀取的試題。 試題分為客觀題和主觀題，學(xué)生交卷后可以看到客觀題 的對(duì)錯(cuò)情況、正確答案、得分；學(xué)生作答的主觀 31 題答案將提交到數(shù)據(jù)庫(kù)，由老師人工閱卷。 交卷后的頁(yè)面如圖 84所示： 圖 84a 交卷后頁(yè)面 圖運(yùn)行結(jié)果 圖 84b 交卷后頁(yè)面圖運(yùn)行結(jié)果 動(dòng)態(tài)隨機(jī)生成試題和 客觀題 自動(dòng)閱卷 即時(shí)評(píng)分 方法實(shí)現(xiàn)的 部分 代碼如下： /****************************************************************/ protected void bind(int i) 32 { SqlConnection conn = new SqlConnection(ConnectionString)。 switch (i) { //從數(shù)據(jù)庫(kù)中選擇單選題 case 1: ()。 SqlCommand cmd1 = new SqlCommand(select * from tb_ExamTopic where TopicType=39。 + () + 39。and Major=39。+major+39。and SubjectName=39。+subjectname+39。 order by newid(), conn)。 SqlDataReader dr1 = ()。 //創(chuàng)建內(nèi)存表 DataTable DataTable table1 = new DataTable(ExamTopic)。 (Topic)。 (OptionA)。 (OptionB)。 (OptionC)。 (OptionD)。 int n1 = (())。 for (int x = 0。 x n1。 x++) { ()。 DataRow row = ()。 row[Topic] = dr1[Topic].ToString()。 row[OptionA] = dr1[OptionA].ToString()。 row[OptionB] = dr1[OptionB].ToString()。 row[OptionC] = dr1[OptionC].ToString()。 row[OptionD] = dr1[OptionD].ToString()。 arr1[x] = dr1[Answer1].ToString()。 (row)。 } ()。 ()。 = table1。 ()。 string s1=。 for (int x =0 。 x n1。 x++) { s1 =s1 + arr1[x].ToString()+,。 } Session[arr1] = ()。 //生成單選題題號(hào) 33 for (int tID1 = 1。 tID1 = 。 tID1++) { Label lblSelect = (Label)[tID1 1].FindControl(Label3)。 = () + 、 。 } break。 //核對(duì)單選題答案 case 5: string[] answer1 = new string[100]。 for (int x = 0。 x 。 x++) { t1 = t1 + 1。 RadioButtonList rbl1 = (RadioButtonList)([t1 1].FindControl(RadioButtonList1))。 answer1[x] = ()。 } string c1 = Session[arr1].ToString()。 string[] arr1_1 = (39。,39。)。 for (int x = 0。 x 。 x++) { t1_1=t1_1+1。 Label lblResult1 = (Label)([t1_11].FindControl(lblResult1))。 Label lblRight1 = (Label)([t1_11].FindControl(lblRight1))。 Label lblAnswer1 = (Label)([t1_11].FindControl(lblAnswer1))。 if (arr1_1[x].Trim() == answer1[x].Trim()) { point1 = point1 + Score1 / 。 = 單選題： + () + 分 。 = 對(duì) 。 = true。 } else { = 錯(cuò) 。 = 正確答案： 。 = arr1_1[x].ToString()。 = true。 = true。 34 = true。 } } break。 //把主觀題答案寫(xiě)入數(shù)據(jù)庫(kù) case 8: string[] answer4 = new string[100]。 for (int x = 0。 x 。 x++) { t4 = t4 + 1。 TextBox txtAnswer = (TextBox)([t4 1].FindControl(txtAnswer))。 answer4[x] = ()。 } string c4 = Session[arr4].ToString()。 string[] arr4_4 = (39。,39。)。 string answer。 for (int x = 0。 x 。 x++) { answer = arr4_4[x]+、答 +answer4[x]。 string sql8 = insert into tb_Answer(StudentNumber,StudentName,Class,Major,SubjectName,Answer,ExamTime) values(@StudentNumber,@StudentName,@Class,@Major,@SubjectName,@Answer,@ExamTime)。 SqlCommand cmd8= new SqlCommand(sql8,conn)。 ()。 (@StudentNumber, ).Value = ()。 (@StudentName, ).Value = ()。