• <kbd id="e08ka"><tt id="e08ka"></tt></kbd>
  • <label id="e08ka"></label>
    <xmp id="e08ka">
  • <table id="e08ka"><u id="e08ka"></u></table>

    歡迎加入EUCMS官方QQ交流群,與更多EUCMS用戶一起討論,共同發財!

    QQ群:1222386
    > 資訊中心 >> 建站技術 >>正文
    asp投票程序怎么阻止使用代理IP的人投票
    2020-10-15 521 收藏
    <!--#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
    %>

     

    你覺得這篇文章怎么樣?

    0 0
    參與討論
    請自覺遵守互聯網相關的政策法規,嚴禁發布色情、暴力、反動的言論。
    成品站
    購買流程
  • 注冊會員
  • 選擇網站模板
  • 免費開通試用
  • 自助綁定域名
  • 付款轉正
  • 提交備案
  • 域名生效
  • 網站正式上線
  • 分站:
    掃描關注微信

    掃描加微信

    13852154923

    0516-66628816

    工作日 9:00-12:00 13:30-18:00
    周六及部分節假日提供值班服務
    2186398
    群:1222386
    做網站徐州網架廠家
    Copyright@2003-2024 徐州億優網架鋼結構工程有限公司版權所有 Powered by EUCMS-v6.3 | 網站地圖 蘇ICP備19019550號 蘇公網安備32030202000952號
    AV无码国产麻豆映画传媒_人妖视频一区二区_久久小说下载网手机版之贵主_欧美成人精品三级
  • <kbd id="e08ka"><tt id="e08ka"></tt></kbd>
  • <label id="e08ka"></label>
    <xmp id="e08ka">
  • <table id="e08ka"><u id="e08ka"></u></table>