<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Charset="utf-8"%>
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/Md5.asp"-->
<!--#include file="../manage/lockyou.asp"-->
<!--#include file="../Include/VoteMb.asp"-->
<link rel="stylesheet" href="../Images/CssVote.css">

<%
	dim rs,sql,ipclock,Loginhits,MemName,numbers,memclock,EndTime,interval,equantum,current_time,ProdId
	dim id,LoginSoft,LoginTime,uname,httpnet,ComeUrl,Sgent,Agent,ip,renid,action
	
    LoginSoft=Request.ServerVariables("Http_USER_AGENT")
	httpnet=trim("http://" &request.ServerVariables("HTTP_HOST")&"/") 
	ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER"))) 
    Agent =lcase(left(ComeUrl,instrrev(ComeUrl,"/")))
    Sgent =lcase(left(httpnet,instrrev(httpnet,"/")))
    uname=trim(Request.Form("uname"))
    id=Request.Form("id")
	renid=Request.Form("renid")
	action=Request.Form("action")

	if request("Action")="ving" then
	if session("CheckCode")<>request("CheckCode") then
   response.write "<script language=javascript> alert('您输入验证码错误，请返回重新输入！');history.back();</script>"
   response.end
	end if
	if  request.Cookies("Ameaving")=id then
   response.write "<script language=javascript> alert('你已对此项投票成功！请选择其它的选项，不要刷票！');history.back();</script>"
   response.end
   else
	response.write "<br><br><br><form id='form1' name='form1' method='post' action='?ucing=iucing'>"
	response.write "<input type='hidden' name='uname' value='"&uname&"'/>"
	response.write "<input type='hidden' name='SID' value='"&id&"'/>"
	response.write "<input type='hidden' name='renid' value='"&renid&"'/>"
	response.write "<input type='submit' name='Submit' value='确认评选，进入下一步！' />"
	response.write "</form>"
	end if
	end if
	
	if request("ucing")="iucing" then
%>
	<div align="center">
	  <input type="image" name="imageField" src="../Images/456.jpg" />
	</div>
		<%
		end if
    if request("reging")="ireging" then

  	if OK<>AAA&BBB&CCC THEN	
	Response.Write "<script>alert('对不起，认证码输入错误');history.go(-1);</Script>"
	Else

	end if
   response.write "<script language=javascript> alert('感谢您宝贵的一票，谢谢您对我的支持！');location.replace('AmvoteView.asp?ID="&SID&"');</script>"
	end if
	end if
   set rs=nothing 
%>
