<%Response.Buffer=true response.expires=0 dim varr redim varr(3) varr(0)="管理员选举[周]" varr(1)="升级奖励[周]" varr(2)="升级奖励[10天]" varr(3)="升级奖励[15天]" set rsparam=conn.execute("select * from param") for i=0 to 3 set rs=conn.execute("select * from vote where votename='"&varr(i)&"' and exp_num<>1") if i<2 then daynum=6 else daynum=i*5-1 end if if not (rs.eof or rs.bof) then if (DATEDIFF("d",rs("begin_time"),now())>(daynum-1) and rs("begin_time")=rs("end_flag")) or (DATEDIFF("d",rs("begin_time"),now())>daynum and rsparam("envoteauto") ) then Response.Redirect("tpinit.asp") response.end end if end if next myid=Session("myid") myname=Session("myname") call get_guests my_level=0 if myid="" or myname="" then elseif myname=guests(myid,0) and Session("mytemp")=guests(myid,1) then my_level=guests(myid,4) call get_votes if (votes(0)<>0 and votes(1)=myname) then my_level=1 end if set rs=conn.execute("select * from vote where exp_num<>1")%>
<%if not (rs.eof or rs.bof) then%> <%do while not rs.eof%> <%rs.movenext loop%> <%else%> <%end if%>
当前所有投票事件
投票事件开始时间投票资格已投票结束时间开/关<%if my_level-rsparam("lvote")>=0 then%>管理<%end if%>
<%=rs("votename")%><%=rs("begin_time")%><%=rs("exp_num")%><%if rs("exp_num")<10 then%>级<%else%>点<%end if%> <%=rs("votenum")%><%if rs("begin_time")=rs("end_flag") then%>未定<%else%><%=rs("end_flag")%><%end if%><%if rs("begin_time")=rs("end_flag") or datediff("s",rs("end_flag"),now())<0 then%>开放<%else%>停止<%end if%> <%if my_level-rsparam("lvote")>=0 then if rs("begin_time")=rs("end_flag") or datediff("s",rs("end_flag"),now())<0 then%> ">终止 <%else%> ">删除 <%end if end if%>

当前无任何投票事件


[后退]<%if my_level-rsparam("lvote")>=0 then%> [投票管理检查]　[产生投票事件]<%end if%>

自动结束投票结束前可看到状态。
投过票的聊友将奖励经验值20点。
如果投票给最多的人赞成的选项，
非自动结束投票会再奖经验20点。