<%Response.Expires=0
Response.Buffer=true
zhbg_id=Session("zhbg_id")
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"

wupinid=clng(Request("wupinid"))
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
sqlstr="select * from r where id="&wupinid
rs.open sqlstr,conn
if rs.EOF or rs.BOF then
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Write "<script Language=Javascript>alert('提示：没有你要操作的房间，请刷新！');location.href = 'javascript:history.go(-1)';</script>"
	response.end
end if
%><head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href='../css.css' type=text/css rel=stylesheet>
<title>修改房间资料</title></head>
<body text="#000000"  link="#0000FF" vlink="#0000FF" alink="#0000FF">
<div align="center"><font color="#000000" size="2"><a href="http://www.oneidc.cn/" target="_blank">非凡国度</a>房间修改程序！</font> </div>
<form method="post" action="modiroomok.asp">
  <table border="1" cellspacing="1" align="center" cellpadding="0" bordercolor="#000000"
bgcolor="#cccccc" width="75%">
    <tr> 
      <td width="67"> 
        <div align="center"><font color="#FFFFFF" size="2">ID</font></div>
      </td>
      <td width="197"><font color="#FFFFFF" size="2"> <%=rs("id")%> </font> 
        <input type="hidden" name="id" value="<%=rs("id")%>" size="15" maxlength="20">
      </td>
      <td width="81"> 
        <div align="center"><font size="2" color="#FFFFFF">房间名</font></div>
      </td>
      <td width="224"><font color="#FFFFFF" size="2"> 
        <input type="text" name="name"
value="<%=rs("a")%>" size="15" maxlength="20">
        </font></td>
    </tr>
    <tr> 
      <td width="67"> 
        <div align="center"><font color="#FFFFFF" size="2">最大人数</font></div>
      </td>
      <td width="197"><font color="#FFFFFF" size="2"> 
        <input type="text" name="zdrs"
value="<%=rs("b")%>" size="15" maxlength="3">
        </font></td>
      <td width="81" nowrap> 
        <div align="center"><font color="#FFFFFF" size="2">发招限制</font></div>
      </td>
      <td width="224"><font color="#FFFFFF" size="2"> 
        <select name=fzxz size=1 >
          <option value='0' <%if rs("f")=0 then%>selected<%end if%>>允许</option>
          <option value='1' <%if rs("f")=1 then%>selected<%end if%>>禁止</option>
        </select>
        </font></td>
    </tr>
    <tr> 
      <td width="67" nowrap> 
        <div align="center"><font color="#FFFFFF" size="2">事件限制</font></div>
      </td>
      <td width="197"><font color="#FFFFFF" size="2"> 
        <select name=sjxz size=1 >
          <option value='0' <%if rs("g")=0 then%>selected<%end if%>>允许</option>
          <option value='1' <%if rs("g")=1 then%>selected<%end if%>>禁止</option>
        </select>
        </font></td>
      <td width="81"> 
        <div align="center"><font color="#FFFFFF" size="2">保护</font></div>
      </td>
      <td width="224"><font color="#FFFFFF" size="2"> 
        <select name=bh size=1 >
          <option value='0' <%if rs("h")=0 then%>selected<%end if%>>允许</option>
          <option value='1' <%if rs("h")=1 then%>selected<%end if%>>禁止</option>
        </select>
        </font></td>
    </tr>
    <tr> 
      <td width="67"> 
        <div align="center"><font color="#FFFFFF" size="2">卡片</font></div>
      </td>
      <td width="197"><font color="#FFFFFF" size="2"> 
        <select name=kp size=1 >
          <option value='0' <%if rs("i")=0 then%>selected<%end if%>>允许</option>
          <option value='1' <%if rs("i")=1 then%>selected<%end if%>>禁止</option>
        </select>
        </font></td>
      <td width="81"> 
        <div align="center"><font size="2" color="#FFFFFF">赌博</font></div>
      </td>
      <td width="224"><font color="#FFFFFF" size="2"> 
        <select name=db size=1 >
          <option value='0' <%if rs("j")=0 then%>selected<%end if%>>允许</option>
          <option value='1' <%if rs("j")=1 then%>selected<%end if%>>禁止</option>
        </select>
        </font></td>
    </tr>
    <tr> 
      <td width="67"> 
        <div align="center"><font color="#FFFFFF" size="2">限制</font></div>
      </td>
      <td><font color="#FFFFFF" size="2"> 
        <select name=xz size=1 >
          <option value='0' <%if rs("c")=0 then%>selected<%end if%>>允许[加入此房间无限制]</option>
          <option value='1' <%if rs("c")=1 then%>selected<%end if%>>禁止[加入此房间有限制]</option>
        </select>
        </font></td>
		<td><font color="#FFFFFF" size="2"> pk允许时间</font></td>
      <td><font color="#FFFFFF" size="2"> <input type="text" name="pksj"
value="<%=rs("l")%>" size="6" maxlength="3">分钟(0到60，0为禁止动武)</font></td>
    </tr>
    <tr> 
      <td width="67"> 
        <div align="center"><font color="#FFFFFF" size="2">限制说明</font></div>
      </td>
      <td colspan="3"><font color="#FFFFFF" size="2"> 
        <input type="text" name="xzsm"
value="<%=rs("d")%>" size="50">
        </font></td>
    </tr>
    <tr> 
      <td width="67"> 
        <div align="center"><font size="2" color="#FFFFFF">表达式</font></div>
      </td>
      <td colspan="3"><font color="#FFFFFF" size="2"> 
        <input type="text" name="bds"
value="<%=rs("e")%>" size="50">
        <br>
        可以使用：and、or、not、+、-、=等表达式请对应条件连接！<br>
        对于编程不了解者不可随意修改！(ID为1主聊天不要加限制！) </font></td>
    </tr>
    <tr> 
      <td width="67" height="2"> 
        <div align="center"><font size="2" color="#FFFFFF">今日话题</font></div>
      </td>
      <td colspan="3" height="2"><font color="#FFFFFF" size="2"> 
        <input type="text" name="jrht"
value="<%=rs("k")%>" size="50" maxlength="150">
        (在进入国度时是会显示的)</font></td>
    </tr>
    <tr> 
      <td colspan="4"> 
        <div align="center"> 
          <input type="submit" value="确 定" name="submit">
          <font color="#CCCCCC">------- </font> 
          <input  onClick="javascript:window.document.location.href='roomlist.asp'" value="返 回" type=button name="back">
        <br>
确定后，别忘了重新启动国度，否则无法生效</div>
      </td>
    </tr>
  </table>
</form>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
<div align="center"> <font color="#FFFFFF" size="2">数据库更新程序因为时间有限，没有加入为空值时的检测，请大家更改时注意没有值的地方填0</font></div>