<%
dim jhname
dim jhdj
jhname=session("cwjh_name")
jhdj=Session("cwjh_jhdj")
if jhname<>application("cwjh_user") then
if jhname="" or jhdj<bbs_add_dj then
	response.write "<script Language=Javascript>alert('警告：等级不够["&bbs_add_dj&"]或者你没有登陆！');location.href = 'javascript:history.go(-1)';</script>"
	response.end
end if
if Instr(LCase(Application("cwjh_useronlinename"&session("nowinroom")))," "&LCase(jhname)&" ")=0 then
	Response.Write "<script Language=Javascript>alert('警告：请先登陆聊天室！');location.href = 'javascript:history.go(-1)';</script>"
	Response.End
end if
end if
%>