<%Response.Buffer=true response.expires=0 myid=Session("myid") myname=Session("myname") call get_guests set rsparam=conn.execute("select * from param") if myid="" or myname="" then my_level=0 elseif myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then my_level=0 else my_level=guests(myid,4) call get_votes if (votes(0)<>0 and votes(1)=myname) then my_level=1 end if act=request("act") if guests(myid,4)=rsparam("superlevel") then myname="聊天室管理员" if my_level-rsparam("lvote")<0 then errstr="你的级别太低了！" elseif act<>"终止" and act<>"删除" then errstr="你想进行什么操作？" else votename=trdb(request("name")) set rs=conn.execute("select * from vote where votename='"&votename&"' and exp_num<>1") if rs.bof or rs.eof then errstr="你所选取的投票事件不存在！" else errstr="你成功地"&act&"了投票事件〖"&votename&"〗！" conn.Execute("INSERT INTO record (occ_env,occ_time,for_what) VALUES ('"&myname&" "&act&"了投票事件 《"&votename&"》 ！','"&now()&"','此处只作记录，不需要理由！')") if act="终止" then conn.execute("UPDATE vote SET end_flag='"&now()&"' WHERE votename='"&votename&"' and exp_num<>1") set rs1=conn.execute("select max(votenum) as maxnum from vote where votename='"&votename&"' and exp_num=1") if rs1("maxnum")>0 then set rs2=conn.execute("select voted_user from vote where votename='"&votename&"' and exp_num=1 and votenum="&rs1("maxnum")) do while not rs2.eof voted_user=replace(trim(rs2("voted_user"))," ","','") conn.execute("UPDATE user SET exp_num=exp_num+20 WHERE username in ('"&voted_user&"')") rs2.movenext loop end if else conn.execute("delete from vote WHERE votename='"&votename&"'") end if end if end if call echoerr(errstr,"tpxt.asp")%>