不太明白的，我也在学习的，嘿嘿。。。

\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

Const UserTF=1         '是否只允许会员投票 1是 0否
Const UserIPTF=0       '是否一个IP只允许投一票 1是 0否
Const UserGroup="0"    '允许投票的会员组，多个会员组请用,号隔开，不想限制请输入0

我是6.5版的，，没有“Const UserIPNum=28     Const SameVote=1  ”这两项呀，还有办法吗？不想升级     

只下载8.0的Vote.asp,上传后能用，，，，但还是不能解决我的问题。。我不想限制IP，局域网上有许多用户要投票，不能限制，，，，我只想限制同一个注册用户不能刷票，，，

允许一个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