账号通
    

账号  

密码  

3520

查看

2

回复
主题:[求助](已解决)为什么论坛的投票帖子有IP限制?怎么解决? [收藏主题]  
perfect643 当前离线

22

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:43 分
登录次数:24 次
注册时间:2010/9/6
最后登录:2012/5/25
perfect643 发表于:2010/12/1 12:37:29   | 显示全部帖子 查看该作者主题 楼主 
科汛在线网校系统

我们实验室的网站使用的是科讯7.0正式版的,非常感谢!

因为实验室都是公用同一个ip,在论坛发起的投票结果只能投1票了,请问怎么解决这个问题?有设置的地方吗?



刚发完帖子就找到解决的方法了,方法是:



找到一下文件:\Club\ajax.asp,用代码编辑器打开,记事本也行。找到下面代码,将第3行开始的内容全部注释掉就行了。('××××××就是注释)



  1.     Dim IPNum:IPNum=KS.ChkClng(RS("IpNum"))

  2.     Dim IPNums:IPNums=RS("IPNums")
  3.    'If IpNums<>0 Then    // 为解决一个ip只能投票1次的方法
  4.    '  If Conn.Execute("Select Count(ID) From KS_PhotoVote Where UserIp='" & KS.GetIP & "' and ChannelID=-1 And InfoID='" & ID & "'")(0)>=IPNums  Then
  5.    '  RS.Close:Set RS=Nothing
  6.          '     KS.Die Escape("对不起,每个IP最多只能投" & IPNums & "次!")
  7.          '     End If
  8.    ' End If
  9.    ' If IpNum<>0 Then
  10.    '  If Conn.Execute("Select Count(ID) From KS_PhotoVote Where Year(VoteTime)=" & Year(Now) & " and Month(VoteTime)=" & Month(Now) & " and Day(VoteTime)=" & Day(Now) & " and UserIp='" & KS.GetIP & "' and ChannelID=-1 And InfoID='" & ID & "'")(0)>=IPNum  Then
  11.    '  RS.Close:Set RS=Nothing
  12.          '     KS.Die Escape("对不起,每个IP一天最多只能投" & IPNum & "次!")
  13.          '     End If
  14.    ' End If

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.07031秒 powered by KesionCMS 9.0