2.6版本Global.asa 内容说明

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

'应用程序启动模块
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("YQ1")=710 '最高运气设置，若为650，则老虎、闪电等大运气将不会出现
　Application("num0")=10000 '运气指数，注意 2.3版本与以前版本的运气指数不一样了。当然还是数字越大，运行越少
　Application("num1")=0.1 '泡点指数
　Application("num2")=180 '赛马每场间隔时间
　Application("num3")=2000 '牢房放人钱数
　Application("num4")=100 '投骰子每场间隔时间
　Application("num5")=5000 '赛马、投骰子最大下注数，建议设置小于此数
　Application("MaxGF")=500 '最大的攻防值
　Application("DianXue")=100 '点穴需要用的内力
　Application("DianXueWg")=25 '点穴需要的武功等级
　Application("JieXueWg")=100 '解穴需要的武功等级
　Application("YaoYan")=300 '发谣言需要的武功
　Application("DenJi")=20 '每多少级武功增加1点的运气(成功)值
　Application("Title")=30 '发主题字幕（千里传音）的等级
　Application("register")=true '是否允许增加记录
　Application("message")="<b>为了您帐号的安全，建议您经常更换密码与修改姓名。</b>" '聊天室内的通告
　Application("table")="<table border=1 width=95% cellpadding=0 cellspacing=0 bordercolotlight=#008000 ordercolordark=#ffffff bordercolorlight=#008080 bordercolordark=#FFFFFF style='line-height: 130%'>" '每个表格的定义
　Application("tr1")="<tr bgcolor=#99ccff align=center>" '每个表格第一行的定义
　Application("tr2")="<tr bgcolor=ffcccc>" '每个表格第二行起的定义
　MaxTalk=30 '最大的聊天记录数
　MaxUser=80 '每个聊天室的最多人数
　Room=3 '聊天室数
　Application("Room")=Room
　Application("MaxTalk1")=MaxTalk '第一室聊天记录数
　Application("MaxTalk2")=MaxTalk '第二室
　Application("MaxTalk3")=MaxTalk '第三室
　Application("MaxUser1")=MaxUser '第一室最大聊天人数
　Application("MaxUser2")=MaxUser '第二室（可以不一样）
　Application("MaxUser3")=50 '第三室（例：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(MaxUser,6) '在线人员记录
　application("Guest1")=guest '第一室在线人员记录
　application("Guest2")=guest '第二室
　redim guest(50,6)
　application("Guest3")=guest '第三室（例：50人，请注意前17行的定义）
　application("chatpos1")=0 '第一室聊天记录指针
　application("chatpos2")=0 '第二室
　application("chatpos3")=0 '第三室
　dim lh
　redim lh(3)
　Application("LaoHu")=lh
End sub

'用户会话启动
Sub Session_OnStart
　Session.Timeout=10 '超时时间（分）
　Session("init")=true
　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>