📄 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -