ASP实现隐藏下载地址和防盗
来源:互联网 发布:南京大学软件学院考研 编辑:程序博客网 时间:2024/04/30 17:06
以下为引用的内容:
<% 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.net下实现隐藏真实下载地址(可以实现简单的防盗链)
- Asp实现隐藏文件下载地址方法
- asp隐藏下载地址
- asp.net文件下载,实现隐藏文件下载地址
- Asp中隐藏下载地址
- 用Asp隐藏文件路径,实现防盗链
- 用Asp隐藏文件路径,实现防盗链
- 用Asp隐藏文件路径,实现防盗链
- 用Asp隐藏文件路径,实现防盗链
- 实现防盗链,用Asp隐藏文件路径
- 用Asp隐藏文件路径实现防盗链
- 用Asp隐藏文件路径,实现防盗链
- 用Asp隐藏文件路径实现防盗链
- 用Asp隐藏文件路径,实现防盗链
- 用Asp隐藏文件路径,实现防盗链
- 用Asp隐藏文件路径实现防盗链
- 用Asp隐藏文件路径实现防盗链
- ASP编程常用的函数function集合
- Eclipse代码调试断点法
- 模板类和友元函数
- Oracle数据库的锁
- ASP实现记住密码的功能
- ASP实现隐藏下载地址和防盗
- 关于几种并发模型可能造成的副作用的读后感
- Program for Android in C/C++ with the Native Development Kit (if you dare)
- SQL Driver Java
- 善学则进
- 谷歌街景车遭巴黎隐私保护机构检查
- C++ 构造函数和析构函数的继承
- 程序员须知 收包与发包
- SilverLight + Html + JavaScript