<%response.expires=0 application.lock myid=Session("myid") if myid="" then response.end call get_guests call get_votes call get_says call get_maxuser say_id=says(current,0)+1 set rsparam=conn.execute("select * from param") newsay="" if votes(0)>1 then if (votes(2)-votes(3))>3 and ((votes(2)/votes(4))>0.4 or votes(2)>9) then for i=0 to MaxUser if guests(i,0)<>"" and guests(i,0)=votes(1) then if votes(0)=2 and guests(i,4)<>rsparam("superlevel") then guests(i,4)=1 guests(i,9)=0 elseif votes(0)=3 then guests(i,0)="" end if exit for end if next if votes(0)=2 then out_time=dateAdd("n",60,now()) out_info=4 addstr="" conn.Execute("UPDATE user SET out_info="&out_info&",out_time='"&out_time&"' WHERE username='"&votes(1)&"'") if (votes(2)/votes(4))>0.6 and votes(2)>14 then conn.Execute("UPDATE user SET user_level=user_level-1 WHERE username='"&votes(1)&"' and user_level<"&rsparam("superlevel")) addstr=votes(1)&" 的级别被降了一级，" end if occ_env="「在线提议」 大家 弹劾 "&votes(1)&"("&votes(7)&") 成功，"&addstr&"Yeah ！" newsay="'【弹劾】在线提议弹劾%%成功，"&addstr&"Ｖ！','大家','"&votes(1)&"'" elseif votes(0)=3 then out_time=dateAdd("n",3,now()) out_info=5 occ_env="「在线提议」 大家 把 "&votes(1)&"("&votes(7)&") 请出了聊天室" newsay="'【踢人】激犯众怒的%%被请出了聊天室，Ｖ！','大家','"&votes(1)&"'" conn.Execute("UPDATE user SET out_info="&out_info&",out_time='"&out_time&"' WHERE username='"&votes(1)&"'") end if conn.Execute("INSERT INTO record (occ_env,occ_time,for_what) VALUES ('"&occ_env&"','"&now()&"','"&votes(8)&"')") votes(0)=0 elseif ((votes(3)-votes(2))>3 and (votes(3)/votes(4))>0.4) or datediff("s",votes(5),now())>120 or (votes(2)+votes(3))/votes(4)>0.8 then votes(0)=0 newsay="'【系统】由于没有足够的人同意处罚%%，提议被取消！','大家','"&votes(1)&"'" elseif datediff("s",votes(5),now())>60 and votes(6) then if votes(0)=2 then newsay="'【提议】有人以理由〖"&votes(8)&"〗提议弹劾管理员"&votes(1)&"！请你点击：[同意]，[不同意]？','大家','大家'" elseif votes(0)=3 then newsay="'【提议】有人以理由〖"&votes(8)&"〗提议把请出聊天室"&votes(1)&"！请你点击：[同意]，[不同意]？','大家','大家'" end if votes(6)=false end if end if if newsay<>"" then current=current+1 if current>MaxTalk then current=0 says(current,0)=say_id says(current,1)="大家" says(current,2)="大家" says(current,3)=false says(current,4)=-2 says(current,5)=newsay&",0,'green','red',-4,'"&time()&"'," end if call put_guests call put_says call put_votes application.unlock if request("form")="form" then Response.Redirect("votestat.asp")%>