<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
cwjh_name=Session("cwjh_name")
cwjh_grade=Session("cwjh_grade")
cwjh_jhdj=Session("cwjh_jhdj")
nowinroom=session("nowinroom")
useronlinename=Application("cwjh_useronlinename"&nowinroom)
if Instr(LCase(useronlinename),LCase(" "&Session("cwjh_name")&" "))=0 then 
	Session("cwjh_inthechat")="0" 
	Response.Redirect "chaterr.asp?id=001" 
end if 
webicqname=Application("cwjh_webicqname")
For i = 1 to Application("SayCount")-Session("SayCount")
Response.Write Application("SayStr"&YuShu((Session("SayCount")+i)))
Next
session("SayCount")=Application("SayCount")
Function Yushu(a)
Yushu=(a and 31)
End Function
Response.Write "<script Language=JavaScript>"
Response.Write "setTimeout('this.location.reload();',6000);"
if Instr(webicqname," "&cwjh_name&" ")>0 then
Application("cwjh_webicqname")=replace(Application("cwjh_webicqname"),cwjh_name,"")
Response.Write "window.open('webicqread.asp','','Status=no,scrollbars=yes,resizable=no,width=430,height=160');"
end if
Response.Write "</script>"
%>