【文章內(nèi)容簡(jiǎn)介】 題類型 Que_joindate Datetime(8) 否 加入試題時(shí)間 Que_lessonid Int(4) 否 所屬課程號(hào) Queprofessionid_ Int(4) 否 所屬專業(yè)號(hào) OptionA Varchar(50) 否 選項(xiàng) A OptionB Varchar(50) 否 選項(xiàng) B OptionC Varchar(50) 否 選項(xiàng) C OptionD Varchar(50) 否 選項(xiàng) D Que_answer Char(10) 否 試題答案 Note Varchar(50) 否 注釋 （ 8） Tab_Profession（專業(yè)信息表）存儲(chǔ)專業(yè)信息，如表 8 第 10 頁(yè) 共 25 頁(yè) 表 8專業(yè)信息表 字段名 字段類型 是 否主鍵 說(shuō)明 ID Int(4) 是 專業(yè)編號(hào) Name Varchar(50) 否 專業(yè)名稱 （ 9） Tab_Chair （網(wǎng)上點(diǎn)播信息表）此表用來(lái)保存多個(gè)視頻剪輯信息。如表 9 表 9網(wǎng)上點(diǎn)播信息表 字段名 字段類型 是否主鍵 說(shuō)明 ID Int(4) 是 點(diǎn)播編號(hào) Content Varchar(50) 否 點(diǎn)播主題 Mydate datetime(8) 否 添加時(shí)間 Speaker varchar(20) 否 講演室 Propose Int(4) 否 推薦度 Hit Int(4) 否 觀看次數(shù) Path Varchar(50) 否 文件存放路徑 Type Varchar(50) 否 文件類型 （ 10） Tab_Library （學(xué)習(xí)資料信息表）此表用來(lái)保存論壇資料信息。如表10 表 10學(xué)習(xí)資料信息表 字段名 字段類型 是否主鍵 說(shuō)明 ID Int(4) 是 資料編號(hào) Subject varchar(80) 否 資料主題 URL varchar(100) 否 資料存放的網(wǎng)址 Type varchar(50) 否 資料的類型 Ondate Datetime(8) 否 添加資料的日期 （ 11） Tab_Document（參閱資料信息表）此表用來(lái)儲(chǔ)存 Word 寫(xiě)資料文件。如表 11 第 11 頁(yè) 共 25 頁(yè) 表 11參閱資料信息表 字段名 字段類型 是否主鍵 說(shuō)明 ID Int(4) 是 資料編號(hào) Name Varchar(100) 否 資料主題 LessonID Int(4) 否 所屬課程編號(hào) DocPath Varchar(100) 否 資料存放的本地路徑 （ 12） Tab_DirectPlay（網(wǎng)上直播信息表）存儲(chǔ)一個(gè)最新視頻剪輯信息。如表 12 表 12網(wǎng)上直播信息表 字段名 字段類型 是否主鍵 說(shuō)明 ID Int(4) 是 文件編號(hào) Path Varchar(50) 否 文件路徑 （ 13） Tab_Type（課程類別信息表）存放課程的類別信息。如表 13 表 13體檢信息表 字段名 字段類型 是否主鍵 說(shuō)明 ID Int(4) 是 類別編號(hào) TypeName Varchar(20) 否 類別名稱 （ 14） Tab_Lesson（課程信息表）存放專業(yè)所包含的課程信息。如表 14 表 14課程信息表 字段名 字段類型 是否主鍵 說(shuō)明 ID Int(4) 是 課程編號(hào) Name Varchar(60) 否 課程名稱 LessonType Int(4) 否 課程類別編號(hào) OfProfession Int(4) 否 所屬專業(yè)編號(hào) Syllabus Varchar(100) 否 學(xué)習(xí)提綱 StudyGoal Varchar(100) 否 學(xué)習(xí)目的 Booklist Varchar(100) 否 參閱書(shū)目 第 12 頁(yè) 共 25 頁(yè) （ 15） Tab_stuResult （考生成績(jī)信息表）此表用來(lái)保存考生考試成績(jī)。如表 15 表 15考生成績(jī)信息表 字段名 字段類型 是否主鍵 說(shuō)明 Res_id bigint(8) 是 成績(jī)編號(hào) Stu_id Varchar(50) 否 學(xué)生證號(hào) Which_lesson Varchar(50) 否 所屬課程 Res_single Int(4) 否 單選成績(jī) Res_more Int(4) 否 多選成績(jī) Res_total Int(4) 否 總成績(jī) Res_subdate char(30) 否 試題加入時(shí)間 《計(jì)算機(jī)專業(yè)英語(yǔ)》網(wǎng)上教學(xué)系統(tǒng)的功能設(shè)計(jì)與實(shí)現(xiàn) 學(xué)生登錄管理模塊的實(shí)現(xiàn) 該管理模塊需要實(shí)現(xiàn)的功能包括學(xué)生注冊(cè)（自動(dòng)生成編號(hào)）、學(xué)生登錄、找回密碼等。 學(xué)生注冊(cè) 界面的實(shí)現(xiàn)是由 頁(yè)面體現(xiàn)的。主要是由一些文本框，選擇控件，提交、重置、關(guān)閉按鈕組成。學(xué)生的編號(hào)是靠程序自動(dòng)生成的。學(xué)號(hào) =220+年 +月 +日 +o no=trim(rsmax(MAXID)) if (month(date())10) then cmonth=0+Cstr(month(date())) else cmonth=Cstr(month(date())) end if if (day(date())10) then cday=0+Cstr(day(date())) else cday=Cstr(day(date())) end if select case len(int(Right(no,5)+1)) 第 13 頁(yè) 共 25 頁(yè) case 1 o=0000+Cstr(int(Right(no,5)+1)) case 2 o=000+Cstr(int(Right(no,5)+1)) case 3 o=00+Cstr(int(Right(no,5)+1)) case 4 o=0+Cstr(int(Right(no,5)+1)) case 5 o=Cstr(int(Right(no,5)+1)) case Else o=00001 end select intno=220+Cstr(year(date()))+cmonth+cday+o 學(xué)生登錄 登錄界面由首頁(yè) 頁(yè)面體現(xiàn)，它由一些基本的文本框、密碼框、登錄按鈕組成，用戶在該頁(yè)面填寫(xiě)的學(xué)生證、密碼等有自定義的 mycheck()函數(shù)來(lái)處理信息。該頁(yè)面代碼首先判斷學(xué)生證、密碼是否為空，如果任一項(xiàng)為空就跳出警告，提示用戶輸入完整信息。如果都不為空就先檢查用戶輸入的學(xué)生證、密碼跟數(shù)據(jù)庫(kù)中的學(xué)生證、密碼是否一致，如果不一致就顯示出錯(cuò)誤信息提示用戶學(xué)生證錯(cuò)誤或密碼錯(cuò)誤。如果匹配就登錄成功，就顯示課程相關(guān)信息。登錄的檢查代碼如下： if (UserID) and (PWD) then session(UserID)=replace((UserID),39。,39。39。) session(PWD)=replace((PWD),39。,39。39。) sql=select ID,PWD from where ID=39。amp。session(UserID)amp。39。 set rs=(sql) script language=javascript alert(您輸入的學(xué)生證號(hào)錯(cuò)誤，請(qǐng)重新輸入！ )。 !彈出一個(gè)警告對(duì)話 ()。 !退回前一頁(yè) if rs(PWD)=session(PWD) then session(flag)=登錄 % script language=javascript alert(您已經(jīng)成功登錄！ )。 第 14 頁(yè) 共 25 頁(yè) =。 script language=javascript alert(您輸入的密碼錯(cuò)誤，請(qǐng)重新輸入！ )。 找回密碼 找回密碼的頁(yè)面為 、 、 、 依次體現(xiàn)。其中 界面包括一些基本的標(biāo)簽、文本框和按鈕。只要你輸入你的正確的學(xué)生證號(hào)，點(diǎn)擊“下一步”，就進(jìn)入 頁(yè)面，它會(huì)自動(dòng)顯示的密碼問(wèn)題，你只要輸入正確的密碼答案就可以進(jìn)入 頁(yè)面（若答案錯(cuò)誤，則會(huì)提示你重新輸入），現(xiàn)在就可以輸入你容易記住的密碼（要輸入兩次完全一樣的），電擊“完成”按鈕就進(jìn)入 頁(yè)面。頁(yè)面會(huì)再次顯示新密碼并提示你。在這幾步過(guò)程中都要用到 Mycheck()函數(shù)，在 頁(yè)面中檢查學(xué)生證是否正確，在 頁(yè)面中檢查密碼答案是否正確，在 頁(yè)面中檢查兩次輸入的密碼是否一致，如果每步都正確就把新密碼寫(xiě)進(jìn)數(shù)據(jù)庫(kù)，替換掉以前的密碼。將新密碼寫(xiě)入數(shù)據(jù)庫(kù)的代碼如下： UID=Replace((UID),39。,39。39。) If UID Then sql=Update Tab_student Set PWD=39。amp。(PWD1)amp。39。 Where ID=39。amp。UIDamp。39。 (sql) 網(wǎng)絡(luò)考試管理模塊的實(shí)現(xiàn) 本模塊是采用的框架結(jié)構(gòu)組成。左邊是由 組成 ,右邊是由Mainright 組成。根據(jù)左邊的選項(xiàng)，右邊出現(xiàn)相應(yīng)的內(nèi)容。其中左邊有考生在線考試、考生成績(jī)查詢、退出考 試系統(tǒng)模塊。 考生在線考試 閱讀完考試規(guī)則，就可以按規(guī)則進(jìn)行考試，試卷上有考試總時(shí)間，考生已經(jīng)用掉的時(shí)間和還剩余的時(shí)間。答完后點(diǎn)擊“交卷“就可以看到自己的答題情況（還可以看到正確的答案），同時(shí)就可以看到自己的考試成績(jī)。考試時(shí)間的控制是由以下代碼實(shí)現(xiàn)： dim start_time,sec,min,hou start_time = session(start_time) sec = second(start_time) min = minute(start_time) hou = hour(start_time) sum = hou*3600 + min*60 + sec 第 15 頁(yè) 共 25 頁(yè) dim real_time,sec2,min2,hou2 real_time = now() sec2 = second(real_time) min2 = minute(real_time) hou2 = hour(real_time) sum2 = hou2*3600 + min2*60 + sec2 sum_cha = sum2 sum aaa =sum_cha\3600 bbb = (sum_cha mod 3600)\60 ccc = (sum_cha mod 3600) mod 60 if(ccc 10)then ccc = 0amp。ccc end if if(bbb 10)then bbb = 0amp。bbb end if if(aaa 10)then aaa = 0amp。aaa 答題完了后，顯示的情況由以下主要代碼組成（以單選為例）： sql_2 = select * from Tab_questions where que_lessonid = amp。getlesidamp。 and que_type = 39。單選題 39。 set rs_2 = () sql_2,conn,1,3 rs_2_num = 0 For i=1 to rs_2_num = rs_2_num + 1 if(request(single_answer[amp。iamp。]) = )then (無(wú) ) else (request(single_answer[amp。iamp。])) end if 總成績(jī)是由多項(xiàng)選擇和單項(xiàng)選擇組成的，所以要分別先算出單項(xiàng)選擇的成績(jī)，多項(xiàng)選擇的成績(jī)，最后才能夠計(jì)算總成績(jī)。成績(jī)的統(tǒng)計(jì)主要代碼如下： if(session(lesid) = or session(UserID) = )then (../) () 第 16 頁(yè) 共 25 頁(yè) end if (form name=39。hid_form39。 method=39。post39。 action=39。../39。) dim res_single,res_more res_single = 0 res_more = 0 getlesid = session(lesid) sql_1 = select * from Tab_questions where que_lessonid = amp。getlesidamp。 and que_type = 39。單選題 39。 set rs_1 = () sql_1,conn,1,3 for i=1 to getsingle_answer = request(single_answer[amp。iamp。]) (input type=39。hidden39。 name=39。single_answer[amp。iamp。]39。 value=39。amp。getsingle_answeramp。39。) if(instr(rs_1(que_answer),getsingl