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

　　

【正文】 試頁面運行結(jié)果 圖 83b 考試頁面運行結(jié)果 考試頁面的計時器是由 JavaScript 編寫的， var m=%=Session[Time]%接收從數(shù)據(jù)庫中讀出的考試時間，然后由函數(shù) function Time()完成計時功能。當(dāng)考試時間結(jié)束時，系統(tǒng)自動交卷。 計時器功能實現(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()。// 考試到點，觸發(fā) 事件 alert(39?？荚嚂r間已到，試卷已提交，感謝使用本系統(tǒng)！ 39。)。 } } } /script 考試頁面生成的 考題是動態(tài)隨機生成的，實現(xiàn)方法是，利用 Sql 語句： ” select Topic from tb_ExamTopic where SubjectName=’” +Session[“ SubjectName” +].ToString()”’ order by newid()” ，將數(shù)據(jù)庫中的相應(yīng)科目的考試題目隨機讀出（順序打亂全部讀出），然后用 sqldatareader 讀出考試信息中規(guī)定的試題的題數(shù)，這樣就實現(xiàn)了隨機讀取 試題， datalist 控件用于接收動態(tài)隨機讀取的試題。 試題分為客觀題和主觀題，學(xué)生交卷后可以看到客觀題 的對錯情況、正確答案、得分；學(xué)生作答的主觀 31 題答案將提交到數(shù)據(jù)庫，由老師人工閱卷。 交卷后的頁面如圖 84所示： 圖 84a 交卷后頁面 圖運行結(jié)果 圖 84b 交卷后頁面圖運行結(jié)果 動態(tài)隨機生成試題和 客觀題 自動閱卷 即時評分 方法實現(xiàn)的 部分 代碼如下： /****************************************************************/ protected void bind(int i) 32 { SqlConnection conn = new SqlConnection(ConnectionString)。 switch (i) { //從數(shù)據(jù)庫中選擇單選題 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] = ()。 //生成單選題題號 33 for (int tID1 = 1。 tID1 = 。 tID1++) { Label lblSelect = (Label)[tID1 1].FindControl(Label3)。 = () + 、 。 } break。 //核對單選題答案 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 / 。 = 單選題： + () + 分 。 = 對 。 = true。 } else { = 錯 。 = 正確答案： 。 = arr1_1[x].ToString()。 = true。 = true。 34 = true。 } } break。 //把主觀題答案寫入數(shù)據(jù)庫 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 = ()。