<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq.asp"-->
<card id="main" title="编辑聊天室" ><p>
<%
dim nam,idi,txt,ids
ID=request("ID")

if ID="" or IsNumeric(ID)=False then
  Call Error("聊天室ID无效！")
  end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from chat where ID="&id,conn,1,1
if rs.eof then
  Call Error("不存在的聊天室！")
  end if
nam=rs("roomname")
roomadmin=rs("roomadmin2")
txt=rs("title")
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"聊室名称<br/>"
response.write"<input name=""nam"&tt&""" title='聊室名称' value='"&nam&"'/><br/>"
response.write"聊室主题<br/>"
response.write"<input name=""txt"&tt&""" title='聊室主题' value='"&txt&"'/><br/>"
response.write"密码(不能为0)<br/>"
response.write"<input name=""roomadmin"&tt&""" value="""&roomadmin&"""/><br/>"
response.write"<anchor>[确定提交]<go href='chataddcl.asp?saytk="&saytk&"&amp;sid="&sid&"' method='post' accept-charset='utf-8'>"
response.write"<postfield name='nam' value='$(nam"&tt&")'/>"
response.write"<postfield name='txt' value='$(txt"&tt&")'/>"
response.write"<postfield name='roomadmin' value='$(roomadmin"&tt&")'/>"
response.write"<postfield name='ID' value='"&ID&"'/>"
response.write"<postfield name='TP' value='1'/>"
response.write"</go></anchor><br/>"
response.write"<a href=""chatdel.asp?id="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">[删除聊室]</a>"

response.write"<br/><a href=""chat.asp?saytk="&saytk&"&amp;sid="&sid&""">[聊吧管理]</a>"

%><!--#include file="../fanhui.asp"-->
</p></card>
</wml>