<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.Buffer=true
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../error.asp?id=440"
if session("zhbg_adminok")<>true then Response.Redirect "../chat/readonly/bomb.htm"
if zhbg_grade<>10 or instr(Application("zhbg_user"),zhbg_name)=0  then Response.Redirect "../error.asp?id=439"
if zhbg_name<>Application("zhbg_adminuser") then Response.Redirect "../chat/readonly/bomb.htm"
%>
<!--#include file="../config.asp"-->
<html>
<head>
<title>系统参数</title>
<LINK href='../css.css' type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%if not request.form("set")="ok" then%>
<div align="center"> 【系统参数】</div>
<hr noshade size="1">
<b>［提示］</b><font color="#FFFFFF">1、如果您要修改里面的内容，最好从国度程序根目录下的“CONFIG.ASP ”文件中修改。里面都有备注说明。<br>
修改最简单的打开方式[纪事本]打开修改。然后上传到空间覆盖原文件（修改前最好备份一份）。然后“重新启动”国度程序，就会立即生效！</font><br>
2、注意，所有参数必填不可为空，不可以用全角字符输入参数。<br>

<a href="javascript:history.go(0)">刷新</a> 
<hr noshade size="1"><br>

<form name="form1" method="post" action="">

<p><font color=red>************ 国度其它参数***********</font><br>
<input type="text" name="zhbg_chatbgcolor" value="<%=Application("zhbg_chatbgcolor")%>">'聊天室背景颜色代码<br>
<input type="text" name="zhbg_chatimage" value="<%=Application("zhbg_chatimage")%>">'聊天室外部边框图片<br>
<input type="text" name="zhbg_chatcolor" value="<%=Application("zhbg_chatcolor")%>">'聊天室文字区背景色<br>
<input type="text" name="zhbg_iplocktime" value="<%=Application("zhbg_iplocktime")%>">'锁IP时间<br>
<input type="text" name="zhbg_maxtimeout" value="<%=Application("zhbg_maxtimeout")%>">
泡点超时时间，不要设置太长，否则拖累服务器[xx分钟]<br>
<input type="text" name="zhbg_onlinekill" value="<%=Application("zhbg_onlinekill")%>">
聊天大厅动武人限，低于此人数，禁止动武<br>
<input type="text" name="zhbg_kptime" value="<%=Application("zhbg_kptime")%>">
聊天大厅用卡时间限制，每小时前xx分钟<br>
<input type="text" name="zhbg_maxnpc" value="<%=Application("zhbg_maxnpc")%>">
npc总在线人数<br>
<input type="text" name="zhbg_npcwp" value="<%=application("zhbg_npcwp")%>">
npc暴涨比较值[建议不要改动]<br>
<input type="text" name="zhbg_npcff" value="<%=application("zhbg_npcff")%>">
npc发放需要的等级[管理级,建议用默认10级管理]<br>
<input type="text" name="zhbg_baowuyin" value="<%=Application("zhbg_baowuyin")%>">
每一级修练宝物所得到的银两<br>
<input type="text" name="zhbg_baowuxl" value="<%=Application("zhbg_baowuxl")%>">
每次修练的级数，如100级的需修练4次！他所得到的上限就是4！这个值是用战斗等级取整的！<br>
<input type="text" name="zhbg_killman" value="<%=Application("zhbg_killman")%>">
国度一天的杀人数，夺宝一次算一次杀人<br>
<input type="text" name="shuaxin_time" value="<%=Application("shuaxin_time")%>">
聊天室防刷新时间为xx秒<br>
<input type="text" name="zhbg_wgsx" value="<%=zhbg_wgsx%>">
每升一级的武功加值,此值当zhbg_sx=1时才有作用<br>
<input type="text" name="zhbg_nlsx" value="<%=zhbg_nlsx%>">
每升一级的内力加值,此值当zhbg_sx=1时才有作用<br>
<input type="text" name="zhbg_tlsx" value="<%=zhbg_tlsx%>">
每升一级的体力加值,此值当zhbg_sx=1时才有作用<br>
<input type="text" name="zhbg_gjsx" value="<%=zhbg_gjsx%>">
每升一级的攻击加值,此值当zhbg_sx=1时才有作用<br>
<input type="text" name="zhbg_fysx" value="<%=zhbg_fysx%>">
每升一级的防御加值,此值当zhbg_sx=1时才有作用<br>
<input type="text" name="zhbg_flsx" value="<%=zhbg_flsx%>">
每升一级的攻击加值,此值当zhbg_sx=1时才有作用<br>
<input type="text" name="zhbg_qgsx" value="<%=zhbg_qgsx%>">
每升一级的防御加值,此值当zhbg_sx=1时才有作用<br>
<input type="hidden" name="zhbg_chat_maxpeople" value="<%=Application("zhbg_chat_maxpeople")%>" readonly>
<p><font color=red>************ 国度开关设置***********</font><br>
<input type="text" name="zhbg_closedoor" value="<%=Application("zhbg_closedoor")%>">
聊天室关门,0为开门,1为关门<br>
<input type="text" name="zhbg_disproxy" value="<%=Application("zhbg_disproxy")%>">
是否禁止使用代理服务器,1为限制,0为允许<br>
<input type="text" name="zhbg_yjdh" value="<%=Application("zhbg_yjdh")%>">
是否限制一机多号,1为限制,0为不限制<br>
<input type="text" name="zhbg_ifnpc" value="<%=Application("zhbg_ifnpc")%>">
NPC开关，1为开,0为关闭<br>
<input type="text" name="zhbg_baowu" value="<%=Application("zhbg_baowu")%>">
是否有宝物当为0时没有宝物！宝物出现是会影响聊天室速度的，服务器不好关闭！<br>
<input type="text" name="zhbg_sx" value="<%=zhbg_sx%>">
zhbg_sx=是否有上限0没有上限，1有上限<br>
<input type="text" name="zhbg_dongtai" value="<%=Application("zhbg_dongtai")%>">
是否显示动态广告，0为关，1为开，具体见：chat/gg.js文件内容<br>
<input type="text" name="zhbg_automanname" value="<%=Application("zhbg_automanname")%>">
聊神名称设置<br>
<input type="text" name="zhbg_userout" value="<%=Application("zhbg_userout")%>">
退出聊天室的信息(注意里面的"一定要为全角字符)<br>
<input type="text" name="zhbg_dieip" value="<%=zhbg_dieip%>">
ip永久封锁使用前按格式书写，多个用;号隔开,后面请保留有分号<br>
<input type="text" name="zhbg_baowuname" value="<%=Application("zhbg_baowuname")%>">
宝物名及宝物说明<br>
<input type="text" name="zhbg_baowusm" value="<%=Application("zhbg_baowusm")%>">
得到宝物后的消息 <br>
<hr noshade size="1">
<p><font color=red>************ 国度系统设置***********</font><br>
<input type="text" name="zhbg_chatroomname" value="<%=Application("zhbg_chatroomname")%>"> 本国度名称<br>
<input type="text" name="zhbg_homepage" value="<%=Application("zhbg_homepage")%>"> 国度域名，必须填写真实网址，防止盗链<br>
<input type="hidden" name="zhbg_sn" value="<%=Application("zhbg_sn")%>" readonly>
<input type="text" name="zhbg_qq" value="<%=Application("zhbg_qq")%>"> 站长qq<br>
<input type="text" name="zhbg_email" value="<%=Application("zhbg_email")%>">
站长email<br>
<input type="text" name="zhbg_user" value="<%=Application("zhbg_user")%>"> 国度站长,可以多人<br>
<input type="text" name="zhbg_admin" value="<%=Application("zhbg_admin")%>">
允许进入的10管理员(最好设置一人)<br>
<input type="text" name="hidden_admin" value="<%=Application("hidden_admin")%>">
隐身的管理员名字如：张三,李四<br>
<input type="text" name="zhbg_slbox" value="<%=Application("zhbg_slbox")%>">
可以查看私聊的人如：张三,李四<br>
<input type="text" name="zhbg_admin_send" value="<%=Application("zhbg_admin_send")%>">
财神爷，多个用|和|隔开，后面也要保留|<br>
<input type="text" name="zhbg_guibin" value="<%=Application("zhbg_guibin")%>">
国度贵宾(贵宾不参与任何国度恩怨)，多个用|和|隔开，后面也要保留|<br>
<input type="text" name="zhbg_adminuser" value="<%=Application("zhbg_adminuser")%>">
后台管理账号，只能设置一人！<br>
<input type="password" name="zhbg_adminkey" value="<%=Application("zhbg_adminkey")%>">
后台管理密码</p>
<p> 
<input type="submit" name="Submit" value="修改设置">
<input type="hidden" name="set" value="ok">
</p>
</form>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
<%
response.end
else
call setconst()
end if
sub setconst()
%>
<!--#include file="chkform.asp"-->
<%
'*************************************************************
'*以下为国度系统设置请按自己的需要设置，设置前最好备份一下原文件！*
'*************************************************************
writeStr=writeStr & "Application("&""""&"zhbg_chatbgcolor"&""""&")=" &"""" & request.form("zhbg_chatbgcolor")& """"&"      '聊天室背景颜色代码"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_chatimage"&""""&")=" &"""" & request.form("zhbg_chatimage")& """"&"      '聊天室外部边框图片"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_chatcolor"&""""&")=" &"""" & request.form("zhbg_chatcolor")& """"&"      '聊天室文字区背景色"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_iplocktime"&""""&")="& request.form("zhbg_iplocktime")&"      '锁IP时间"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_maxtimeout"&""""&")="& request.form("zhbg_maxtimeout")&"      '泡点超时时间，不要设置太长"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_onlinekill"&""""&")="& request.form("zhbg_onlinekill")&"      '聊天大厅动武人限，低于此人数，禁止动武"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_kptime"&""""&")="& request.form("zhbg_kptime")&"      '聊天大厅用卡时间限制，每小时前xx分钟，不能超过60"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_maxnpc"&""""&")="& request.form("zhbg_maxnpc")&"      'npc总在线人数"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_npcwp"&""""&")="& request.form("zhbg_npcwp")&"      'npc暴涨比较值"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_npcff"&""""&")="& request.form("zhbg_npcff")&"      'npc发放需要的等级（管理级）"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_baowuyin"&""""&")="& request.form("zhbg_baowuyin")&"      '每一级修练所得到的银两"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_baowuxl"&""""&")="& request.form("zhbg_baowuxl")&"      '每次修练的级数，如100级的需修练4次！他所得到的上限就是4！这个值是用战斗等级取整的"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_killman"&""""&")="& request.form("zhbg_killman")&"      '国度一天的杀人数，夺宝一次算一次杀人"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"shuaxin_time"&""""&")="& request.form("shuaxin_time")&"      '聊天室防刷新时间为xx秒"& chr(13) & chr(10)
writeStr=writeStr & "zhbg_wgsx="&request.form("zhbg_wgsx")&"      '每升一级的武功加值,此值当zhbg_sx=1时才有作用"&chr(13)&chr(10)
writeStr=writeStr & "zhbg_nlsx="&request.form("zhbg_nlsx")&"      '每升一级的内力加值,此值当zhbg_sx=1时才有作用"&chr(13)&chr(10)
writeStr=writeStr & "zhbg_tlsx="&request.form("zhbg_tlsx")&"      '每升一级的体力加值,此值当zhbg_sx=1时才有作用"&chr(13)&chr(10)
writeStr=writeStr & "zhbg_gjsx="&request.form("zhbg_gjsx")&"      '每升一级的攻击加值,此值当zhbg_sx=1时才有作用"&chr(13)&chr(10)
writeStr=writeStr & "zhbg_fysx="&request.form("zhbg_fysx")&"      '每升一级的防御加值,此值当zhbg_sx=1时才有作用"&chr(13)&chr(10)
writeStr=writeStr & "zhbg_flsx="&request.form("zhbg_flsx")&"      '每升一级的攻击加值,此值当zhbg_sx=1时才有作用"&chr(13)&chr(10)
writeStr=writeStr & "zhbg_qgsx="&request.form("zhbg_qgsx")&"      '每升一级的防御加值,此值当zhbg_sx=1时才有作用"&chr(13)&chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_chat_maxpeople"&""""&")="& request.form("zhbg_chat_maxpeople")&"      '国度最大人数限制"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_closedoor"&""""&")="& request.form("zhbg_closedoor")&"      '聊天室关门，1为关门"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_disproxy"&""""&")="& request.form("zhbg_disproxy")&"      '是否禁止使用代理服务器,1为限制,0为允许"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_baowu"&""""&")="& request.form("zhbg_baowu")&"      '是否有宝物当为0时没有宝物！宝物出现是会影响聊天室速度的，服务器不好关闭！"& chr(13) & chr(10)
writeStr=writeStr & "zhbg_sx="&request.form("zhbg_sx")&"      'zhbg_sx=是否有上限0没有上限，1有上限"&chr(13)&chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_dongtai"&""""&")="&request.form("zhbg_dongtai")&"      '是否显示动态广告，具体见：chat/gg.js文件内容！"&chr(13)&chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_yjdh"&""""&")="& request.form("zhbg_yjdh")&"      '是否限制一机多号,1为限制,0为不限制"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_ifnpc"&""""&")="& request.form("zhbg_ifnpc")&"      'NPC开关,1为开,0为关"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_automanname"&""""&")=" &"""" & request.form("zhbg_automanname")& """"&"      '聊神名称设置"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_userout"&""""&")=" &"""" & request.form("zhbg_userout")& """"&"      '退出时聊天室显示的信息"& chr(13) & chr(10)
writeStr=writeStr & "zhbg_dieip=" &"""" & request.form("zhbg_dieip")& """"&"      'ip永久封锁使用前按格式书，多个用分号隔开，后面请保留有分号"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_baowuname"&""""&")=" &"""" & request.form("zhbg_baowuname")& """"&"      '宝物名及宝物说明"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_baowusm"&""""&")=" &"""" & request.form("zhbg_baowusm")& """"&"      '宝物在聊天室中显示信息"& chr(13) & chr(10)
writeStr=writeStr & "'***************************************************"& chr(13) & chr(10)
writeStr=writeStr & "'*以下国度管理设置，切记不要改错，否则无法正常运行 *"& chr(13) & chr(10)
writeStr=writeStr & "'***************************************************"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_chatroomname"&""""&")=" &"""" & request.form("zhbg_chatroomname")& """"&"      '本国度名称"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_homepage"&""""&")=" &"""" & request.form("zhbg_homepage")& """"&"      '国度主页，必须填写真实网址，防止盗链"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_sn"&""""&")=" &"""" & request.form("zhbg_sn")& """"&"      '国度序列号，正版标志，修改后后果自负"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_user"&""""&")=" &"""" & request.form("zhbg_user")& """"&"      '国度站长,可以多人"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_qq"&""""&")=" &"""" & request.form("zhbg_qq")& """"&"      '站长qq"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_email"&""""&")=" &"""" & request.form("zhbg_email")& """"&"      '站长email"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_admin"&""""&")=" &"""" & request.form("zhbg_admin")& """"&"      '设置10级聊管(最好设置一人)"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"hidden_admin"&""""&")=" &"""" & request.form("hidden_admin")& """"&"      '隐身人员，多个用半角逗号隔开"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_slbox"&""""&")=" &"""" & request.form("zhbg_slbox")& """"&"      '可以查看私聊的人，多个用半角逗号隔开"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_admin_send"&""""&")=" &"""" & request.form("zhbg_admin_send")& """"&"      '财神爷，多个用|和|隔开"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_guibin"&""""&")=" &"""" & request.form("zhbg_guibin")& """"&"      '国度贵宾(贵宾不参与任何国度恩怨)，多个用|和|隔开"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_adminuser"&""""&")=" &"""" & request.form("zhbg_adminuser")& """"&"      '站长管理用户名,只能设置一人!"& chr(13) & chr(10)
writeStr=writeStr & "Application("&""""&"zhbg_adminkey"&""""&")=" &"""" & request.form("zhbg_adminkey")& """"&"      '站长管理密码"& chr(13) & chr(10)
writeStr=writeStr & "'*********************************************************"& chr(13) & chr(10)
writeStr=writeStr & "'*如果要设置广告内容请见：chat/jhchat.asp文件开始处"& chr(13) & chr(10)
writeStr=writeStr & "'*泡分的点数可以由自己设置，详见：paodian.asp文件开始处"& chr(13) & chr(10)
writeStr=writeStr & "'修改招式等级修改chat/sjfunc/czdj.asp"
%>
<%
tpstr=replace(writestr,chr(13) & chr(10) ,"<br>")
tpstr="&lt;%<br>" & tpstr & "<br>%&gt;"
writestr="<" & "%" & chr(13) & chr(10) & writestr & chr(13) & chr(10) & "%" & ">"
response.write tpstr
if IsObjInstalled("Scripting.FileSystemObject") then
toppath = Server.Mappath("../config.asp")
Set fs = CreateObject("Scripting.FileSystemObject")
If Not Fs.FILEEXISTS(toppath) Then 
Set Ts = fs.createtextfile(toppath, True)
Ts.close
end if
Set Ts= Fs.OpenTextFile(toppath,2)
Ts.writeline (writeStr)
Ts.Close
Set Ts=Nothing
Set Fs=Nothing
%>
<script>
alert("您的服务器支持FSO权限，新的config.asp已自动生成")
</script>
<%
else
%>
<script>
alert("您的服务器不支持FSO权限，请手工拷贝代码覆盖config.asp中原来的代码")
</script>
<%
end if
end sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
Function rrstr(str)
str="|" & str & "|"
str=replace(str,"||","|")
rrstr=str
End Function 
%>