用ASP建立一個(gè)簡(jiǎn)單的聊天室
下面介紹其主要步驟: 字串8
1,添加Global.asa文件里面的代碼.
這部分代碼主要處理Application_onStart事件,在此事件中,定義了一個(gè)有15個(gè)元素的數(shù)據(jù),并把它賦給了一個(gè)Application對(duì)象的屬性.Global.asa文件的內(nèi)容如下. 字串5
| 以下為引用的內(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ǔ)已有的談話數(shù)目. END SUB ＜/SCRIPT＞ |
字串8
2,在AspChat.asp文件中添加代碼.
注意,要把這部分代碼添加在主頁(yè)中的兩條水平線之間,也是文本中的兩個(gè)＜hr＞之間.程序首先判斷申請(qǐng)這幅主頁(yè)時(shí),是否用的是"Post"方法,因?yàn)楸纠写翱诘奶峤环椒ㄊ?post".而一般次申請(qǐng)這幅主頁(yè)時(shí),用的是"get"方法.所以如果采用的是"post"方法的話,說明是某一瀏覽者在提交自己的談話內(nèi)容時(shí)的重新申請(qǐng),這要進(jìn)行處理,因?yàn)橛钟行碌恼勗拑?nèi)容了.否則,說明某一瀏覽者次申請(qǐng)此主頁(yè),并沒有提交什么談話,因此只需要把當(dāng)前的談話內(nèi)容顯示出來可以了. 字串8
| 以下為引用的內(nèi)容： ＜p align="center"＞＜font size=5＞一個(gè)簡(jiǎn)單的聊天室＜/font＞＜/p＞ ＜br＞ ＜% 處理輸入 if Request.ServerVariables("Request_Method")="POST" then 標(biāo)明講話者 if len(Request("txtWho"))＞0 then Session("ssWho")=Request("txtWho") end if 封鎖Application對(duì)象 Application.Lock 創(chuàng)建本地引用指針 mlCounter=Application("giCounter") maChats=Application("gaChats") 如果寫入的行數(shù)超過10,則重新開始記數(shù). if mlCoundter＞9 then mlCoundter=0 end if 增加用戶的輸入,計(jì)數(shù)器加1 字串4 maChat(mlChounter)=Session("ssWho")&":"&Request("txtCents") mlCounter=mlCounter+1 把局部變量設(shè)置為在應(yīng)用范圍內(nèi)有效. Applicati "giCounter")=mlCounter Application("gaChats")=maChat Application對(duì)象的封鎖 Application.Unlock end if %＞ ＜% 寫入TextArea if Application("giCounter")=0 then lstemp=Application("gaChats")(0) else for x=0 to Application("giCounter")-1 lstemp=lstemp&"＜br＞"Application("gaChats")(x) next end if Response.white lstemp %＞ ＜hr＞ |
字串5
3,把txtWho的內(nèi)容初始化. 字串8
也是當(dāng)瀏覽者輸入過一次自己的姓名以后不用再次輸入了,為了區(qū)分每個(gè)不同的瀏覽者,在這里使用了"Session"對(duì)象.利用Session("ssWho")記載瀏覽者的姓名.下面的代碼直接寫在以上代碼的下面存入AspChat.asp中. 字串7
| 以下為引用的內(nèi)容： ＜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＞ |
4.完成. 字串7
只要把2,3步的代碼前后加入完整的htm文件代碼然后存為aspchat.asp可以了,這是一個(gè)很簡(jiǎn)單的asp聊天室程序,大家可以隨著學(xué)習(xí)的深入不斷加強(qiáng)它的功能