【摘 要】本文利用ASP和VBScript腳本語言，設計并實現(xiàn)了一個簡單的網(wǎng)絡聊天室。該聊天室能為網(wǎng)站所有在線用戶提供一個簡單的在線交流平臺，這樣就有利于提供網(wǎng)站的用戶訪問量和人氣。

【關鍵詞】VBScript ASP；聊天室；網(wǎng)站

1.引言

動態(tài)網(wǎng)站通常都給瀏覽者提供在線交流的平臺，這些在線交流平臺有BBS留言板和聊天室等。本文利用ASP和VBScript腳本語言，設計并實現(xiàn)了一個簡單的網(wǎng)絡聊天室。該聊天室能為網(wǎng)站所有在線用戶提供一個簡單的在線交流平臺，這樣就有利于提供網(wǎng)站的用戶訪問量和人氣。

2.基于ASP的聊天室實現(xiàn)

基于ASP的聊天室通常利用Application對象實現(xiàn)。Application對象是一個共享對象，同一個Web應用中的所有程序都可以共享其信息，而且該共享信息會在服務器運行期間一直有效。Application對象在網(wǎng)站應用中比較常見，如我們經(jīng)?？吹降木W(wǎng)站訪問量統(tǒng)計、同時在線人數(shù)統(tǒng)計和網(wǎng)頁聊天室等都離不開Application對象[1][2]。

本文創(chuàng)建的聊天室比較簡單，只用兩個網(wǎng)頁即可實現(xiàn)。

（1）創(chuàng)建一個chatindex.asp頁面，在網(wǎng)頁中創(chuàng)建一個簡單的表單，并輸入如下ASP代碼[3][4]。

<%

dim liuyan，username

username=Request.

Form（\"username\"）

if trim（username）=\"\" then

username=”過客”

end if

liuyan=Request.Form（\"liuyan\"）

if liuyan<>\"\" then

Application.Lock（）

if Application（\"liuyan\"）=1 then

Application（\"liuyan\"） = \"\"

else

Application（“l(fā)iuyan”）

=”

”username+

“說：”liuyanapplication

（“l(fā)iuyan”）”

”

end if

Application.UnLock（）

end if

%>

（2）創(chuàng)建一個room.asp頁面，在網(wǎng)頁中輸入如下代碼。

<%@LANGUAGE=\"VBSCRIPT\" CODEPAGE

=\"936\"%>

<%=Application（\"liuyan\"）%>

（3）聊天室運行界面如圖1所示。

參考文獻：

[1]林正榮，王煒立.ASP語言程序設計[M].北京：清華大學出版社，2009.1.

[2]李鑫.基于ASP和SQL技術的人力資源網(wǎng)絡數(shù)據(jù)庫的設計探討[J].硅谷，2010.4：45—49.

[3]何國民，仲治國.ASP動態(tài)網(wǎng)站：68個典型模塊精解[M].北京：科學出版社，2009.4.

[4]管西京.ASP+Access動態(tài)網(wǎng)站案例開發(fā)[M].北京：電子工業(yè)出版社，2008.7.

作者簡介：趙超（1983—），碩士研究生，助教，研究方向：計算機技術與應用。