在asp聊天室裡實現房間功能和用戶顯示

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart()

application(gRoom_Name)=逍遙遊'保存主聊天室的名字，所有人先到的聊天室

dim pChat_Value(50)

application(application(gRoom_Name)&_Value)=pChat_Value 'p代表private g代表globle 用來保存逍遙遊聊天室的內容

application(application(gRoom_Name)&_Number)=0 '用來保存逍遙遊聊天室的談話的數目

application(養生主&_Value)=pChat_Value

application(養生主&_Number)=0

dim pChater_Value(150)

application(application(gRoom_Name)&er_Value)=pChater_Value '用來保存逍遙遊聊天室的聊天者的名字

application(application(gRoom_Name)&er_Number)=0 '用來表示逍遙遊聊天室的上線的人數

application(養生主&er_Value)=pChater_Value

application(養生主&er_Number)=0

dim pRoom_Value(50)

pRoom_Value(0)=逍遙遊&(&系統&)&[&application(application(gRoom_Name)&er_Number)&]&人

pRoom_Value(1)=養生主&(&系統&)&[&application(養生主&er_Number)&]&人

application(gRoom_Value)=pRoom_Value '用來保存房間的名字

application(gRoom_Number)=2

End Sub

Sub Session_OnStart()

session(sRoom_Name)=application(gRoom_Name)'每個新用戶的默認房間

session(sChater_Name)= 's代表session 用來保存說話者的名字

strProvider=Driver={Microsoft Access Driver (*.mdb)}; DBQ=&server.mappath(../chat)&/&db/Chater_Message.mdb;

set Cres=server.createobject(ADODB.Connection)

set res=server.createobject(ADODB.Recordset)

Cres.open strProvider

res.activeconnection=Cres

set session(res)=res '一個Recordset的實例

End Sub