<%Response.Buffer=true response.expires=0 myname=Session("myname") myid=Session("myid") if myid="" or myname="" then response.redirect "." application.lock call get_guests call get_maxuser set rsparam=conn.execute("select * from param") if myname=guests(myid,0) AND Session("mytemp")=guests(myid,1) and guests(myid,4)<>rsparam("superlevel") then sql="SELECT exp_num,user_level,out_info,out_time FROM user WHERE username='" & myname & "'" set Rs=conn.Execute(sql) if not (Rs.eof or Rs.bof) then exp_num=Rs("exp_num")+datediff("n",Rs("out_time"),now()) ' if exp_num>300*3^(guests(myid,4)-1) then guests(myid,4)=guests(myid,4)+1 if guests(myid,4)-10<0 then if exp_num>rsparam("exp"&(guests(myid,4)+1)) then guests(myid,4)=guests(myid,4)+1 if (Rs("user_level")-guests(myid,4))>0 then guests(myid,4)=Rs("user_level") if Rs("out_info")=4 and Rs("out_time")>now() then out_info=4 out_time=Rs("out_time") else out_info=0 out_time=now() end if conn.Execute("UPDATE user SET s_color="&request("sc")&",n_color="&request("mc")&",out_time='"&out_time&"',out_info="&out_info&",user_level="&guests(myid,4)&",exp_num="&exp_num&" WHERE username='"&myname&"'") del_time=dateAdd("d",-8,now()) conn.Execute("DELETE FROM user WHERE visit_num<2 AND datediff('s',out_time,'"&del_time&"')>0 and not saved") del_time=dateAdd("d",-31,now()) conn.Execute("DELETE FROM user WHERE visit_num>1 AND datediff('s',out_time,'"&del_time&"')>0 and not saved") room_id=guests(myid,5) conn.Execute("UPDATE room SET room_time='"&now()&"' WHERE ID="&room_id) call get_says guests(myid,0)="" if guests(MaxUser,0)="" and MaxUser>0 then MaxUser=MaxUser-1 say_id=says(current,0)+1 current=current+1 if current>MaxTalk then current=0 mess="'【再见】##依依不舍地推门而去！','"&myname&"','',0,'blue','#000099',-2,'"&time()&"'," says(current,0)=say_id says(current,1)=myname says(current,2)="大家" says(current,3)=false says(current,4)=room_id says(current,5)=mess call put_guests call put_maxuser call put_says end if end if application.unlock Session.Abandon Session("Leave")=true response.redirect "."%>