<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq.asp"-->
<%Call head()
dim bbsid,chatname
bbsid=trim(request.QueryString("bbsid"))
if isnumeric(bbsid)=False then bbsid=0
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select id from ydbbs where id="&bbsid,conn,1,1
if rs.eof then
  Call Error("<card  title=""温馨提示""><p>不存在的记录！")
  end if
rs.close
set rs=nothing
dim chatjb
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select chatjb from twapp where id=1",conn,1,1
if rs.eof then
  Call Error("<card  title=""温馨提示""><p>系统没有配置！")
  end if
chatjb=rs("chatjb")
rs.close
set rs=Nothing
Call saycarda("开通帮派聊天室")
%>

<%
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from Chat Where gruid="&bbsid&"  order by id desc",conn,1,1
If Not rs.eof Then
rs.close
set rs=nothing
  Call Error("帮派聊天室已开放了！")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
if saytk=>2 then
	Response.write "<form name=""form"" method=""post"" action=""gruchataddcl.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"
end if
response.write"聊室名称<br/>"
response.write"<input name='nam' title='聊室名称'/><br/>"
response.write"聊室主题<br/>"
response.write"<input name='txt' title='聊室主题'/><br/>"
if saytk=>2 then
%>
<input type="submit" name="Submit" value="确认开通"></form><br/><%

else
response.write"<anchor>[确定开通]<go href='gruchataddcl.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&"' method='post' accept-charset='utf-8'>"
response.write"<postfield name='nam' value='$(nam)'/>"
response.write"<postfield name='txt' value='$(txt)'/>"
response.write"</go></anchor><br/>"
end if
   Response.write "<br/><a href=""../board.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">返回帮派</a>"%>
<br/>注：1.聊天室标题不容许违法性质文字。<br/>2.开通聊天室需支付<%=chatjb%><%=getcent%>
<!--#include file="../fanhui.asp"-->
<%Call headsay()%>