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("下载地址")%>

ASP实现隐藏下载地址和防盗相关推荐

Asp中隐藏下载地址
<% Response.Buffer = true Response.Clear dim url Dim fso,fl,flsize dim Dname Dim objStream,Conten ...
php地址隐藏最快的办法,就是这么简单!拿快车破译php？隐藏下载地址
有网友提及这样的问题:比如在BT联盟中搜索到需要的BT种子并点击进入后,会打开一个窗口但一闪就关闭了,同时BT工具就自动打开了;但用鼠标右键另存为就无法下载种子文件,只会下载到redirect.htm ...
asp.net文件下载，实现隐藏文件下载地址
文件下载其实很简单.最简单的方式就是直接用a标签指向文件地址,但是这种方式暴露了文件的地址,不适合做积分下载.同时,如果文件为图片或者xml文件的话浏览器默认是打开文件而不是弹出下载窗口. 第二种就是 ...
Microsoft Visual Studio 2005 简体中文专业版(DVD)下载地址
下载地址一: http://www.05sun.com/ViewDownloadUrl.asp?ID=436 下载地址二: http://www.sooweb.net/Soft/System-Util ...
Asp.net下实现隐藏真实下载地址（可以实现简单的防盗链）
现在随着FlashGet和xunlei等下载工具的日益普及,下载网站的一些下载地址都能直接被捕获到,,但是有些时候为了防盗链或权限限制不想对地址进行暴露,对于Asp.net下的防盗链有很多方法,我这里 ...
vici 开源asp.net mvc支持asp.net2.0II6.0下部署实例下载地址
vici 官方asp.net mvc 实例下载地址 http://viciproject.com/wiki/Projects/Mvc/Download 个人正在学习中下载后可以运行如下载后,要立马 ...
QQ空间过滤器，千军万马(97779)网盘资源下载地址提取器，Discuz 论坛隐藏内容自动回复成功上架到 chrome 商店...
在别人的捐赠下,整了一个 chrome 开发者认证,现在这三个应用都发布到自己的账号下面了,不用麻烦别人啦, 如果有同学想提交应用,也可以留言给我,如果很不错的话,我会帮忙提交,chrome 开发者只 ...
62个ASP免积分资料下载地址汇总
2019独角兽企业重金招聘Python工程师标准>>> 为了方便大家学习,小弟最近整理了一批免积分下载的ASP资料,共62个,整理了这批资料的下载地址,大家可以根据自己的需要选择性下 ...
php 隐藏mp3地址下载地址,虾米音乐mp3地址解密javascript版和PHP版
虾米音乐国内音乐互联网平台中最完善的平台.和网易.新浪等多家都有合作,用户体验也非常好. 为了能充分利用虾米音乐做自己喜欢的音乐相关小工具,特将虾米音乐相关的接口公布出来,供大家使用.这些接口包含了音 ...

ASP实现隐藏下载地址和防盗

ASP实现隐藏下载地址和防盗相关推荐

最新文章

热门文章