<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq.asp"-->


<%call head()
Call saycarda("自建聊天室")

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from Chat Where roomadmin2<>0  order by id desc",conn,1,1
If Not rs.eof Then

if Instr(","&rs("roomadmin")&",",","&myid&",") > 0 then
  Call Error("一个会员只可以建立一个聊天室！")
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
call xlanlj("chataddcl.asp?saytk="&saytk&"&amp;sid="&sid&"")
response.write"聊室名称<br/>"
response.write"<input name='nam' title='聊室名称'/><br/>"
response.write"聊室主题<br/>"
response.write"<input name='txt' title='聊室主题'/><br/>"
response.write"密码(可以留空)<br/>"
response.write"<input name='roomadmin' value=''/><br/>"
if saytk>1 then
call xlanlj1("确定添加")
else
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)'/>"
response.write"<postfield name='roomadmin' value='$(roomadmin)'/>"
response.write"<postfield name='txt' value='$(txt)'/>"
response.write"</go></anchor><br/>"
end if
response.write"<br/><a href=""index.asp?saytk="&saytk&"&amp;sid="&sid&""">[聊吧大厅]</a>"%>
<br/>注：1.自建聊天室标题不容许带色|情六|合性质文字。<br/>2.聊天室2个小时内无人在线,自动注消<br/>3.密码选择不添时为公开聊室。
<!--#include file="../fanhui.asp"-->
<%
call headsay()
%>
