global1.asa

大型语音聊天软件

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
sub Application_OnStart
Application("vchat_name")="中国之窗语音聊天室"
Application("vchat_inchat")=0
Application("vchat_message")=""
Application("vchat_title")="欢迎光临中国之窗语音聊天室"
dim user_online(100)
for i=1 to 100
user_online(i)=""
next
Application("vchat_online")=user_online
End sub
</SCRIPT>

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
session("vchat_user")=""
session("vchat_pass")=""
session("vchat_in")=0
session("vchat_ip")=Request.ServerVariables("REMOTE_ADDR")
Application("vchat_inchat")=Application("vchat_inchat")+1
End sub
</SCRIPT>

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnEnd
End sub
</SCRIPT>


<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnEnd
End sub
</SCRIPT>