欢迎加入EUCMS官方QQ交流群,与更多EUCMS用户一起讨论,共同发财!

QQ群:1222386
> 资讯中心 >> 建站技术 >>正文
asp投票程序怎么阻止使用代理IP的人投票
2020-10-15 0
<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<%
if ks=0 then
   response.write kssm
   response.end
end if

server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "你提交的路径有误,禁止从站点外部提交数据!"
response.end
end if

vid=Request.QueryString("id")

Function getIP() 
getIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If getIP = "" Then getIP = (Request.ServerVariables("REMOTE_ADDR"))
End Function

ipdate=vid&getIP&date()

if ipdate<>"" then   
   Set rs = Server.CreateObject( "ADODB.Recordset" )
    Set rs1 = Server.CreateObject( "ADODB.Recordset" )
Set rs2 = Server.CreateObject( "ADODB.Recordset" )
set rssum=server.createobject("adodb.recordset")
exec="select sum(addps) as sumps from Result where addip='" & getIP & "' and addtime>=#"& now()-1 &"#"
rssum.open exec,conn,1,1
sumps=rssum("sumps")
set rssum3=server.createobject("adodb.recordset")
exec2="select sum(addps) as sumps from Result where addip='" & getIP & "'"
rssum3.open exec2,conn,1,1
sumps3=rssum3("sumps")
    sql = "select * from Result"
    rs.open sql,conn,1,3
   
   if int(sumps)>=int(gz) then
      Response.write("<script language='javascript'>alert('每天只有3次投票机会,您已经投票,请24小时后再来投票!');location='index.asp';</script>")
  response.End()
   else
    sql2 ="select sum(addps) as sumps from Result where addip='" & getIP & "' and voteid='"&vid&"' and addtime>=#"& now()-1 &"#"
rs2.open sql2,conn,1,1
sumps2=rs2("sumps")
if int(sumps2)>=int(xxps) then
  Response.write("<script language='javascript'>alert('您对该作品的投票已达上限,请24小时后再来投票!');location='index.asp';</script>")
   response.End()
    else
   

   sql1= "select * from Result where addip='" & getIP & "' and voteid='"&vid&"'"
   rs1.open sql1,conn,1,3
   if not (rs1.bof and rs1.eof) then


    if sumps=0 then
      sqlu="update Result set addtime='"& now() &"',ipdate='"&ipdate&"',addps=1 where addip='" & getIP & "'"   
else
    sqlu="update Result set addps=addps+1 where addip='" & getIP & "' and voteid='"&vid&"'"
     
end if
conn.execute(sqlu)

else  
      rs.addnew   
      rs("voteid")=vid
      rs("addip")=getIP
      rs("ipdate")=ipdate
  rs("addps")=1
      rs.update
      rs.close
end if  
  
      Set rs=nothing

      sql="update Info set ps=ps+1 where id="&vid
      conn.execute(sql)
      Response.write "<script language='javascript'>alert('恭喜您,投票成功,谢谢您的参与!');location='index.asp';</script>"
  end if
   end if
end if
%>

 

【上一篇:ASP实现限制IP访问的代码

【下一篇:没有了】

成品站
购买流程
  • 注册会员
  • 选择网站模板
  • 免费开通试用
  • 自助绑定域名
  • 付款转正
  • 提交备案
  • 域名生效
  • 网站正式上线
  • 分站:北京 上海 广州 深圳 南京 杭州 合肥 网站建设 芜湖 安庆 马鞍山 淮南 宿州 淮北 阜阳 徐州 睢宁 丰县 网站制作 沛县 新沂 宿迁 连云港 苏州 盐城 常州 无锡 扬州 郑州 网页设计 开封 洛阳 西安 济南 日照 枣庄 石家庄 沈阳 吉林 大庆 网络公司 黑龙江 海口 南宁 长沙 成都 桂林 太原 做网站 甘肃 云南 内蒙 拉萨 香港
    扫描关注微信

    扫描加微信

    13852154923

    0516-66628816

    工作日 9:00-12:00 13:30-18:00
    周六及部分节假日提供值班服务
    2186398
    群:1222386
    Copyright@2003-2020 亿优内容管理系统版权所有 Powered by EUCMS-v6.2.1 | 网站地图 苏ICP备19019550号