<%@ LANGUAGE=VBScript codepage ="936" %><%Response.Expires=0
Response.Buffer=true
cwjh_name=Session("cwjh_name")
cwjh_grade=Session("cwjh_grade")
cwjh_jhdj=Session("cwjh_jhdj")
if cwjh_name="" then Response.Redirect "../error.asp?id=440"
if session("cwjh_adminok")<>true then Response.Redirect "../chat/readonly/bomb.htm"
if cwjh_grade<>10 or instr(Application("cwjh_admin"),cwjh_name)=0  then Response.Redirect "../error.asp?id=439"
if cwjh_name<>Application("cwjh_user") then Response.Redirect "../error.asp?id=486"
%>
<!--#include file="../const4.asp"-->
<html>
<head>
<title>系统参数</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=css/css.css type=text/css rel=stylesheet>
</head>
<body bgColor=#dcdec6 text=#000000 link=#003366 vLink=#006666>
<%if not request.form("set")="ok" then%>
<div align="center"> 【聊天室进入信息】</div>
<hr noshade size="1" color=009900>
<b>［提示］</b>注意，所有参数必填不可为空，此处的标点符号一定要用全角字符。
<a href="javascript:history.go(0)">刷新</a> 
<hr noshade size="1" color=009900>
<form name="form1" method="post" action="">
<input type="text" name="cwjh_userinto1" value="<%=cwjh_userinto1%>" size=80>
//小虾<br>
<input type="text" name="cwjh_userinto2" value="<%=cwjh_userinto2%>" size=80>
//大虾<br>
<input type="text" name="cwjh_userinto3" value="<%=cwjh_userinto3%>" size=80>
//会员<br>
<input type="text" name="cwjh_userinto4" value="<%=cwjh_userinto4%>" size=80>
//贵宾<br>
<input type="text" name="cwjh_userinto5" value="<%=cwjh_userinto5%>" size=80>
//长老<br>
<input type="text" name="cwjh_userinto6" value="<%=cwjh_userinto6%>" size=80>
//掌门<br>
<input type="text" name="cwjh_userinto7" value="<%=cwjh_userinto7%>" size=80>
//花状元<br>
<input type="text" name="cwjh_userinto8" value="<%=cwjh_userinto8%>" size=80>
//恶人<br>
<input type="text" name="cwjh_userinto9" value="<%=cwjh_userinto9%>" size=80>
//财神<br>
<input type="text" name="cwjh_userinto10" value="<%=cwjh_userinto10%>" size=80>
//盟主<br>
<input type="text" name="cwjh_userinto11" value="<%=cwjh_userinto11%>" size=80>
//官府<br>
<input type="text" name="cwjh_userinto12" value="<%=cwjh_userinto12%>" size=80>
//站长<br><BR>
<font color=red><b>标点符号一定要用全角，##表示登陆人信息[包括ID和等级]，%%表示登陆人姓名！</b></font>
<br><br>
<input type="submit" name="Submit" value="修改设置">
<input type="hidden" name="set" value="ok">
</p>
</form>
</body>
</html>
<%
response.end
else
call setconst()
end if
sub setconst()
%>
<!--#include file="chkform.asp"-->
<%
writeStr=writeStr & "'*****************聊天室进入信息*********************"& chr(13) & chr(10)
writeStr=writeStr & "cwjh_userinto1="&""""& request.form("cwjh_userinto1")&""""& chr(13) & chr(10)
writeStr=writeStr & "cwjh_userinto2="&""""& request.form("cwjh_userinto2")&""""& chr(13) & chr(10)
writeStr=writeStr & "cwjh_userinto3="&""""& request.form("cwjh_userinto3")&""""& chr(13) & chr(10)
writeStr=writeStr & "cwjh_userinto4="&""""& request.form("cwjh_userinto4")&""""& chr(13) & chr(10)
writeStr=writeStr & "cwjh_userinto5="&""""& request.form("cwjh_userinto5")&""""& chr(13) & chr(10)
writeStr=writeStr & "cwjh_userinto6="&""""& request.form("cwjh_userinto6")&""""& chr(13) & chr(10)
writeStr=writeStr & "cwjh_userinto7="&""""& request.form("cwjh_userinto7")&""""& chr(13) & chr(10)
writeStr=writeStr & "cwjh_userinto8="&""""& request.form("cwjh_userinto8")&""""& chr(13) & chr(10)
writeStr=writeStr & "cwjh_userinto9="&""""& request.form("cwjh_userinto9")&""""& chr(13) & chr(10)
writeStr=writeStr & "cwjh_userinto10="&""""& request.form("cwjh_userinto10")&""""& chr(13) & chr(10)
writeStr=writeStr & "cwjh_userinto11="&""""& request.form("cwjh_userinto11")&""""& chr(13) & chr(10)
writeStr=writeStr & "cwjh_userinto12="&""""& request.form("cwjh_userinto12")&""""& 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 "提交成功"
if IsObjInstalled("Scripting.FileSystemObject") then
toppath = Server.Mappath("../const4.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权限，新的const4.asp已自动生成")
</script>
<%
else
%>
<script>
alert("您的服务器不支持FSO权限，请手工拷贝代码覆盖const4.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 
%>