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

　　

【正文】 圖 44 首頁設(shè)計圖 南京曉莊學(xué)院學(xué)士學(xué)位論文 第 23 頁 共 39 頁 公告欄 模塊的 實(shí)現(xiàn) 公告欄為老師對學(xué)生課程的安排，重大或者突然事情的發(fā)布以及各項(xiàng)重要事件的公布提供了一個良好的平臺。這個部分基本上由教師進(jìn)行操作，學(xué)生只具有瀏覽的功能。教師 點(diǎn)擊公告管理 ， 輸入用戶名及密碼，進(jìn)入公告管理界面， 可以根據(jù)需要添加，刪除公告，修改公告。此模塊雖然不大，但它完整的包括了數(shù)據(jù)庫的查詢、增刪改以及數(shù)據(jù)分頁顯示的操作。 該頁面結(jié)構(gòu)如圖 45 所示： 圖 45 公告欄頁面設(shè)計 圖 該模 塊包括如下 ASP 文件： ：老師工作區(qū)公告欄主頁面 ：公告詳細(xì)內(nèi)容 ： 編輯 公告 ： 發(fā)布 公告 ，教師可以在此頁面進(jìn)行公告的發(fā)布 ：刪除公告 ，教師可以對一些過時的無用的公告進(jìn)行刪除 ：學(xué)生查看公告列表頁面，點(diǎn)擊標(biāo)題可進(jìn)入 界面查看公告的詳細(xì)內(nèi)容 ：教師登錄，教師輸入正確的用戶名和密碼可進(jìn)入公告管理界面 () ：修改密碼頁面 南京曉莊學(xué)院學(xué)士學(xué)位論文 第 24 頁 共 39 頁 ：老師工作區(qū)公告欄主頁面 由于公告條數(shù)較多，因此此頁面使用了分頁，使頁面看起來更加的美觀 。本頁面有鏈接：發(fā)布公告、編輯公告、刪除公告。 本頁面的代碼比較簡單，此程序主要有如下關(guān)鍵代碼： //此代碼主要用于對表中的備注字段的文本進(jì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ā)布公告 教師可 通過教學(xué)公告向?qū)W生發(fā)布信息、制定教學(xué)計劃、宣布考試日程安排、發(fā)布臨時通知等。此功能由 （發(fā)布公告）頁面實(shí)現(xiàn)。 下面就以公布其中的發(fā)布 人、 、 Email是否重要為例 ,其中公告標(biāo)題和公告內(nèi)容的發(fā)布和發(fā)布人方法一下， 字段是否重要是使用的復(fù)選框（ checkbox） ,此程序的 關(guān)鍵代碼如下： //保存簽寫的 公告 信息 % Sub SaveWrite() name = Trim((name)) ‘獲得表單中的內(nèi)容 南京曉莊學(xué)院學(xué)士學(xué)位論文 第 25 頁 共 39 頁 Flag1 = Trim((Flag)) if Flag1=on then ‘ Flag1=on表示復(fù)選框被選中，是重要公告，因此須將數(shù)據(jù)庫字段 Flag置 1 Flag=1 else Flag=0 end if If name= Then ‘使 Web服務(wù)器停止處理腳本，并返回當(dāng)前結(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() ‘獲取當(dāng)前時間 Rs(Flag) = Flag ‘ 更新數(shù)據(jù)庫內(nèi)容 ‘ 關(guān)閉 RecordSet對象 Set Rs = nothing ‘釋放 Rs對象在服務(wù)器占用的內(nèi)存 End If End Sub % 南京曉莊學(xué)院學(xué)士學(xué)位論文 第 26 頁 共 39 頁 ：編輯公告 教師可以對發(fā)布的公告內(nèi)容進(jìn)行修改，此功能由 （編輯公告）頁面實(shí)現(xiàn)。 此頁面的主要設(shè)計思想、代碼 都和發(fā)布公告 （ ） 頁面相似，因此不再詳敘。 ：刪除公告 教師可以對一些已經(jīng)過時的不需要的公告進(jìn)行刪除，以方便學(xué)生查閱公告信息，此功能由下面的代碼完成。 % id = Request(id) Set Rs = () Sql = Select * From board Where id=amp。id Sql,conn,3,3 //刪除記錄 //更新數(shù)據(jù)庫 Set Rs = nothing % ：公告詳細(xì)信息 學(xué)生進(jìn)行系統(tǒng)首先看見的是公告列表，點(diǎn)擊公告列表里面的標(biāo)題可查看具體的公告信息，此程序的代碼十分簡單，只需用查詢語句打開對應(yīng)標(biāo)題的記錄，然后用記錄集組件 Rs顯示具體的信息即可 。顯示 E_mail、ＱＱ號碼、公告主題、公告內(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 南京曉莊學(xué)院學(xué)士學(xué)位論文 第 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 ：公告信息列表 此頁面是公告列表頁面，用于簡 略顯示公告信息。此公告列表只顯示公告標(biāo)題、發(fā)布時間和發(fā)布人。 點(diǎn)擊具體公告的標(biāo)題，可查看相應(yīng)公告示的具體內(nèi)容。 本頁面也使用到分頁顯示，代碼與，因此不再敘述。 本程序的代碼也十分的簡單， 下面的代碼是顯示公告信息： trtd width=47% align=lefta href=?action=ShowNoticeamp。id=%=Rs(id)% target=_self %=Rs(title)%/a %if (Rs(Flag)) then% //當(dāng)數(shù)據(jù)庫里面 Flag的值為 1時，在相應(yīng)的標(biāo)題后面加上重要標(biāo)志 （圖片） 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 此頁面用到一個判斷語句是用來判斷是否為重要公告，如果是，則 在 標(biāo)題后面添加圖片。 ：管理員登陸頁面 教師必須 輸入正確的用戶名和密碼才可以對公告進(jìn)行操作， 檢查管理員的登錄信息，成功則返回到 ，失敗給相應(yīng)錯誤提示 信息。 此程序的關(guān)鍵代碼如下 ： //判斷用戶名和密碼是否正確，如正確跳轉(zhuǎn)到公告管理界面，如果錯誤，給出提示信息，并返回登錄界面 % Sub ChkLogin() name = Trim((name)) 南京曉莊學(xué)院學(xué)士學(xué)位論文 第 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 % ： 密碼修改 頁面 教師可以對自己的密碼進(jìn)行修改，修改時必須輸入正確的用戶名和密碼，而且輸入的新密碼與確認(rèn)新密碼必須一致才可以修改密碼。此程序先判斷新密碼和確認(rèn)先密碼是否一致，然后判斷 用戶名和密碼是否正確，如果都滿足要求，由用 update語句更新密碼。 此程序主要有兩段關(guān)鍵代碼 ： ① //判斷用戶名和密碼是否正確，如果正確則用新密碼替換舊密碼。 % Sub Chkpassword() name = Trim((name)) oldpwd = Trim((oldpwd)) newpwd = Trim((newpwd)) 南京曉莊學(xué)院學(xué)士學(xué)位論文 第 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 % ② //判斷有否輸入用戶名、舊密碼、新密碼和確認(rèn)新密碼還有輸入的新密碼和確認(rèn)新密碼是否一致 ，下面就以判斷是否輸入用戶名為例，判斷是否輸入舊密碼、新密碼和確認(rèn)新密碼方法和判斷是否輸 入用戶名一樣，主要代碼如下： function check() {if ( == ) {alert(請輸入用戶名 )。 return false。} if ( != ) {alert(兩次輸入的新密碼不一致！ )。 newpwd1=。 return false。 } 南京曉莊學(xué)院學(xué)士學(xué)位論文 第 30 頁 共 39 頁 return true。} 課件 管理模塊的實(shí)現(xiàn) 課件管理為老師對課件的修改，上傳一些學(xué) 生可下載的文件提供了一個良好的平臺。這個部分基本上由教師進(jìn)行操作，學(xué)生只具有下載的功能。教師點(diǎn)擊課件管理，輸入用戶名及密碼，進(jìn)入課件管理界面，可以根據(jù)需要添加文件下載信息列表，刪除文件和文件信息列表，修改下載信息，上傳課件。教師對課件進(jìn)行修改，修改時首先對要修改的課件進(jìn)行下載。上傳時需傳上傳 ppt 文件和mht 文件。此模塊雖然不大，但它完整的包括了數(shù)據(jù)庫的查詢、增刪改以及數(shù)據(jù)分頁顯示的操作。本頁面有鏈接：上傳文件、添加文件下載列表、編輯、刪除， 該頁面結(jié)構(gòu)如圖 46 所示： 圖 46 課件 管理 頁面設(shè)計 圖 該模塊包括如下 ASP 文件： ：老師工作區(qū) 課件管理 主頁面 ： 編輯下載文件信息列表 。 ： 添加下載文件信息列表 。 南京曉莊學(xué)院學(xué)士學(xué)位論文 第 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。判斷文件名稱是否為空 南京曉莊學(xué)院學(xué)士學(xué)位論文 第 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的文件。教師如果要對課件進(jìn)行修改，修改時首先對要修改的課件進(jìn)行下載。上傳時需傳上傳 ppt文件和 mht文件。教師要上傳一些學(xué)生可下載的文件，必須添加該文件的下載信息和上傳該文件。 該頁面結(jié)構(gòu)如圖 47 所示： 南京曉莊學(xué)院學(xué)士學(xué)位論文 第 33 頁 共 39 頁 圖 47 課件上傳頁面 圖 下面介紹一下課件上傳 （ ） 的 關(guān)鍵 代碼！ //判斷文件類型是否合格 ① Function CheckFileExt(FileName,ExtName) 39。文件名 ,允許上傳文件類型 FileType = ExtName FileType = Split(FileType,) 39。通過 Split函數(shù)建立數(shù)組，將文件擴(kuò)展名與每個數(shù)組元素進(jìn)行比較 For i = 0 To Ubound(FileType) If LCase(Right(FileName,3)) = LCase(FileType(i)) then 39。獲得文件擴(kuò)展名，并以小寫形式顯示，文件護(hù)展名與每個數(shù)組元素比較。 CheckFileExt = True 39。表明是允許的上傳文件類型 Exit Function Else CheckFileExt = False 39。說明上傳的文件類型不符合定義 End if Next 南京曉莊學(xué)院學(xué)士學(xué)位論文 第 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 課件下載模塊（ ） 學(xué)生可以對課件內(nèi)容和老師上傳的一些文件進(jìn)行下載， 如果只是向數(shù)據(jù)庫添加字段，并沒有上傳文件會出現(xiàn)提示信息 —— 該文件不存在。只有既上傳課件，又向數(shù)據(jù)庫添加文件信息字段，才可以下載， 此功