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

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【ASP隐藏下载地址及防盗代码】，下面是详细的分享！

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
%>

以上所分享的是关于ASP隐藏下载地址及防盗代码，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：ASP隐藏真正的下载地址

　　答：在数据库建一个文件 一个列为真正下载地址 ，如Path("downLoad/software.exe") 一个列为惟一编号，如softID(1503) 在数据读取时只需要连接 download.asp?id=1503就行了 download.asp softID=request.querystring("id") '读取数据库，找出softID... >>详细

　　相关问题：下载网站如何隐藏下载链接 和避免盗链？

　　答：盗链的解决方案 其实通过WEB服务器的URL过滤技术，这个伤脑筋的问题会很容易得到解决。 如果WEB服务器用的是APACHE的话，那么使用APACHE自带的Url Rewrite功能可以很轻松地防止各种盗链，其原理是检查REFER，如果REFER的信息来自其他网站则禁止... >>详细

　　相关问题：asp做的网站隐藏源代码

　　答：别人通过网络是看不到你源代码的只能看见HTML标签OK？自己可以试下就知道我是否在放P 如果别人能看你源代码那就是你服务器有问题了！主要是IIS配置问题，如：文件夹权限，站点权限，软件环境配置，WEB扩展 。。。 就这么多了，工作了 >>详细