账号通
    

账号  

密码  

2823

查看

9

回复
主题:图片投票,,怎么让用户投票时不能一直对同一张图刷票 [收藏主题] 转到:  
jnxfylzx 当前离线

569

主题

6

广播

4

粉丝
添加关注
级别:五年级

用户积分:4558 分
登录次数:550 次
注册时间:2007/6/21
最后登录:2018/5/17
jnxfylzx 发表于:2011/10/22 11:58:17   | 显示全部帖子 查看该作者主题 楼主 
做在线知识付费 选科汛云开店

\Item\Vote.asp中设置

Const UserTF=0         '是否只允许会员投票 1是 0否
Const UserIPNum=28      '每个IP最多投票数,0不限制 3表示限制3票
Const SameVote=1       'UserIPNum如果设置大于0时,是否允许投在同一个选项上,0不允许,1允许
Const UserGroup="0"    '允许投票的会员组,多个会员组请用,号隔开,不想限制请输入0

 
<a href=http://www.jncourt.gov.cn/ target=_blank>做站有点辛苦啊!</a>, <a href=http://www.jncourt.gov.cn/ target=_blank>做站有点辛苦啊!</a>
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
jnxfylzx 当前离线

569

主题

6

广播

4

粉丝
添加关注
级别:五年级

用户积分:4558 分
登录次数:550 次
注册时间:2007/6/21
最后登录:2018/5/17
jnxfylzx 发表于:2011/10/22 14:59:43   | 显示全部帖子 查看该作者主题 沙发 
做在线知识付费 选科汛云开店

允许一个IP允许多投,又不让反复刷票,加个投票间隔时间限制一下,按你的文件参考下边

Sub Vote()

If UserTF=1 and LoginTF=False Then

    Response.Write "<script>alert('对不起,只有登录会员才能投票!');history.back(-1);</script>"

    Response.End()

End If

if Request.Cookies("LastTime") <>"" then

    Response.Write "<script>alert('两分钟内仅能为一位选手投票,谢谢您参与');history.back();</script>"

    Response.End()    //跳转到查看投票结果的网页



    else

    Response.Cookies("LastTime") = now()

    Response.Cookies("LastTime").Expires = dateadd("S",120,now())   //红色这块可以改时间限制,这个是定义的每次投票间隔120秒。另外服务器上的时间必须准。

    end if

if UserGroup<>"0" and KS.FoundInArr(UserGroup, KSUser.GroupID, ",")=False Then

    Response.Write "<script>alert('对不起,您所在的会员组不允许投票!');history.back(-1);</script>"

    Response.End()

End If



If UserIPTF=1 and not Conn.Execute("Select TOP 1 ID From KS_PhotoVote Where UserIp='" & KS.GetIP & "' and ChannelID=" & ChannelID & " And ClassID='" & ClassID & "'").eof  Then

    Response.Write "<script>alert('对不起,您已投过票,不能再投!');history.back();</script>"

    Response.End()

End If

 
&lt;a href=http:&#47;&#47;www.jncourt.gov.cn&#47; target=_blank&gt;做站有点辛苦啊!&lt;&#47;a&gt;, &lt;a href=http:&#47;&#47;www.jncourt.gov.cn&#47; target=_blank&gt;做站有点辛苦啊!&lt;&#47;a&gt;
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.08203秒 powered by KesionCMS 9.0