<%@ 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="../paodian.asp"-->
<html>
<head>
<title>系统参数</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href='../css.css' type=text/css rel=stylesheet>
</head>
<body>
<%if not request.form("set")="ok" then%>
<div align="center"> 【泡点设置】</div>
<hr noshade size="1" >
<b>［提示］</b>注意，所有参数必填不可为空，不可以用全角字符输入参数。
<a href="javascript:history.go(0)">刷新</a> 
<hr noshade size="1" >
<form name="form1" method="post" action="">
<input type="text" name="zhbg_paofen" value="<%=zhbg_paofen%>">
泡分时加的内力值(武功为zhbg_paofen/2)<br>
<input type="text" name="zhbg_paofencd" value="<%=zhbg_paofencd%>">
泡分时加的存点，此值不要太高，否则国度大乱！<br>
<input type="text" name="zhbg_paofenyin" value="<%=zhbg_paofenyin%>">
泡分时的银两：zhbg_paofen*zhbg_paofenyin=<%=zhbg_paofen*zhbg_paofenyin%><br>
<input type="text" name="hy1" value="<%=hy1%>">
一级会员泡分倍数<br>
<input type="text" name="hy2" value="<%=hy2%>">
二级会员泡分倍数<br>
<input type="text" name="hy3" value="<%=hy3%>">
三级会员泡分倍数<br>
<input type="text" name="hy4" value="<%=hy4%>">
四级会员泡分倍数<br>
<input type="text" name="hy5" value="<%=hy5%>">
五级会员泡分倍数<br>
<input type="text" name="paodian" value="<%=paodian%>">
泡点会员的倍数<br><br>
<input type="submit" name="Submit" value="修改设置">
<input type="hidden" name="set" value="ok">降原来的 paodian.asp 文件覆盖。
</p>
</form><br>
您也可以直接修改根目录下的 paodian.asp 文件。
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
<%
response.end
else
call setconst()
end if
sub setconst()
%>
<!--#include file="chkform.asp"-->
<%
writeStr=writeStr & "'*****************存点设置*********************"& chr(13) & chr(10)
writeStr=writeStr & "zhbg_paofen="& request.form("zhbg_paofen")&"      '泡分时加的内力值(武功为zhbg_paofen/2)"& chr(13)& chr(10)
writeStr=writeStr & "zhbg_paofencd="& request.form("zhbg_paofencd")&"      '泡分时加的存点，此值不要太高，否则国度大乱！"& chr(13) & chr(10)
writeStr=writeStr & "zhbg_paofenyin="& request.form("zhbg_paofenyin")&"      '泡分时的银两：zhbg_paofen*zhbg_paofenyin"& chr(13) & chr(10)
writeStr=writeStr & "hy1="& request.form("hy1")&"      '一级会员泡分倍数"& chr(13) & chr(10)
writeStr=writeStr & "hy2="& request.form("hy2")&"      '二级会员泡分倍数"& chr(13) & chr(10)
writeStr=writeStr & "hy3="& request.form("hy3")&"      '三级会员泡分倍数"& chr(13) & chr(10)
writeStr=writeStr & "hy4="& request.form("hy4")&"      '四级会员泡分倍数"& chr(13) & chr(10)
writeStr=writeStr & "hy5="& request.form("hy5")&"      '五级会员泡分倍数"& chr(13) & chr(10)
writeStr=writeStr & "paodian="& request.form("paodian")&"      '泡点会员泡分倍数"& chr(13) & chr(10)
writeStr=writeStr & "'*********************************************************"
%>
<%
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("../paodian.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权限，新的paodian.asp已自动生成")
</script>
<%
else
%>
<script>
alert("您的服务器不支持FSO权限，请手工拷贝代码覆盖paodian.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 
%>