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

　　

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