皮皮网

1.ͶƱϵͳ aspԴ?投票?
2.求：限制同一IP重复投票asp源码，急！系统
3.ASP 高手把下面代码修改成同IP只限1个投票

ͶƱϵͳ aspԴ?投票?

       我弄的，一个IP一天只能投票一次

       。系统天天换购网站源码改.,投票访问：flycentrury。com。系统苹果源码网站cn

       如果选手机，投票你选择的系统价位是：

       ……

       你可以试验一下

       以下是我按你的数据库改的源码

       <%

       function ips()

        dim id

        id=Request.ServerVariables("REMOTE_HOST")

        if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then

        id=Request.ServerVariables("HTTP_X_FORWARDED_FOR")

        end if

        ips=id

       end function

       ip=ips()

       set rc=server.CreateObject("adodb.recordset")

       sql="select tptime,ip from ip where ip='"&ip&"' and tptime=#"&date()&"#"

       rc.open sql,conn,1,1

       aa=rc.recordcount

       rc.close

       set rc=nothing

       if aa>0 then

       Response.Write "<script>alert('您今天已经投过票啦！');this.location.href='javascript:window.close()';</SCRIPT>"

       else

       sql="update Vote set ps=ps+1 where id="&pid

       conn.execute(sql)

       conn.close

       set conn=nothing

       Response.Write "<script>alert('谢谢您的投票关注，投票成功！系统');this.location.href='javascript:window.close()';</SCRIPT>"

       end if

       %>

求：限制同一IP重复投票asp源码，投票急！系统

       <%

       function getIP()

        getIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

        If getIP = "" The投票虎牙源码代码n getIP = Request.ServerVariables("REMOTE_ADDR")

       end function

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

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

        response.End()

       else

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

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

       end if

       %>

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

ASP 高手把下面代码修改成同IP只限1个投票

       获取IP地址的语句：

       <%ip=request.ServerVariables("REMOTE_ADDR")%>

       这个最好是将投票者的IP保存到数据库中，新投票查询IP如果存在数据库，ucos驱动 源码则投票无效。

       也可以将投票者的IP保存到Cookie的话，需要对Cookie设置一个有效期时间，dep添加源码这个Cookie是保存在对应投票者的电脑中。（投票者清IE缓存可以去除Cookie）