<%Response.Buffer=true response.expires=0 myname=Session("myname") myid=Session("myid") application.lock call get_guests set rsparam=conn.execute("select * from param") if myid="" or myname="" then out_info=0 else sql="SELECT out_info,out_time FROM user WHERE username='" & myname & "'" set Rs=conn.Execute(sql) if Rs.eof or Rs.bof then out_info=0 else if Rs("out_info")=4 and Rs("out_time")>now() then out_info=4 out_time=Rs("out_time") else out_info=Rs("out_info") out_time=now() end if if myname=guests(myid,0) and Session("mytemp")=guests(myid,1) and datediff("n",guests(myid,11),now())>rsparam("nosaytime") and guests(myid,4)<>rsparam("superlevel") then guests(myid,0)="" if out_info<>4 then out_info=3 conn.Execute("UPDATE user SET out_info="&out_info&",out_time='"&out_time&"' WHERE username='"&myname&"'") room_id=guests(myid,5) conn.Execute("UPDATE room SET room_time='"&now()&"' WHERE ID="&room_id) call get_says say_id=says(current,0)+1 current=current+1 if current>MaxTalk then current=0 mess="'【默哀】潜水过久的##不幸沉入海底！','"&myname&"','大家',0,'#000099','#990000',-2,'"&time()&"'," says(current,0)=say_id says(current,1)="大家" says(current,2)="大家" says(current,3)=false says(current,4)=room_id says(current,5)=mess call put_guests call put_says end if end if application.unlock end if Session.Abandon Session("Leave")=true select case out_info case "0" errText="你还没有进入到聊天室！可能原因：
①掉线 ②相同名字替代 ③重新初始化。" case "1" errText="你掉线了，和聊天室失去了联系！" case "2" errText="有人使用了和你一样的名字，你被替代出来了！" case "3" errText="你超过50分钟不说话，沉入海底了！" case "4" errText="你目前处于被弹劾状态！" case "5" errText="你被赶出聊天室了！" case else errText="你的帐号被封锁了！" end select errText=errText&"

如果你在登录聊天室的时候出现此页面

请删除浏览器临时文件再重试。
" call echoerr("错误："&errText,"default.asp")%>