【導讀】ASP技術是現今流行的一種動態(tài)網頁編程語言，它是由美國微軟公司開發(fā)。它的出現不僅豐富了網絡的內容，使制作出來的網頁不再只局限于單一。的靜態(tài)界面，更加強了人機戶動，也實現了人與人通過網絡交流的目的。程方便快捷，操作簡單，只要調整IIS在IE瀏覽器中瀏覽，設置個人WEB服務器，本設計采用ASP技術和Access數據庫設計聊天室。同時,ASP引入了兩個對象:Session對象用于保存用戶的個性化數。據;Application對象則用于放置多用戶共享信息。Keywords：ASPtechnology；IIS；WebService；Accessdatabase；CGI. 課題研究的主要問題-----------------------------------------5. 包含的主要技術問題-----------------------------------------7

　　

【正文】 昵稱寫入該變量 )， 因為 Session 對象的變量是私有的 ， 所以每個用戶的 Session(dNicknamed)變量的值是不相等的 。 發(fā)送方只要將目的用戶的 昵 稱寫入 Session(dDestnamed)， 然后通過上述列出的發(fā)送方代碼就可以將私聊內容發(fā)至想要發(fā)送的對象 ， 而其他用戶是收不到此內容的 。 例如 :Session(dDestnamed)的值為 ABC， 那么在發(fā)送方就會產生一個名為 Application(dABCd)的變量在接收方 ， 如果他的 Session(dNicknamed)的值也為 ABC 的話 ， 那么接收方的那個Application 對象的變量就為 Application(dABCd)。 如此一來就收到了發(fā)送方發(fā)來的私聊內容 ， 而其他用戶則收不到此內容，這就實現了聊天室私聊的功能 。私聊的實現見圖 11： 圖 11 添加 文件里面的代碼。這部分代碼主要處理 Application_onStart事件，在此事件中，定義 了一個有 15個元素的數據，并把它賦給了一個 Application對象的屬性。 文件的內容如下。 SCRIPT LANGUAGE = ”VBScript” RUNAT = ”Server” SUB Application_OnStart Dim maChats(15)定義一個具有 15 個元素的數據。 Application(“gaChats”) = maChats 存儲談話的內容。 Application(“giCounter”) = 0 存儲已有的談話 內容 END SUB /SCRIPT 在 文件中添加代碼。注意，要把這部分代碼添加在主頁中的兩條平線之間，也就是文本中的兩個 hr之間。程序首先判斷申請這主頁時，是否用的是“ post”方法，因為本例中窗口的提交方法是“ post”。而一般第一次申請這幅主頁時，用的是“ get”方法。所以如果采用的是“ post”方法的話，就說明是某一瀏覽者在提交自己的談話內容時的重新申請，這就要進行處理，因為又有新的談話內容了。否則，說明某一瀏覽者第一次申請此主頁，并沒有提交什么談話，因 此只需要把當前的談話內容顯示出來就可以了。 29說明： ASP 中，提供了兩個共享的對象 Application 和 Session， Application對象可以用來記錄不同客戶端共享數據變量， 這里介紹 Application 的語法及功能。 語法 1 Application(“Applicationname”)=settingdata 語法 2 Variablename=Application(“Applicationname”) 功能 記錄所有客戶端共享的對象。 1. 語法 1：設定給 Application(“Applicationname”)數據為變體型（ Variant），但所設定的數據若為字符串需使用雙引號將字符串包括起來，settingdata 參數表示欲設定的數據。 2. 語法 2：將 Application(“Applicationname”)的數據指定給 variablename，variablename 參數為變量名稱。 Application 雖然是所有客戶端的共享對象，但是 Application 也有它的有效范圍。 Application 的有效范圍就是虛擬目錄，就是本聊天室的默認虛擬路徑C:\Ipub\root\ASP 聊 天室。 其中聊天室的所有客戶都要共享信息，所以不可避免的要用到具有應用程序級的變量的對象 Application，這是建立的 Chat 程序的關鍵所在，所有的談話數據都存放在一個應用程序級變量中，以便讓所有的客戶讀取。用所學過的 Request對象獲取客戶所輸入的談話，并保存在變量 talk 中，然后將 talk 值存入應用級變量 show 中，如下： %Application(“show”)=talkamp。Application(“show”)% 接下來要考慮的是當不同的客戶同時向 Chat 應用程序進行操作的時候如何處理。這個 問題其實與在數據庫中的兩個用戶同時寫入同一個記錄一樣，如果兩個用戶同時對同一個應用程序級變量進行寫操作，則一個用戶所做的修改會被另一個用戶的操作所覆蓋，所以，如果對 Application 對象數據的并發(fā)訪問不采取一定的措施，則會導致當兩個用戶試圖同時對 ASP 聊天室應用程序提交時，一個用戶提交的內容會被另一個用戶提交的內容所覆蓋，在被參加到會話中的任何人看到之前就消失了。為了避免這類問題的出現，我們需要使用 Application 對象中的 Lock 屬性來約束只允許當前的用戶編輯或增加 Application 對象的屬性 ，這樣從用戶開始修改應用程序級變量開始，到 Application 對象被顯式解除鎖定為止， Application 對象的屬性只能被該用戶用編輯，如果此時有其他用戶請求編輯 Application 對象，則這些用戶要排隊等待，直到應用程序被打開為止。 30Application(“show”)=talkamp。Application(“show”) 其中進入聊天室管理頁面時是使用這樣的語句實現的 % online=Application(onlinelist) online=split(online, ) for i=lbound(online) to ubound(online)1 option value=amp。online(i)amp。amp。online(i)amp。/option next % p align =”center”font size=5一個 asp 聊天室〈 /font〉 /p br % 處理輸入 if (“Request_Method”) = ”POST” then 標明講話者 if len(Request(“txtWho”)) 0 then Session(“ssWho”) = Request(“txtWho”) End if //將 Application 對象鎖定，禁止其他客戶端存取 Application 變量 創(chuàng)建本地引用指針 mlCounte r= Application(“giCounter”) maChats = Application(“gaChats”) 如果寫入的 行數超過 10，則重新開始記數。 If mlCounter 9 then MlCounter = 0 End if 增加用戶的輸入，計數器加 1 maChat（ mlCounter） = Session(“ssWho”)amp?！?”amp。Request(“txtCents”) mlCounte r= mlCounter +1 把局部變量設置為在應用范圍內有效。 Application(”giCounter”)=mlCounter Application(“gaChats”)=maChat //將 Application 對象解除鎖定，允許其他客戶端 31存取 Application 變量 End if % % 寫入 TextArea if Application (“giCounter”) = 0 then lstemp =Application (“gaChats”)(0) else for x =0 to Application (“giCounter”)1 lstemp = lstemp amp?！眀r”Application(“gaChats”)(x) next end if lstemp % hr 再把 txtWho 的內容初始化。也就是當瀏覽者輸入過一次自己的姓名以后就不用再次輸入了，為了區(qū)分每個不同的瀏覽者，在這里使用了“ Session”對象。利用 Session(“ssWho”)記載瀏覽者的姓名。下面的代碼直接寫在以上代碼的下面，存入 中。 from method =”POST” action=”” name=”frmAsp” div align =”center”centerp 發(fā)言： input type =”txtCents” size=”34”/p /center/divdiv align =”center”centerp 對象： input type =”submit” value =”送出 ” name =”B1”/p /center/div /form 聊天室的數據庫配置它里面包括基本配置頁，修改內有說明，可修改聊天室名稱和數據庫類型 (目前默認的為 ACCESS 數據庫 )，具體的實現方式如下代碼所示： % dim chatname,mastername,copy,chatdate,useragent chatname=聊天室 //聊天室名字 mastername=admin //超管帳號 ， 多個請用 “|”分開 32copy=聊天室 chatdate=0 //0代表 ACCESS數據庫 ， 1代表 SQL數據庫 % % 以下語句的執(zhí)行是用 function函數實現的， function函數過程無法使用“函數名稱＝表達式”語句來返回值，而且 function名稱可以當 成一個結果值。 function函數定義的語法如下： Function 函數名稱 ([參數 ]) ?? [函數名稱＝表達式 ] [Exit Function] ?? End Function Function 函數是以 Function開頭以 End Function 結束的程序代碼區(qū)塊，它實現的功能是調用一個已定義的 Function過程。 注意：（ 1）參數表中的參數稱為實參，形參與實參傳遞與 Sub過程相同。 （ 2）函數調用只 能出現在表達式中，其功能是求得函數的返回值。 function tjip() server_v1=Cstr((HTTP_REFERER)) server_v2=Cstr((SERVER_NAME)) if mid(server_v1,8,len(server_v2))server_v2 then script language=javascript{(39。本聊天室禁止外部提交 ！ 39。)。()。}/script end if end function 可以使用以下語法來調用指定的 Function函數，以下寫法是屬于“調用程序”； 變量 =函數名稱（ [參數 ]） //返回值，表示以函數名稱當成一個結果值 1. 如上語法調用擁有返回值的 Function函數，會將函數返回值的結果指定給等號左邊的變量，表示可以使用函數名稱當成一個結果值。 2. “調用過程“后面所接的參數行稱為實參，而被調用過程的 Function函數所設定的參數行稱為形參。 3. 調用與被調用的函數名稱必須相同，但兩者的參數名稱可以不相同。 4. 調用過程的實參可以是常數、變量、表達式、數組、對象。被調用 Function 33函數的形參不可以是常數或表達式，其他上述所提的變量、數組、對象皆可以當作是被調用函數的形參。 除此之外，本聊天室還增設了點歌功能，能夠使學生在學習過程中有個愉快的心情，這是區(qū)別于其他類型聊天室的特色所在。點歌系統(tǒng)具體實現的功能如下： % Set fs=CreateObject() zjpath=(mp3) Set f=(zjpath) Set fc= sss=0 For Each f1 in fc fn= if zj= and sss=0 then zj=fn sss=sss+1 scriptwz( amp。 chr(34) amp。 fn amp。 chr(34) amp。 )。/script amp。 chr(13) amp。 chr(10) next % 在其中用 到了前面介紹過的 Response對象。具體進入的點歌頁面如圖 12： 圖 12 第 4 章 結果分析 到這里我的畢業(yè)設計就已經接近完成了， 這里面只是簡單的介紹了一下在我所設計的內容中較有特色的地方，比如 聊天室中的點歌系統(tǒng)，還有數據庫部分使用 ACCESS直接來實現的。 ASP 的開發(fā)簡單而直觀 ,能方便地與 HTML 集成 ； 利用內置對象 ； 很容易設計網上聊天室 、 留言板 、 電子商務系統(tǒng)等 ；利用 ASP 技術 ， 可以實現服務器數據庫 、 服務器文件系統(tǒng)的操作功能 。 34第 5 章 總結 在現代的網絡時代，網絡教學已經很流行于各大校園內， 這就需要我們要跟上時代的步伐，把網絡教學實施于實際中來。網絡教學就離不開學生與老師之間的互相交流，這就需要制作一個動態(tài)的網頁來實現它，聊天室就是一個最好的體現師生互動的平臺。我所制作的聊天室只是一種簡單的動態(tài)網頁，還需要更多時間和精力去完善它