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

<%call head()





dim bbsid
  bbsid=trim(request.querystring("bbsid"))
if bbsid="" or IsNumeric(bbsid)=False then
  Call Error("ID无效！")
  end if

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

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select id from chat where gruid="&bbsid,conn,1,1
if rs.eof then

Call saycarda("进入失败")
response.write"聊天室还没有开放呢，联系您的帮派主人开放吧！"
'帮派主人权限
if abs(adminzone)=abs(bbsid) then
   Response.write "<br/><a href=""chat/gruchatadd.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">开通聊天室</a>"
end if
   Response.write "<br/><a href=""board.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">返回上级</a>"
Call headsay()
response.end
  end if
ID=rs("id")
rs.close
set rs=nothing
conn.close
set conn=Nothing
Call cardz("进入家族聊室","chat/chatroom.asp?id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&"")
%>


<a href="chat/chatroom.asp?id=<%=id%>&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>">马上家族聊室</a><br/>
<%Call headsay()%>