<%option explicit%>
<!--#include file="inc_const.asp"-->
<%response.expires=0
Response.CacheControl = "Private"
application.lock
dim cschat,errText,myname
set cschat=server.createobject("ffcschat.cssbchat")
cschat.ConstStr=ConstStr
errText=cschat.changeroom(application,session,request)
myname=cschat.myname
set cschat=nothing
response.write "<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'><META content='text/html; charset=gb2312' http-equiv=content-type>"
if errText<>"" then
  response.write "<SCRIPT>parent.addsay(-1,'¡¾»»·¿¡¿"&errtext&"','','"&myname&"',0,'990066','',-2,'"&time()&"')</script>"
else
  response.write "<script>window.open('init.asp','refresh')</script>"
end if%>