1.?线投系统???ͶƱϵͳԴ??

????ͶƱϵͳԴ??

       <%

       function getIP()

        getIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

        If getIP = "" Then getIP = Request.ServerVariables("REMOTE_ADDR")

       end function

       if Request.Cookies("mycookie")("userip")<>"" then

        Response.Write "<script>alert('一个IP地址只能投一次票，谢谢您的票系outlook 源码参与！');history.go(-1);</script>"

        response.End()

       else

        Response.Cookies("mycookie")("userip")=getIP()

        Response.Cookies("mycookie").Expires=date+

       end if

       %>

       把以上代码放在你投票页的统源投票kppw 3.3 源码前面就行了