【文章內(nèi)容簡介】 ”按鈕，從彈出的文件窗口中選擇 文件所在的位置，其他選項都不改變，如圖 34 所示 。 圖 34 填寫數(shù)據(jù)源 信息 單擊 ”確定 ”按鈕，這樣就完成了 Access 數(shù)據(jù)庫的 ODBC 數(shù)據(jù)源設(shè)置 。 第四章 系統(tǒng)功能模塊的設(shè)計 第一節(jié) 系統(tǒng)公用頁面 系統(tǒng)公用頁面包括以下 4 個： 文件、 ADO 常數(shù)頁面 文件、 ADO 連接函數(shù)頁面 文件、頁面風(fēng)格定義文件。 文件放在網(wǎng)站的根目錄下，這是 文件的特性決定的，其 余 3 個文件都放在 /include 目錄下。 （ 1） 文件 文件可以對 applicationt 和 session 對象的開始和結(jié)束事件定義函數(shù)。在該文件中，我們將數(shù)據(jù)庫連接的字符串存放在 application(“dsn”)對象中。這樣每次啟動網(wǎng)站的時候，數(shù)據(jù)連接字符串 application(“dsn”)就被賦值。 SCRIPT LANGUAGE=VBScript RUNAT=Server Sub Application_OnStart Application(dsn) = dsn=newdata。uid=。pwd= end Sub /SCRIPT （ 2） ADO 常數(shù)頁面 文件 程序中將會使用一些常數(shù)，例如 adopenforwardonly ,adlockreadonly 等。因此將它們放在一個頭文件 中，以方便調(diào)用。 % 39。 游標(biāo)類型常量 Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 39。 鎖定類型常量 Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 39。 存儲過程常量 Const adCmdUnknown = amp。H0008 Const adCmdText = amp。H0001 Const adCmdTable = amp。H0002 Const adCmdStoredProc = amp。H0004 (3).ADO 連接函數(shù)頁面 對于程序中建立數(shù)據(jù)連接和關(guān)閉數(shù)據(jù) 連接的操作，最好也放在一個包 含 文 件 中 ， 這 樣 便 于 維 護 和 修 改 。Cod_AdoOpen(objconnection,rscourseslist,dsn,rss) 為建立連接函數(shù)，objconnection 為數(shù)據(jù)連接對象， rscoureslist 為數(shù)據(jù)集對象， dsn 為數(shù)據(jù)連接字符串， rss 為要執(zhí)行的 SQL 語句；cod_Adoclose(objconnection,rscourseslist)為關(guān)閉連接字符串， objconnection為數(shù)據(jù)連接對象， rscourseslist 為數(shù)據(jù)集對象。 對于要進行數(shù)據(jù)庫操作的頁面 ，可以通過調(diào)用這兩個函數(shù)來實現(xiàn)。 % sub cod_AdoOpen(objConnection, rsCoursesList,dsn,rss) Set objConnection = () p=() dsn=provider=。data source= amp。 p dsn Set rsCoursesList = () = objConnection = adUseClient = adOpenForwardOnly = adLockReadOnly = rss end sub sub cod_AdoClose(objConnection, rsCoursesList) set rsCoursesList = nothing set objConnection = nothing end sub % 第二節(jié) 主頁面 系統(tǒng)的起始頁如圖 41 所示。 共分為左右兩個頁面。實現(xiàn)方法如下： html head meta name=postinfo content=/scripts/ title網(wǎng)上課堂 /title meta name=GENERATOR content=Microsoft FrontPage /head frameset cols=205,* frame name=contents target=main src= scrolling=auto frame name=main src= target=rbottom scrolling=auto noframes body /body /frameset 從代碼和頁面中可以看出，左邊為菜單頁面 ，右邊為內(nèi)容頁面 ，在系統(tǒng)運行過程中，左邊菜單 一直都是顯示狀態(tài)，右邊的頁面隨模塊不同內(nèi)容也不同。 圖 41 主頁面 第三節(jié) 菜單頁面 菜單頁面包括 名項功能頁面的連接，即公告區(qū)、教案學(xué)習(xí)區(qū)、答疑教室、聊天室、作業(yè)查詢、作業(yè)上傳。頁面底部的圖標(biāo)是到教師工作室菜單頁面的連接。 該頁面的教案學(xué)習(xí)中有一個分級展開的菜單，當(dāng)單擊標(biāo)題“第二章 線性表”的時候，下面子菜單每一小節(jié)的標(biāo)題就顯示出來；再次單擊的時候，下面的子菜單又收縮不顯示了。 如圖 42 所示，這是表示的未點擊第一章和點擊了第二章以后的菜單圖 圖 42 菜單頁面 該功能的實現(xiàn)是用下面的函數(shù)來完成顯示的 。 script language=javascript function showdiv(div_id) { if ((div+div_id). == block) { (div+div_id). = none。 } else {(div+div_id). = block。 } } /script 對于子菜單的 HTML 部分，定義了一個塊 div id=”div2”style=”display:none”根據(jù)風(fēng)格定義 display:none，塊中的內(nèi)容缺省內(nèi)容是不顯示的。當(dāng)單擊標(biāo)題的時候，調(diào)用了函數(shù) show(?div2?)，這樣就可以通過改變子標(biāo)題部分 display 屬性來改變頁面的顯示了 。 第四節(jié) 教案學(xué)習(xí) 教案部分主要是靜態(tài)內(nèi)容，系統(tǒng)按章節(jié)和媒體類型分目錄進行存放，并在菜單頁面放置了連接。因此建立一個 lesson 目錄用來存放老師的教案，其中每一個章節(jié)的內(nèi)容作為一個目錄，分別命名為 ch0 ch0 ch0ch04…… 在每個章節(jié)的內(nèi)容下，存放著這部 分內(nèi)容的教案，包括 html 文件，圖片，多媒體文件（如 *.rm,*.ppt）等，資料整理完畢后還要在菜單中正確的訪問入口，能讓學(xué)生和老師都能從菜單上連接到資源。 a. 每一章節(jié)都要設(shè)置一個起始頁面，可以是此章節(jié)的目錄頁面，也可以是第一小節(jié)的頁面 b. 在 html 中做好對資源的連接，并能保證所有資源都能被方便的訪問到 。 如圖 43 所示： 圖 43 第五節(jié) 答疑教室 此模塊涉及到的部分 ASP 文件如下： a． :提問列表 b． :提問詳細信息 c． ：提出新問 題 在答疑教室功能模塊中，學(xué)生在網(wǎng)上可以提出問題。具體功能的實現(xiàn)如下 ： （ 1） :提問列表 如圖 44 所示： 實現(xiàn)方法如下： %@ Language = VBScript % ! Include file=include\ ! Include file=include\ html head meta equiv=ContentType content=text/html。 charset=gb2312 title/title ! Include file=include\ /head body % strPage = (page) dim objCnn,rs strDSN = Application(dsn) strSQL = select id,title,time_qry,flag_answer from problems where flag_show=true order by id desc cod_AdoOpen objCnn,rs,strDSN,strSQL % % if 0 then sumcount = end if = 20 intPageCount = if Len(strPage) = 0 then strPage = 1 if int(strPage)1 then strPage = 1 39。if int(strPage)intPageCount then strPage = CStr(intPageCount) if then % form method=POST action= h3您的問題是： /h3 p問題標(biāo)題： input type=text name=title size=42/p p問題內(nèi)容： /p ptextarea rows=10 name=problem cols=50/textarea/p pinput type=submit value=提交問題 name=B1input type=reset value=重新填寫 name=B2/p /form % end if =cint(strpage) % table border=0 cellspacing=1 width=600 trtd colspan=3 align=center [a href=A 我要提問 /a][ 本頁是第%=int(strPage)%/%=intPageCount%頁 ] % if int(strPage)1 then % [a href=?page=%=CStr( int(strPage)1 )%前一頁 /a] % end if % % if int(strPage)intPageCount then % [a href=?page=%=CStr( int(strPage)+1 )%下一頁 /a] % end if % /td/tr /table table border=0 cellspacing=1 width=600 tr class=tr3 td width=70 align=center序號 /td td width=* align=center提問標(biāo)題 /td td width=150 align=center提問時間 /td td width=80 align=center回答標(biāo)志 /td /tr % dim flagcolor,classtype flagcolor = true for intRecord = 1 To if then exit for end if flagcolor = not (flagcolor) if (flagcolor) then classtype = tr1 else classtype = tr2 end if % tr class=%=classtype% td align=center%=sumcount12*(cint(strpage)1)intRecord+1%/td tda href=?ID=%=rs(ID)%amp。page=%=strpage%%=rs(title)%/a/td td align=center %=Formatdatetime(rs(time_qry),1)% /td td align=center % if (rs(flag_answer)) then 已回答 else 未回答 end if % /td /tr % Next % /table table border=0 cellspacing=1 width=600