<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%call head()
call saycardd("编辑聊天室")
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")
idi=rs("pid")
ids=rs("roomadmin")
txt=rs("title")
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"聊室名称<br/>"
if saytk>1 then
Response.write "<form name=""form"" method=""post"" action=""chataddcl.asp?sid="&sid&"&amp;saytk="&saytk&""">"
response.write"<input name=""nam"" title='聊室名称' value='"&nam&"'/><br/>"
response.write"聊室主题<br/>"
response.write"<input name=""txt"" title='聊室主题' value='"&txt&"'/><br/>"
response.write"管理ID(多个用,分开)<br/>"
response.write"<input name=""ids"" value="""&ids&"""/><br/>"
response.write"显示顺序:<input name=""idi"" title='显示顺序' format='*N' maxlength='6' value="""&idi&""" size='2' emptyok='false'/><br/>"
response.write "<input type=""hidden"" name=""id"" value="""&ID&"""/>"
response.write "<input type=""hidden"" name=""tp"" value=""1""/>"
response.write "<input type=""submit"" name=""Submit"" value=""确定提交""></form><br/>"
else
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"管理ID(多个用,分开)<br/>"
response.write"<input name=""ids"&tt&""" value="""&ids&"""/><br/>"
response.write"显示顺序:<input name=""idi"&tt&""" title='显示顺序' format='*N' maxlength='6' value="""&idi&""" size='2' emptyok='false'/><br/>"
response.write"<anchor>[确定提交]<go href='chataddcl.asp?sid="&sid&"&amp;saytk="&saytk&"' method='post' accept-charset='utf-8'>"
response.write"<postfield name='nam' value='$(nam"&tt&")'/>"
response.write"<postfield name='idi' value='$(idi"&tt&")'/>"
response.write"<postfield name='txt' value='$(txt"&tt&")'/>"
response.write"<postfield name='ids' value='$(ids"&tt&")'/>"
response.write"<postfield name='ID' value='"&ID&"'/>"
response.write"<postfield name='TP' value='1'/>"
response.write"</go></anchor><br/>"end if
response.write"<a href=""chatdel.asp?id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&""">[删除聊室]</a>"

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

%><!--#include file="fanhui.asp"-->
<%response.write""
call headsay()%>
