《武林正传》Global.asa 内容说明

'号后面的内容是说明部分

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
sub Application_OnStart
Application("xajh_name")="站名" '定义站点名
Application("Start_time")=now() '启动时间
Application("CountDate")=now() '统计时间
Application("user_active")=0 '活动人数
Application("Sn")="TYG-XAJH-序列号" '序列号
Application("Count")=0 '访问人数
Application("Sn0")="注册码" '注册码
Application("Sn1")="认证码" '认证码
Application("dbs")="数据库定义" '数据库联接定义
Application("YQ")=10000 '聊天室运气数量
Application("YQ1")=330 '聊天室运气指数
Application("PaoDian")=0.1 '聊天室每秒增加银两
Application("DuJin")=5000 '娱乐场最大下注数
Application("ShuRen")=2000 '牢房放人的钱数
Application("DianXue")=50 '点穴使用的内力
Application("Title")=50 '发主题武功
Application("DenJi")=30 '偷钱时武功与成功率
Application("XiuLian")=7200 '修练武功需要的时间（秒）
Application("JinYan")=100 '升级武功的经验值
Application("message")="为了您帐号的安全，建议您经常更换密码与修改姓名。"
Application("register")=true '是否允许注册新号
Application("Tag")="1" '新注册帐号是否需要站长审批
Application("table")="<table border=1 width=95% cellpadding=1 cellspacing=0>"
Application("tr1")="<tr bgcolor=#99ccff align=center>"
Application("tr2")="<tr bgcolor=ffcccc>"
Room=3 '聊天室数
Application("Room")=Room
Application("MaxTalk1")=50 '一室聊天记录数
Application("MaxTalk2")=50 '二室聊天记录数
Application("MaxTalk3")=50 '三室……
Application("MaxUser1")=100 '一室玩家数
Application("MaxUser2")=60 '二室……
Application("MaxUser3")=50 '三室……
dim RoomOnline
redim RoomOnline(Room) '各室在线人数
for i=0 to Room
RoomOnline(i)=0
next
Application("RoomOnline")=RoomOnline
dim chats
redim chats(MaxTalk,8)
application("chats1")=chats '一室聊天记录
application("chats2")=chats '二室……
application("chats3")=chats '三室……
dim guest
redim guest(100,6)
application("Guest1")=guest '一室玩家记录
redim guest(60,6)
application("Guest2")=guest '二室玩家记录
redim guest(50,6)
application("Guest3")=guest '三室玩家记录
application("chatpos1")=0 '一室聊天记录指针
application("chatpos2")=0 '二室……
application("chatpos3")=0 '三室……
dim lh
redim lh(3)
Application("LaoHu")=lh
dim ips
redim ips(30)
Application("IPS")=ips '封锁IP记录
Application("IPP")=0
Application("XJ")=0
End sub

Sub Session_OnStart
Session.Timeout=10
Application.Lock
Application("user_active")=Application("user_active")+1
Application("Count")=Application("Count")+1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application("user_active")=Application("user_active")-1
Application.UnLock
End sub

Sub Application_OnEnd
End sub
</SCRIPT>