網上教學系統設計與實現—免費計算機畢業設計論文(編輯修改稿)

　

【文章內容簡介】 0) 否 試題類型 Que_joindate Datetime(8) 否 加入試題時間 Que_lessonid Int(4) 否 所屬課程號 Queprofessionid_ Int(4) 否 所屬專業號 OptionA Varchar(50) 否 選項 A OptionB Varchar(50) 否 選項 B OptionC Varchar(50) 否 選項 C OptionD Varchar(50) 否 選項 D Que_answer Char(10) 否 試題答案 Note Varchar(50) 否 注釋 （ 8） Tab_Profession（專業信息表）存儲專業信息，如表 8 第 10 頁 共 25 頁 表 8專業信息表 字段名 字段類型 是 否主鍵 說明 ID Int(4) 是 專業編號 Name Varchar(50) 否 專業名稱 （ 9） Tab_Chair （網上點播信息表）此表用來保存多個視頻剪輯信息。如表 9 表 9網上點播信息表 字段名 字段類型 是否主鍵 說明 ID Int(4) 是 點播編號 Content Varchar(50) 否 點播主題 Mydate datetime(8) 否 添加時間 Speaker varchar(20) 否 講演室 Propose Int(4) 否 推薦度 Hit Int(4) 否 觀看次數 Path Varchar(50) 否 文件存放路徑 Type Varchar(50) 否 文件類型 （ 10） Tab_Library （學習資料信息表）此表用來保存論壇資料信息。如表10 表 10學習資料信息表 字段名 字段類型 是否主鍵 說明 ID Int(4) 是 資料編號 Subject varchar(80) 否 資料主題 URL varchar(100) 否 資料存放的網址 Type varchar(50) 否 資料的類型 Ondate Datetime(8) 否 添加資料的日期 （ 11） Tab_Document（參閱資料信息表）此表用來儲存 Word 寫資料文件。如表 11 第 11 頁 共 25 頁 表 11參閱資料信息表 字段名 字段類型 是否主鍵 說明 ID Int(4) 是 資料編號 Name Varchar(100) 否 資料主題 LessonID Int(4) 否 所屬課程編號 DocPath Varchar(100) 否 資料存放的本地路徑 （ 12） Tab_DirectPlay（網上直播信息表）存儲一個最新視頻剪輯信息。如表 12 表 12網上直播信息表 字段名 字段類型 是否主鍵 說明 ID Int(4) 是 文件編號 Path Varchar(50) 否 文件路徑 （ 13） Tab_Type（課程類別信息表）存放課程的類別信息。如表 13 表 13體檢信息表 字段名 字段類型 是否主鍵 說明 ID Int(4) 是 類別編號 TypeName Varchar(20) 否 類別名稱 （ 14） Tab_Lesson（課程信息表）存放專業所包含的課程信息。如表 14 表 14課程信息表 字段名 字段類型 是否主鍵 說明 ID Int(4) 是 課程編號 Name Varchar(60) 否 課程名稱 LessonType Int(4) 否 課程類別編號 OfProfession Int(4) 否 所屬專業編號 Syllabus Varchar(100) 否 學習提綱 StudyGoal Varchar(100) 否 學習目的 Booklist Varchar(100) 否 參閱書目 第 12 頁 共 25 頁 （ 15） Tab_stuResult （考生成績信息表）此表用來保存考生考試成績。如表 15 表 15考生成績信息表 字段名 字段類型 是否主鍵 說明 Res_id bigint(8) 是 成績編號 Stu_id Varchar(50) 否 學生證號 Which_lesson Varchar(50) 否 所屬課程 Res_single Int(4) 否 單選成績 Res_more Int(4) 否 多選成績 Res_total Int(4) 否 總成績 Res_subdate char(30) 否 試題加入時間 《計算機專業英語》網上教學系統的功能設計與實現 學生登錄管理模塊的實現 該管理模塊需要實現的功能包括學生注冊（自動生成編號）、學生登錄、找回密碼等。 學生注冊 界面的實現是由 頁面體現的。主要是由一些文本框，選擇控件，提交、重置、關閉按鈕組成。學生的編號是靠程序自動生成的。學號 =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 頁 共 25 頁 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 學生登錄 登錄界面由首頁 頁面體現，它由一些基本的文本框、密碼框、登錄按鈕組成，用戶在該頁面填寫的學生證、密碼等有自定義的 mycheck()函數來處理信息。該頁面代碼首先判斷學生證、密碼是否為空，如果任一項為空就跳出警告，提示用戶輸入完整信息。如果都不為空就先檢查用戶輸入的學生證、密碼跟數據庫中的學生證、密碼是否一致，如果不一致就顯示出錯誤信息提示用戶學生證錯誤或密碼錯誤。如果匹配就登錄成功，就顯示課程相關信息。登錄的檢查代碼如下： 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(您輸入的學生證號錯誤，請重新輸入！ )。 !彈出一個警告對話 ()。 !退回前一頁 if rs(PWD)=session(PWD) then session(flag)=登錄 % script language=javascript alert(您已經成功登錄！ )。 第 14 頁 共 25 頁 =。 script language=javascript alert(您輸入的密碼錯誤，請重新輸入！ )。 找回密碼 找回密碼的頁面為 、 、 、 依次體現。其中 界面包括一些基本的標簽、文本框和按鈕。只要你輸入你的正確的學生證號，點擊“下一步”，就進入 頁面，它會自動顯示的密碼問題，你只要輸入正確的密碼答案就可以進入 頁面（若答案錯誤，則會提示你重新輸入），現在就可以輸入你容易記住的密碼（要輸入兩次完全一樣的），電擊“完成”按鈕就進入 頁面。頁面會再次顯示新密碼并提示你。在這幾步過程中都要用到 Mycheck()函數，在 頁面中檢查學生證是否正確，在 頁面中檢查密碼答案是否正確，在 頁面中檢查兩次輸入的密碼是否一致，如果每步都正確就把新密碼寫進數據庫，替換掉以前的密碼。將新密碼寫入數據庫的代碼如下： 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) 網絡考試管理模塊的實現 本模塊是采用的框架結構組成。左邊是由 組成 ,右邊是由Mainright 組成。根據左邊的選項，右邊出現相應的內容。其中左邊有考生在線考試、考生成績查詢、退出考 試系統模塊。 考生在線考試 閱讀完考試規則，就可以按規則進行考試，試卷上有考試總時間，考生已經用掉的時間和還剩余的時間。答完后點擊“交卷“就可以看到自己的答題情況（還可以看到正確的答案），同時就可以看到自己的考試成績?？荚嚂r間的控制是由以下代碼實現： dim start_time,sec,min,hou start_time = session(start_time) sec = second(start_time) min = minute(start_time) hou = hour(start_time) 第 15 頁 共 25 頁 sum = hou*3600 + min*60 + sec 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 (無 ) else (request(single_answer[amp。iamp。])) end if 總成績是由多項選擇和單項選擇組成的，所以要分別先算出單項選擇的成績，多項選擇的成績，最后才能夠計算總成績。成績的統計主要代碼如下： if(session(lesid) = or session(UserID) = )then (../) 第 16 頁 共 25 頁 () 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_an