<%'============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2008-3-22 13:28 ' ADD:wap.nowtx.cn ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %> <%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("

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

聊天室还没有开放呢，联系您的群组主人开放吧！" '群组主人权限 if abs(adminzone)=abs(bbsid) then Response.write "
开通聊天室" end if Response.write "
返回上级" response.write"

" response.end end if ID=rs("id") rs.close set rs=nothing conn.close set conn=nothing %>

马上进入群聊
如不能正常跳转请点击链接