不存在的记录！") 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("

系统没有配置！") end if chatjb=rs("chatjb") rs.close set rs=nothing %>

<% 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 response.write"聊室名称
" response.write"
" response.write"聊室主题
" response.write"
" response.write"[确定开通]" response.write"" response.write"" response.write"
" Response.write "
返回群组"%>
注：1.聊天室标题不容许带色|情六|合性质文字。
2.开通聊天室需支付<%=chatjb%><%=getcent%>