【正文】 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() {()。 } function hover(name) {(name).src = name + 。 return false。 } function text2_onkeydown() { z = 。下面是讀出過程 set textfile = (filepath,1,false,0) do while not amp。 replace(replace(request(sentence),),) end if else 39。)amp。 (amp。 request(user) amp。下面是寫入過程 if (filepath) then 39。tail39。下面的 frame 是 ，上面的 frame 是 . 框架網(wǎng)頁： % Language=VBScript % html head title實(shí)時答疑 /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)容顯示窗口 實(shí)現(xiàn)方法如下： % Language=VBScript % HTML HEAD meta equiv=Refresh content=25。上邊一幀顯示當(dāng)前聊天信息，下邊一幀為接收用戶輸入信息的內(nèi)容發(fā)送區(qū)。請輸入名字： /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).:聊天室框架頁面。 end sub sub hoverout(name) (name).src=nameamp。 頁面示例如圖 49 所示。url=?tail” 它的作用是讓這一個頁面定時更新，每 25 秒刷新一次，后面的 URL指明了刷新的頁面名稱為 ， tail 是頁面中的一個 a標(biāo)記，它在文件的末尾。后面一種方案實(shí)現(xiàn)容易，代碼簡明，本系統(tǒng)為一小型系統(tǒng)，因此采用此方法。 。用戶提交談話內(nèi)容的時候，上面一幀的聊天信息將會更新。 聊天室的種類很多，可以通過 JAVA Applet、 CGI 等 方面實(shí)現(xiàn)。 (3).:聊天內(nèi)容顯示窗口。 /td /tr /table /body /html 圖 48 第七節(jié) 聊天室 此模塊包括以下 ASP 文件： (1).:聊天室入口頁面。 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第幾次實(shí)習(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。 .zip,1 filepath,1 set filesystem = nothing msgsuccess % 圖 47 (3).:作業(yè)成績查詢。 num amp。 .zip end if filepath,(./homework) amp。 num amp。 .zip) then (./homework) amp。 num amp。 ) then msgfail end if if ((./homework) amp。 num amp。 set rs = () strSQL,conn if then set filesystem = createobject() filepath,1 set filesystem = nothing set rs = nothing set conn = nothing msgerror end if if rs(passwd) passwd then set filesystem = createobject() filepath,1 set filesystem = nothing set rs = nothing set conn = nothing msgerror end if set rs = nothing set conn = nothing set filesystem = createobject() if ((./homework) amp。 num amp。 驗(yàn)證密碼 set conn = () Application(dsn) strSQL = select passwd from student where num = 39。chr(13) end sub % % Set Post = () (./tempforupload) 39。chr(13) /scriptamp。chr(13) end subamp。chr(13) =amp。chr(13) msgbox 作業(yè)提交成功！ ,0, 網(wǎng)絡(luò)學(xué)堂amp。chr(13) sub window_onloadamp。chr(13) end sub sub msgsuccess script language=vbscript runat=serveramp。chr(13) /scriptamp。chr(13) end subamp。chr(13) amp。chr(13) msgbox 您已經(jīng)提交過該次作業(yè)并且已批改過，此次提 交無效！ ,0,網(wǎng)絡(luò)學(xué)堂 amp。chr(13) sub window_onloadamp。chr(13) end sub sub msgfail script language=vbscript runat=serveramp。chr(13) /scriptamp。chr(13) end subamp。chr(13) amp。chr(13) msgbox 錯誤的用戶名或密碼！ ,0, 網(wǎng)絡(luò)學(xué)堂amp。chr(13) sub window_onloadamp。 運(yùn)行代碼： % Language=VBScript % % =0 % ! Include file=include\ % sub msgerror script language=vbscript runat=serveramp。 /P P 初始密碼和學(xué)號一致，請自行 A href=更改密碼 /A。 /P P 注意： 如果對同一次實(shí)習(xí)題重復(fù)提交，新的 zip 文件將替換舊的文件，因此請務(wù)必正確選擇實(shí)習(xí)題的序號。 頁面如圖 47 所示： 實(shí)現(xiàn)的代碼如下： % Language = VBScript % html head meta equiv=ContentType content=text/html。對于作業(yè)的批閱和作業(yè)的次數(shù)等信息的處理，也可以通過其他方式實(shí)現(xiàn)，例如數(shù)據(jù)庫。例如 9810022x..zip 就表示完成該作業(yè)學(xué)生的學(xué)號是 981002，這是第二次作業(yè)，且老師已經(jīng)批閱完畢。學(xué)生把每次的作業(yè)壓縮成一 zip 文件上載到服務(wù)器上。其中 是該組件的 dll 文件名字。本系統(tǒng)中使用 activefile 組件。 (3).:作業(yè)成績查詢。 strSql (strSQL) set conn = nothing % 圖 46 第六節(jié) 作業(yè)模塊 此模塊涉及到的部分 ASP 文件如下： (1).:上交作業(yè)的表單。 39。 amp。 39。 amp。chr(10),br) 39。strText = (strText) 39。39。strTitle = replace(strTitle,) strText = (problem) strText = replace(strText,39。) strTitle = (strTitle) 39。,39。 charset=gb2312 title New Page /title ! Include file=include\ /head body leftmargin=20 % strID = (ID) strpage = (page) dim objCnn,rs strDSN = Application(dsn) strSQL = SELECT title,flag_answer,detail,answer FROM problems where ID=a