<!--#include file="globalop.asp"--><!--#include file="dbfunc.asp"-->
<%Response.Buffer=true
response.expires=0
votename=trdb(request("name"))
sel_op=trdb(request("sel_op"))
set rs=conn.execute("select * from vote where votename='"&votename&"' and voteoptions='"&sel_op&"'")
errstr=""
if rs.eof or rs.bof then
  errstr="投票事件不存在或你提交的候选为非法！"
else
  set rs=conn.execute("select * from vote where votename='"&votename&"' and exp_num<>1")
  if rs("begin_time")<>rs("end_flag") and datediff("s",rs("end_flag"),now())>0 then
    Response.Redirect("tpjg.asp?name="&votename)
    response.end
  else
    myid=Session("myid")
    myname=Session("myname")
    application.lock
    call get_guests
    if myid="" or myname="" then
      errstr="你尚未进入聊天室！"
    elseif myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then
      errstr="你尚未进入聊天室！"
    elseif instr(rs("voted_user"),myname&" ")<>0 then
      errstr="你已经投过票了！"
    else
      set rs1=conn.execute("select * from user where username='"&myname&"'")
      if DATEDIFF("s",rs1("log_time"),rs("begin_time"))<0 then
        errstr="你是投票事件产生后才注册的用户！"
      elseif rs("exp_num")<10 and rs1("user_level")<rs("exp_num") then
        errstr=rs("exp_num")&"级及以上用户才有投票的资格！"
      elseif rs("exp_num")>10 and rs1("exp_num")<rs("exp_num") then
        errstr="经验值"&rs("exp_num")&"点及以上用户才有投票的资格！"
      end if
    end if
  end if
end if
if errstr="" then
  conn.execute("UPDATE vote SET votenum=votenum+1,voted_user=voted_user&'"&myname&" ' WHERE votename='"&votename&"' and voteoptions='"&sel_op&"'")
  conn.execute("UPDATE vote SET votenum=votenum+1,voted_user=voted_user&'"&myname&" ' WHERE votename='"&votename&"' and exp_num<>1")
  conn.execute("UPDATE user SET exp_num=exp_num+20 WHERE username='"&myname&"'")
  errstr="你成功地投出了一票！"
end if
call echoerr(errstr,"tpxt.asp")
application.unlock%>