• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    ASP 隐藏下载地址及防盗链代码
    复制代码 代码如下:

    % FunctIon DownloadFIle(StrFIle)
    StrFIlename=StrFIle
    Response.Buffer=True
    Response.Clear
    Set S=Server.CreateObJect("ADODB.Stream")
    S.Open
    S.Type=1
    on Error Resume Next
    Set Fso=Server.CreateObJect("ScrIptIng.FIleSystemObJect")
    If Not Fso.FIleExists(StrFIleName) Then
    From_Url=Cstr(Request.ServerVarIables("HTTP_REFERER"))
    Serv_Url=Cstr(Request.ServerVarIables("SERVER_NAME"))
    If MId(From_Url,8,len(Serv_Url)) > Serv_Url Then
    Response.WrIte "该文件不存在或者已经删除."
    Response.End
    End If
    Response.RedIrect Request.ServerVarIables("HTTP_REFERER")
    Response.End
    End If
    FileExt=MId(StrFIlename,InStrRev(StrFIleName, ".")+1)
    Select Case UCase(FIleExt)
    Case "ASP", "ASA", "ASPX", "ASAX", "MDB", "PHP", "JSP", "SHTML", "HTML", "HTM", "TV", "DATA"
    From_Url=Cstr(Request.ServerVarIables("HTTP_REFERER"))
    Serv_Url=Cstr(Request.ServerVarIables("SERVER_NAME"))
    If MId(From_Url,8,len(Serv_Url)) > Serv_Url Then
    Response.WrIte "该文件不存在或者已经删除."
    Response.End
    End If
    Response.RedIrect Request.ServerVarIables("HTTP_REFERER")
    Response.End
    End Select
    Set F=Fso.GetFIle(StrFIlename)
    IntFIlelength=F.SIze
    s.LoadFromFIle(StrFIlename)
    If Err Then
    From_Url=Cstr(Request.ServerVarIables("HTTP_REFERER"))
    Serv_Url=Cstr(Request.ServerVarIables("SERVER_NAME"))
    If MId(From_Url,8,len(Serv_Url)) > Serv_Url Then
    Response.WrIte "该文件数据不完整或许已损坏."
    Response.End
    End If
    Response.RedIrect Request.ServerVarIables("HTTP_REFERER")
    Response.End
    End If
    Set Upload=Server.CreateObJect("PersIts.Upload")
    If Upload Is Nothing Then
    Response.AddHeader "Content-DIsposItIon","attachment; FIlename="F.Name
    Response.AddHeader "Content-Length",IntFilelength
    Response.CharSet="UTF-8"
    Response.ContentType="application/x-download"
    Response.BinaryWrite S.Read
    Response.Flush
    S.Close
    Set s=NothIng
    Else
    Upload.SendBinary StrFIlename,True,"application/x-download",False
    End If
    End FunctIon
    %>

    调用
    复制代码 代码如下:

    %Call DownloadFIle("下载地址")%>
    您可能感兴趣的文章:
    • IIS防盗链 ISAPI Rewrite图片防盗链规则写法
    • ASP.NET 图片加水印防盗链实现代码
    • Apache下MP3 防盗链的解决办法
    • php下通过伪造http头破解防盗链的代码
    • php防盗链的常用方法小结
    • asp.net下结合HttpHandler实现图片防盗链
    • 破解图片防盗链的代码(asp/php)测试通过
    • asp 防盗链代码(彻底屏蔽迅雷,旋风,快车下载站内资源)
    • Asp.net 图片文件防盗链(尊重劳动成果)及BeginRequest事件学习
    上一篇:asp是的日期转换为星座的函数
    下一篇:asp 防盗链代码(彻底屏蔽迅雷,旋风,快车下载站内资源)
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    ASP 隐藏下载地址及防盗链代码 ASP,隐藏,下载,地址,及,防盗,