以下为引用的内容: <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
|