freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

畢業(yè)設計-大學計算機公共課程網(wǎng)絡教學系統(tǒng)之教學子系統(tǒng)-資料下載頁

2025-11-22 19:02本頁面

【導讀】教學課時內(nèi)達到大綱所規(guī)定的理論與技能的要求越來越困難,這就要求教學手段也必須不斷更新。網(wǎng)絡教學彌補了傳統(tǒng)教學的不足。機信息技術(shù)》為例,開發(fā)了大學計算機公共課程網(wǎng)絡教學系統(tǒng)。本系統(tǒng)是為教師與學生提供了方便、有效的學習交流平臺。區(qū)、教區(qū)工作區(qū)。本系統(tǒng)使用DreamweaverMX2021作為網(wǎng)站的開發(fā)工具,利用ASP技術(shù)實現(xiàn)交互式動態(tài)網(wǎng)頁,運用。Photoshop以及flash動畫制作輔助網(wǎng)頁設計。本系統(tǒng)操作簡便,實用性強。Keywords:InterEducation,DreamweaverMX2021,ASP,IIS。

  

【正文】 圖 44 首頁設計圖 南京曉莊學院學士學位論文 第 23 頁 共 39 頁 公告欄 模塊的 實現(xiàn) 公告欄為老師對學生課程的安排,重大或者突然事情的發(fā)布以及各項重要事件的公布提供了一個良好的平臺。這個部分基本上由教師進行操作,學生只具有瀏覽的功能。教師 點擊公告管理 , 輸入用戶名及密碼,進入公告管理界面, 可以根據(jù)需要添加,刪除公告,修改公告。此模塊雖然不大,但它完整的包括了數(shù)據(jù)庫的查詢、增刪改以及數(shù)據(jù)分頁顯示的操作。 該頁面結(jié)構(gòu)如圖 45 所示: 圖 45 公告欄頁面設計 圖 該模 塊包括如下 ASP 文件: :老師工作區(qū)公告欄主頁面 :公告詳細內(nèi)容 : 編輯 公告 : 發(fā)布 公告 ,教師可以在此頁面進行公告的發(fā)布 :刪除公告 ,教師可以對一些過時的無用的公告進行刪除 :學生查看公告列表頁面,點擊標題可進入 界面查看公告的詳細內(nèi)容 :教師登錄,教師輸入正確的用戶名和密碼可進入公告管理界面 () :修改密碼頁面 南京曉莊學院學士學位論文 第 24 頁 共 39 頁 :老師工作區(qū)公告欄主頁面 由于公告條數(shù)較多,因此此頁面使用了分頁,使頁面看起來更加的美觀 。本頁面有鏈接:發(fā)布公告、編輯公告、刪除公告。 本頁面的代碼比較簡單,此程序主要有如下關(guān)鍵代碼: //此代碼主要用于對表中的備注字段的文本進行格式化,該空格的空格,該 換行的換行,顯示出來的文本不會亂。 % 39。功能:將空格與回車符轉(zhuǎn)換成 html語法格式 39。參數(shù):信息內(nèi)容 39。返回值:字符串的空格與回車符被轉(zhuǎn)換成 html語法格式 Function unHtml(content) unHtml=content If content Then unHtml=replace(unHtml,amp。,amp。) unHtml=replace(unHtml,) unHtml=replace(unHtml,) unHtml=replace(unHtml,chr(34),) unHtml=replace(unHtml,chr(13),br) unHtml=replace(unHtml,chr(32), ) End If End Function % :發(fā)布公告 教師可 通過教學公告向?qū)W生發(fā)布信息、制定教學計劃、宣布考試日程安排、發(fā)布臨時通知等。此功能由 (發(fā)布公告)頁面實現(xiàn)。 下面就以公布其中的發(fā)布 人、 、 Email是否重要為例 ,其中公告標題和公告內(nèi)容的發(fā)布和發(fā)布人方法一下, 字段是否重要是使用的復選框( checkbox) ,此程序的 關(guān)鍵代碼如下: //保存簽寫的 公告 信息 % Sub SaveWrite() name = Trim((name)) ‘獲得表單中的內(nèi)容 南京曉莊學院學士學位論文 第 25 頁 共 39 頁 Flag1 = Trim((Flag)) if Flag1=on then ‘ Flag1=on表示復選框被選中,是重要公告,因此須將數(shù)據(jù)庫字段 Flag置 1 Flag=1 else Flag=0 end if If name= Then ‘使 Web服務器停止處理腳本,并返回當前結(jié)果 ElseIf qq And IsNumeric(qq) = False Then Else Set Rs = () Sql = Select * From [board] Sql,conn,3,3 ‘添加一條記錄,將表單中獲得的內(nèi)容寫入數(shù)據(jù)庫 Rs(name) = name If qq Then Rs(qq) = qq End If Rs(time) = now() ‘獲取當前時間 Rs(Flag) = Flag ‘ 更新數(shù)據(jù)庫內(nèi)容 ‘ 關(guān)閉 RecordSet對象 Set Rs = nothing ‘釋放 Rs對象在服務器占用的內(nèi)存 End If End Sub % 南京曉莊學院學士學位論文 第 26 頁 共 39 頁 :編輯公告 教師可以對發(fā)布的公告內(nèi)容進行修改,此功能由 (編輯公告)頁面實現(xiàn)。 此頁面的主要設計思想、代碼 都和發(fā)布公告 ( ) 頁面相似,因此不再詳敘。 :刪除公告 教師可以對一些已經(jīng)過時的不需要的公告進行刪除,以方便學生查閱公告信息,此功能由下面的代碼完成。 % id = Request(id) Set Rs = () Sql = Select * From board Where id=amp。id Sql,conn,3,3 //刪除記錄 //更新數(shù)據(jù)庫 Set Rs = nothing % :公告詳細信息 學生進行系統(tǒng)首先看見的是公告列表,點擊公告列表里面的標題可查看具體的公告信息,此程序的代碼十分簡單,只需用查詢語句打開對應標題的記錄,然后用記錄集組件 Rs顯示具體的信息即可 。顯示 E_mail、QQ號碼、公告主題、公告內(nèi)容方法和顯示發(fā)布人方法是一樣的,因此本代碼只已顯示發(fā)布人為例, 主要代碼 如下: % id = (id) Set Rs = () Sql = Select * From board Where id=amp。id Sql,conn,3,3 % tr align=centerform name=form1 method=post action=?action=ShowNoticeamp。id=%=Rs(id)% ID=Form1 南京曉莊學院學士學位論文 第 27 頁 共 39 頁 td height=25 colspan=2 background=Images/font color=FFFFFFb顯示公告具體信息 /b/font/td /tr tr bgcolor=FFFFFF td width=20% height=30 align=right發(fā)布人: /td td width=80% height=30 %=Rs(name)%/td /tr :公告信息列表 此頁面是公告列表頁面,用于簡 略顯示公告信息。此公告列表只顯示公告標題、發(fā)布時間和發(fā)布人。 點擊具體公告的標題,可查看相應公告示的具體內(nèi)容。 本頁面也使用到分頁顯示,代碼與,因此不再敘述。 本程序的代碼也十分的簡單, 下面的代碼是顯示公告信息: trtd width=47% align=lefta href=?action=ShowNoticeamp。id=%=Rs(id)% target=_self %=Rs(title)%/a %if (Rs(Flag)) then% //當數(shù)據(jù)庫里面 Flag的值為 1時,在相應的標題后面加上重要標志 (圖片) img src=images/ width=27 height=12 %end if%/td td width=36% align=centerdiv align=leftfont color=006699%=Rs(time)% /font/div/td td width=17% align=centerdiv align=leftfont color=006699%=Rs(name)%/font/div/td /tr 此頁面用到一個判斷語句是用來判斷是否為重要公告,如果是,則 在 標題后面添加圖片。 :管理員登陸頁面 教師必須 輸入正確的用戶名和密碼才可以對公告進行操作, 檢查管理員的登錄信息,成功則返回到 ,失敗給相應錯誤提示 信息。 此程序的關(guān)鍵代碼如下 : //判斷用戶名和密碼是否正確,如正確跳轉(zhuǎn)到公告管理界面,如果錯誤,給出提示信息,并返回登錄界面 % Sub ChkLogin() name = Trim((name)) 南京曉莊學院學士學位論文 第 28 頁 共 39 頁 pwd = Trim((pwd)) Set Rs = () Sql = Select * From [admin] Sql,conn,3,3 If Rs(name) = name And Rs(pwd) = pwd Then Set Rs = nothing set conn=nothing Else Set Rs = nothing set conn=nothing End If End Sub % : 密碼修改 頁面 教師可以對自己的密碼進行修改,修改時必須輸入正確的用戶名和密碼,而且輸入的新密碼與確認新密碼必須一致才可以修改密碼。此程序先判斷新密碼和確認先密碼是否一致,然后判斷 用戶名和密碼是否正確,如果都滿足要求,由用 update語句更新密碼。 此程序主要有兩段關(guān)鍵代碼 : ① //判斷用戶名和密碼是否正確,如果正確則用新密碼替換舊密碼。 % Sub Chkpassword() name = Trim((name)) oldpwd = Trim((oldpwd)) newpwd = Trim((newpwd)) 南京曉莊學院學士學位論文 第 29 頁 共 39 頁 sql =select * from admin where name=39。 amp。 name amp。 39。 and pwd =39。 amp。 oldpwd amp。 39。 set Rs = () sql,conn if then set Rs = nothing set conn=nothing msgerr end if set rs=nothing sql = update admin set pwd=39。 amp。 newpwd amp。 39。 where name=39。 amp。 name amp。 39。 sql set conn = nothing msgsuccess End Sub % ② //判斷有否輸入用戶名、舊密碼、新密碼和確認新密碼還有輸入的新密碼和確認新密碼是否一致 ,下面就以判斷是否輸入用戶名為例,判斷是否輸入舊密碼、新密碼和確認新密碼方法和判斷是否輸 入用戶名一樣,主要代碼如下: function check() {if ( == ) {alert(請輸入用戶名 )。 return false。} if ( != ) {alert(兩次輸入的新密碼不一致! )。 newpwd1=。 return false。 } 南京曉莊學院學士學位論文 第 30 頁 共 39 頁 return true。} 課件 管理模塊的實現(xiàn) 課件管理為老師對課件的修改,上傳一些學 生可下載的文件提供了一個良好的平臺。這個部分基本上由教師進行操作,學生只具有下載的功能。教師點擊課件管理,輸入用戶名及密碼,進入課件管理界面,可以根據(jù)需要添加文件下載信息列表,刪除文件和文件信息列表,修改下載信息,上傳課件。教師對課件進行修改,修改時首先對要修改的課件進行下載。上傳時需傳上傳 ppt 文件和mht 文件。此模塊雖然不大,但它完整的包括了數(shù)據(jù)庫的查詢、增刪改以及數(shù)據(jù)分頁顯示的操作。本頁面有鏈接:上傳文件、添加文件下載列表、編輯、刪除, 該頁面結(jié)構(gòu)如圖 46 所示: 圖 46 課件 管理 頁面設計 圖 該模塊包括如下 ASP 文件: :老師工作區(qū) 課件管理 主頁面 : 編輯下載文件信息列表 。 : 添加下載文件信息列表 。 南京曉莊學院學士學位論文 第 31 頁 共 39 頁 :刪除 文件及該文件的下載信息 。 :上傳文件 :教師登錄。 :修改密碼頁面。 :老師工作區(qū)課件管理主頁面 此頁面使用了分頁,使頁面看起來更加的美觀。本頁面有鏈接: 上傳文件 、編輯 文件下載信息列 表 、 添加新的下載文件, 刪除 文件 。 上面 ,這里不再介紹。此頁面的代碼相對也很簡單,和上面公告模塊里面 , 此界面是關(guān)鍵代碼是判斷文件列表中的文件是否上傳,如果上傳,在上傳列表中顯示已上傳,否則顯示上傳。代碼如下: % strFile = RS(ProductFile) ‘獲取文件相對路徑 set filesystem = createobject() 39。判斷該文件是否存在 if ((strFile) ) then % 已上傳 % else % a href=上傳 /a % end if % : 添加下載文件列表 此界面用于添加下載列表中的相關(guān)信息,下載列表中有三個字段,文件名稱、說明、文件路徑,在此頁面文件名稱必須輸入,說明可有可無,通過文件名稱獲得文件路徑。 此程序的主要代碼 如下: %39。保存文件信息 Sub SaveWrite() SavePath = ppt 39。所有上傳的文件都放在 PPT文件夾里面 39。使 SavePath=ppt/,以方便下面獲取文件的相對路徑 If Right(SavePath,1)/ Then SavePath=SavePathamp。/ 39。在目錄后加 (/) chapter = Trim((chapter)) 39。獲取表單內(nèi)容 download= Trim((download)) If chapter= Then 39。判斷文件名稱是否為空 南京曉莊學院學士學位論文 第 32 頁 共 39 頁 39。判斷文件名稱是否帶有后綴名 elseif mid(right(chapter,4),1,1). Then msgerr 39。如果文件名稱沒有帶后綴名,給出錯誤提示 Else Set Rs = () Sql = Select * From download Sql,conn,3,3 39。添加一條記錄 Rs(chapter) = chapter 39。將表單中的內(nèi)容寫入數(shù)據(jù)庫 Rs(download) = download Rs(ProductFile)=SavePath amp。 chapter 39。獲得文件的相對路徑 39。更新數(shù)據(jù)庫 39。關(guān)閉 RecordSet對象 Set Rs = nothing Msgsuccess 39。給出文件添加成功的提示信息 End If End Sub % 上面代碼中的 msgerr, Msgsuccess 是兩個子程序,用于輸入提示信息 :上傳課件 上傳課件時,規(guī)定了上傳的文件類型只能是 后綴名為 doc,ppt,mht,zip的文件。教師如果要對課件進行修改,修改時首先對要修改的課件進行下載。上傳時需傳上傳 ppt文件和 mht文件。教師要上傳一些學生可下載的文件,必須添加該文件的下載信息和上傳該文件。 該頁面結(jié)構(gòu)如圖 47 所示: 南京曉莊學院學士學位論文 第 33 頁 共 39 頁 圖 47 課件上傳頁面 圖 下面介紹一下課件上傳 ( ) 的 關(guān)鍵 代碼! //判斷文件類型是否合格 ① Function CheckFileExt(FileName,ExtName) 39。文件名 ,允許上傳文件類型 FileType = ExtName FileType = Split(FileType,) 39。通過 Split函數(shù)建立數(shù)組,將文件擴展名與每個數(shù)組元素進行比較 For i = 0 To Ubound(FileType) If LCase(Right(FileName,3)) = LCase(FileType(i)) then 39。獲得文件擴展名,并以小寫形式顯示,文件護展名與每個數(shù)組元素比較。 CheckFileExt = True 39。表明是允許的上傳文件類型 Exit Function Else CheckFileExt = False 39。說明上傳的文件類型不符合定義 End if Next 南京曉莊學院學士學位論文 第 34 頁 共 39 頁 End Function //檢查上傳文件夾是否存在,不存在則創(chuàng)建文件夾 ② Function CheckAndCreateFolder(FolderName) fldr = (FolderName) 39。創(chuàng)建 FileSystemObject的對象 Set fso = CreateObject() If Not (fldr) Then 39。判斷目錄是否存在 (fldr) 39。創(chuàng)建目錄 End If Set fso = Nothing End Function :刪除文件 此頁面用于刪除文件及該文件的在數(shù)據(jù) 庫 中的信息,此代碼和公告模塊中的刪除公告( )代碼相似,只是在此基此上增加了刪除文件的代碼,代碼如下: file=Rs(id) strFile = RS(ProductFile) set filesystem = createobject() 39。判斷該文件是否存在 if ((strFile) ) then 39。刪除文件 (strFile) end if 課件下載模塊( ) 學生可以對課件內(nèi)容和老師上傳的一些文件進行下載, 如果只是向數(shù)據(jù)庫添加字段,并沒有上傳文件會出現(xiàn)提示信息 —— 該文件不存在。只有既上傳課件,又向數(shù)據(jù)庫添加文件信息字段,才可以下載, 此功
點擊復制文檔內(nèi)容
公司管理相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號-1