【正文】 OpenDynamic = 2 Const adOpenStatic = 3 39。H0001 Const adCmdTable = amp。 對于要進(jìn)行數(shù)據(jù)庫操作的頁面 ，可以通過調(diào)用這兩個函數(shù)來實現(xiàn)。 共分為左右兩個頁面。 該頁面的教案學(xué)習(xí)中有一個分級展開的菜單，當(dāng)單擊標(biāo)題“第二章 線性表”的時候，下面子菜單每一小節(jié)的標(biāo)題就顯示出來；再次單擊的時候，下面的子菜單又收縮不顯示了。 } } /script 對于子菜單的 HTML 部分，定義了一個塊 div id=”div2”style=”display:none”根據(jù)風(fēng)格定義 display:none，塊中的內(nèi)容缺省內(nèi)容是不顯示的。 a. 每一章節(jié)都要設(shè)置一個起始頁面，可以是此章節(jié)的目錄頁面，也可以是第一小節(jié)的頁面 b. 在 html 中做好對資源的連接，并能保證所有資源都能被方便的訪問到 。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。,39。strTitle = replace(strTitle,) strText = (problem) strText = replace(strText,39。strText = (strText) 39。 amp。 amp。 strSql (strSQL) set conn = nothing % 圖 46 第六節(jié) 作業(yè)模塊 此模塊涉及到的部分 ASP 文件如下： (1).:上交作業(yè)的表單。本系統(tǒng)中使用 activefile 組件。學(xué)生把每次的作業(yè)壓縮成一 zip 文件上載到服務(wù)器上。對于作業(yè)的批閱和作業(yè)的次數(shù)等信息的處理，也可以通過其他方式實現(xiàn)，例如數(shù)據(jù)庫。 /P P 注意： 如果對同一次實習(xí)題重復(fù)提交，新的 zip 文件將替換舊的文件，因此請務(wù)必正確選擇實習(xí)題的序號。 運行代碼： % Language=VBScript % % =0 % ! Include file=include\ % sub msgerror script language=vbscript runat=serveramp。chr(13) msgbox 錯誤的用戶名或密碼！ ,0, 網(wǎng)絡(luò)學(xué)堂amp。chr(13) end subamp。chr(13) end sub sub msgfail script language=vbscript runat=serveramp。chr(13) msgbox 您已經(jīng)提交過該次作業(yè)并且已批改過，此次提 交無效！ ,0,網(wǎng)絡(luò)學(xué)堂 amp。chr(13) end subamp。chr(13) end sub sub msgsuccess script language=vbscript runat=serveramp。chr(13) msgbox 作業(yè)提交成功！ ,0, 網(wǎng)絡(luò)學(xué)堂amp。chr(13) end subamp。chr(13) end sub % % Set Post = () (./tempforupload) 39。 num amp。 num amp。 num amp。 num amp。 num amp。 charset=gb2312 title/title ! Include file=include\ /head body br br % num = (num) % TABLE align=center border=0 cellPadding=1 cellSpacing=1 width=75% tr td 學(xué)生 %=num%上交的作業(yè)列表如下： /td /tr /table TABLE align=center border=1 cellPadding=1 cellSpacing=1 width=75% TR TD bgcolor=007FFF align=centerfont color=FFFFFF 學(xué)號/font/TD TD bgcolor=007FFF align=centerfont color=FFFFFF第幾次實習(xí)題 /font/TD TD bgcolor=007FFF align=centerfont color=FFFFFF上交時間 /font/TD TD bgcolor=007FFF align=centerfont color=FFFFFF是否批改 /font/TD /TR % set fs = createobject() set folder = ((./homework)) for each file0 in f_num = left(,6) f_idnum = mid(,7,1) f_flag = mid(,8,1) f_time = if trim(num) = f_num then % tr TD align=center%=f_num%/TD TD align=center%=f_idnum%/TD TD align=center%=f_time%/TD TD align=center % if f_flag = x then 已批改 else 未批改 end if % /TD /TR % end if next set fs = nothing set folder = nothing % /TABLE TABLE align=center border=0 cellPadding=1 cellSpacing=1 width=75% tr td align=center INPUT type=button value=返回 onclick==39。 (3).:聊天內(nèi)容顯示窗口。用戶提交談話內(nèi)容的時候，上面一幀的聊天信息將會更新。后面一種方案實現(xiàn)容易，代碼簡明，本系統(tǒng)為一小型系統(tǒng)，因此采用此方法。 頁面示例如圖 49 所示。請輸入名字： /font form action= method=post name=inputform 在這里輸入名字： input type=text name=user br img src= width=30 name=ok onmouseover=hover(ok) onmouseout=hoverout(ok) onclick=submitsub img src= width=30 name=cancel onmouseover=hover(cancel) onmouseout=hoverout(cancel) onclick=cancelsub /form /center /BODY /HTML 圖 49 (2).:聊天室框架頁面。下面的 frame 是 ，上面的 frame 是 . 框架網(wǎng)頁： % Language=VBScript % html head title實時答疑 /title /head % session(user)=request(user) % frameset rows=*,20% frame name=chatmain target=footnotes src=tail frame name=footnotes src= noframes body /body /noframes /frameset /html （ 3） ：聊天內(nèi)容顯示窗口 實現(xiàn)方法如下： % Language=VBScript % HTML HEAD meta equiv=Refresh content=25。下面是寫入過程 if (filepath) then 39。 (amp。 replace(replace(request(sentence),),) end if else 39。 } function text2_onkeydown() { z = 。 } function hover(name) {(name).src = name + 。 ()。 form name=inputform action=tail method=post target=chatmain table tr td 登錄用戶名： /td td INPUT type=text id=username name=user value=% if session(user)= then 。 ()。 } function submitsub() {()。 return false。下面是讀出過程 set textfile = (filepath,1,false,0) do while not amp。)amp。 request(user) amp。tail39。上邊一幀顯示當(dāng)前聊天信息，下邊一幀為接收用戶輸入信息的內(nèi)容發(fā)送區(qū)。 end sub sub hoverout(name) (name).src=nameamp。url=?tail” 它的作用是讓這一個頁面定時更新，每 25 秒刷新一次，后面的 URL指明了刷新的頁面名稱為 ， tail 是頁面中的一個 a標(biāo)記，它在文件的末尾。 。 聊天室的種類很多，可以通過 JAVA Applet、 CGI 等 方面實現(xiàn)。 /td /tr /table /body /html