經(jīng)過一個(gè)階段的asp學(xué)習(xí),下面我們結(jié)合所學(xué)過的內(nèi)容建立一個(gè)最簡單的聊天室,雖然很簡單,但是大家可以通過它來掌握一個(gè)聊天室建立的基本過程,并且可以不斷的完善其功能.
下面介紹其主要步驟:
1,添加Global.asa文件里面的代碼.這部分代碼主要處理Application_onStart事件,在此事件中,定義了一個(gè)有15個(gè)元素的數(shù)據(jù),并把它賦給了一個(gè)Application對(duì)象的屬性.Global.asa文件的內(nèi)容如下.

＜SCRIPT LANGUAGE="VBScript" RUNAT="Server"＞SUB Application_OnStartdim maChats(15) 定義一個(gè)具有15個(gè)元素的數(shù)據(jù).Application("gaChats")=maChats 存儲(chǔ)談話的內(nèi)容.Application("giCounter")=0 存儲(chǔ)已有的談話數(shù)目.END SUB＜/SCRIPT＞

2,在AspChat.asp文件中添加代碼.注意,要把這部分代碼添加在主頁中的兩條水平線之間,也就是文本中的兩個(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)容顯示出來就可以了.

＜p align="center"＞＜font size=5＞一個(gè)簡單的聊天室＜/font＞＜/p＞＜br＞＜%處理輸入if Request.ServerVariables("Request_Method")="POST" then標(biāo)明講話者if len(Request("txtWho"))＞0 thenSession("ssWho")=Request("txtWho")end if封鎖Application對(duì)象Application.Lock創(chuàng)建本地引用指針mlCounter=Application("giCounter")maChats=Application("gaChats")如果寫入的行數(shù)超過10,則重新開始記數(shù).if mlCoundter＞9 thenmlCoundter=0end if增加用戶的輸入,計(jì)數(shù)器加1maChat(mlChounter)=Session("ssWho")&":"&Request("txtCents")mlCounter=mlCounter+1把局部變量設(shè)置為在應(yīng)用范圍內(nèi)有效.Applicati "giCounter")=mlCounterApplication("gaChats")=maChat消除Application對(duì)象的封鎖Application.Unlockend if%＞＜%寫入TextAreaif Application("giCounter")=0 thenlstemp=Application("gaChats")(0)elsefor x=0 to Application("giCounter")-1lstemp=lstemp&"＜br＞"Application("gaChats")(x)nextend ifResponse.white lstemp%＞＜hr＞

3,最后把txtWho的內(nèi)容初始化.也就是當(dāng)瀏覽者輸入過一次自己的姓名以后就不用再次輸入了,為了區(qū)分每個(gè)不同的瀏覽者,在這里使用了"Session"對(duì)象.利用Session("ssWho")記載瀏覽者的姓名.下面的代碼直接寫在以上代碼的下面存入AspChat.asp中.

＜form method="POST" action="aspchat.asp" name="frmAsp"＞＜div align="center"＞＜center＞＜p＞發(fā)言:＜input type="text" name="txtCents" size="34"＞＜/p＞＜/center＞＜/div＞＜div align="center"＞＜center＞＜p＞對(duì)象:＜input type="submit" value="送出" name="B1"＞＜/p＞＜/center＞＜/div＞＜/form＞