个人中心
gpt4 book ai didi

防盗链接ASP函数

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章防盗链接ASP函数由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

简单介绍下功能吧：使用了ASP的一个对象ServerVariables（服务器环境变量），通过这个环境变量可以获取到真正的下载地址再通过一些简单的VBS内置函数破坏其真正地址的完整性。达到欺骗下载软件的功能。现附上源码提供大家学习。  。

复制代码代码如下

<% 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("DownloadFIle")%>.

最后此篇关于防盗链接ASP函数的文章就讲到这里了,如果你想了解更多关于防盗链接ASP函数的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

24 4 0
文章推荐： ASP程序与SQL存储过程结合使用详解
文章推荐： asp 小偷采集程序原理与常用函数方法
文章推荐： asp将table生成excel文件(xls)
文章推荐： asp实现新评论自动发短信提示的代码
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com