global.asa

蓝蝶无刷新聊天室

<SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">

Sub Application_onStart
dim c_info(240)
c_info(0)=1
for i=1 to 240
c_info(i)=""
next
Application("c_info")=c_info
Application("c_Lid")=0
End sub

Sub Application_onEnd
End sub

Sub Session_onStart
End sub

Sub Session_onEnd
End sub

</Script>