【導(dǎo)讀】作業(yè)的管理、答疑、聊天室等模塊的設(shè)計(jì)與開發(fā)純粹使用ASP腳本語言。設(shè)計(jì)的重點(diǎn)是通過ASP組。PageChangeNotify、EmailAFriend、ProjectProgress、EmailBlast、目的在于簡(jiǎn)化程序中的代碼，降低程序的復(fù)。雜性，增強(qiáng)代碼的可讀性和保密性。并實(shí)現(xiàn)了將這些封裝后的代碼被多個(gè)。應(yīng)用程序同時(shí)使用的功能。module(SchoolComponent、OnlineStore、MessageBoard、Links、高速公路的雛形，人類正由此進(jìn)入一個(gè)前所未有的信息化社會(huì)。計(jì)算機(jī)信息網(wǎng)絡(luò)。從某種意義上，Inter可以說是美蘇冷戰(zhàn)的產(chǎn)物。龐大的網(wǎng)絡(luò)，它的由來，可以追溯到1962年。

　　

【正文】 Application(dsn) strSQL = select passwd from student where num = 39。 amp。 num amp。 39。 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。 \ amp。 num amp。 id_num amp。 ) then msgfail end if if ((./homework) amp。 \ amp。 num amp。 id_num amp。 .zip) then (./homework) amp。 \ amp。 num amp。 id_num amp。 .zip end if filepath,(./homework) amp。 \ amp。 num amp。 id_num amp。 .zip,1 filepath,1 set filesystem = nothing msgsuccess % 圖 47 (3).:作業(yè)成績(jī)查詢。 界面如圖 48 所示： 運(yùn)行代碼： %@ Language = VBScript % % = 99999 % ! Include file=include\ html head meta equiv=ContentType content=text/html。 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é)號(hào)/font/TD TD bgcolor=007FFF align=centerfont color=FFFFFF第幾次實(shí)習(xí)題 /font/TD TD bgcolor=007FFF align=centerfont color=FFFFFF上交時(shí)間 /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。39。 /td /tr /table /body /html 圖 48 第七節(jié) 聊天室 此模塊包括以下 ASP 文件： (1).:聊天室入口頁(yè)面。 (2).:聊天室框架頁(yè)面。 (3).:聊天內(nèi)容顯示窗口。 (4).:聊天文本錄入窗口。 聊天室的種類很多，可以通過 JAVA Applet、 CGI 等 方面實(shí)現(xiàn)。一般聊天室都分作上下兩幀來實(shí)現(xiàn)，其中上邊一幀顯示當(dāng)前聊天信息，下邊一幀為接收用戶輸入信息的內(nèi)容發(fā)送區(qū)。用戶提交談話內(nèi)容的時(shí)候，上面一幀的聊天信息將會(huì)更新。在解決如何更新聊天信息的時(shí)候通常有兩種方法： “推”技術(shù)。 。 其中第一種方案對(duì)服務(wù)器載荷較小，但編程實(shí)現(xiàn)起來比較復(fù)雜，大型的聊天室一般都采用這種方案。后面一種方案實(shí)現(xiàn)容易，代碼簡(jiǎn)明，本系統(tǒng)為一小型系統(tǒng)，因此采用此方法。 在頁(yè)面 head/head標(biāo)記中加入一個(gè) meta標(biāo)記， meta equiv=”refresh” content=”25”。url=?tail” 它的作用是讓這一個(gè)頁(yè)面定時(shí)更新，每 25 秒刷新一次，后面的 URL指明了刷新的頁(yè)面名稱為 ， tail 是頁(yè)面中的一個(gè) a標(biāo)記，它在文件的末尾。 (1).:聊天室入口頁(yè)面。 頁(yè)面示例如圖 49 所示。 實(shí)現(xiàn)代碼： %@ Language=VBScript % HTML HEAD title/title /HEAD BODY bgColor=faebd7 script language=vbscript sub hover(name) (name).src=nameamp。 end sub sub hoverout(name) (name).src=nameamp。.jpg end sub sub submitsub end sub sub cancelsub end sub /script center font color=191970 今天是 %=year(now())% 年 %=month(now())% 月%=day(now())%日 br 歡迎加入討論。請(qǐng)輸入名字： /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).:聊天室框架頁(yè)面。 這一頁(yè)是聊天室的框架頁(yè)面，左邊是功能菜單，提供 到其他功能模塊的連接。上邊一幀顯示當(dāng)前聊天信息，下邊一幀為接收用戶輸入信息的內(nèi)容發(fā)送區(qū)。頁(yè)面示例如圖 410 圖 410 實(shí)現(xiàn)方法如下： 在服務(wù)器上建立了一個(gè)文本文件 ，用戶提交的聊天信息都將記錄本在文本 中，瀏覽器中的 頁(yè)面將定期刷新，將 中的聊天信息顯示給用戶。下面的 frame 是 ，上面的 frame 是 . 框架網(wǎng)頁(yè)： %@ Language=VBScript % html head title實(shí)時(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。url=39。tail39。 /HEAD BODY bgColor=fdf5e6 center font color=red size=10 face=隸書 實(shí)時(shí)答疑 /fontbr /center % dim fileobject dim textfile dim filepath filepath = () set fileobject = () 39。下面是寫入過程 if (filepath) then 39。如果記錄文件已經(jīng)存在 set textfile = (filepath,8,true,0) if request(sentence)= then else font color=blue amp。 request(user) amp。 /font amp。 (amp。now()amp。)amp。:amp。 replace(replace(request(sentence),),) end if else 39。如果記錄文件不存在 set textfile = (filepath) (now()) end if 39。下面是讀出過程 set textfile = (filepath,1,false,0) do while not amp。br loop % a name=tail/a /BODY /HTML （ 3） 聊天文本錄入窗口 實(shí)現(xiàn)方法如下： %@ Language=VBScript % HTML HEAD SCRIPT LANGUAGE=javascript ! function window_onload() {()。 } function text2_onkeydown() { z = 。 if (z==13) {submitsub()。 return false。 } return true。 } function hover(name) {(name).src = name + 。 } function hoverout(name) {(name).src = name + .jpg。 } function submitsub() {()。 =。 ()。 } function cancelsub() {()。 ()。 } // /SCRIPT /HEAD BODY bgColor=faebd7 language=javascript onload=return window_onload()。 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