<!--#include file="inc_const.asp"-->
<%response.expires=0
Response.CacheControl = "Private"
application.lock

set cschat=server.createobject("ffcschat.cssbchat")
my_level=cschat.getLevel(Session,Application(ConstStr & "_user_list"),Application(ConstStr & "_room_list"))

application.unlock

if  my_level-application( ConstStr & "_superlevel")<>0 then response.end

Set Conn=Server.CreateObject("ADODB.Connection")
conn.open Application( ConstStr & "_connstr")

alias=request("alias")
if alias="" then response.end
sql="select * from sysparam where alias='"&alias&"'"
set rs=conn.Execute(sql)
if rs.eof or rs.bof then
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 response.end
end if

if request("cmdYes")="确认" then
  newbody=replace(replace(replace(trim(request("body")),chr(13),""),chr(10),""),"'","")
  errText="<font color=green>操作成功</font>：你成功地修改了系统参数！"
  sql="update sysparam set body='"&newbody&"' where alias='"&alias&"' and ID>6"
  conn.Execute(sql)
  application.lock
  application( ConstStr & "_"&alias)=newbody
  application.unlock
  response.redirect("showerr.asp?errtext="&errtext)
else%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="chat.css">
<style>u{color:red}</style>
<body style="background-color:EAF2FF;color:112233;scrollbar-Base-Color: #b0d8ff;SCROLLBAR-DARKSHADOW-COLOR:#b0d8ff;SCROLLBAR-arrow-COLOR:#336699;SCROLLBAR-TRACK-COLOR: EAF2FF;SCROLLBAR-3DLIGHT-COLOR: #b0d8ff;SCROLLBAR-SHADOW-COLOR: #336699;SCROLLBAR-HIGHLIGHT-COLOR: #b0d8ff;" leftmargin=3 topmargin=20 >
  <table width=400 align=center cellspacing=0 cellpadding=0 border=1 BORDERCOLORLIGHT=#000000 BORDERCOLORDARK=#ffffff>
  <tr><td class=navy1>修改聊天室系统参数</td></tr>
 <form name="setnewvalue" action="setnewvalue.asp" method="post">
 <input type=hidden name="alias" value="<%=alias%>">
 <tr><td height=30 style="text-align:left"><u>参数说明</u>:<%=rs("guidetxt")%>
  <tr><td height=100 style="text-align:left">修改参数:<font color=990000>[<u>错误的参数修改将导致聊天室系统不可用！</u>]</font><BR>
  <textarea rows="5" name="body" cols="50"><%=server.HTMLEncode(rs("body"))%></textarea>
  <tr><td height=40><input class=navy1 type="submit" name="cmdYes" value="确认" >
    <input class=navy1 type="reset" name="cmdClear" value="清除">
    </td></tr></form><tr><td><ul><li><u>☆</u>请不要在参数修改中提交<u>'</u>、<u>"</u>、<u>\</u>、<u>换行</u>等特殊字符<u>☆</u>
    <li><u>☆</u>除<u>内存最大发言数</u>以外的参数在修改后自动作用，<u>内存最大发言数</u>修改后需修正聊天室。</table><tr<td><br><center>[<a href='javascript:history.go(-1)'>后退</a>]</table></body></html>
<%end if%><%
conn.close
set conn=nothing%>











