当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP实例教程:隐藏下载地址和防盗

ASP
随机提取Access/SqlServer数据库中的10条记录的SQL语句
实现对Access数据库表重命名的一段代码
XML+XSL+CSS+ASP打造留言簿
小偷&小偷入库&采集入库
使用asp代码突破163相册的防盗连
CJJ专用ASP类库中的某个class
能不能在flash动画中给asp传递变量？
禁止站外提交表单
改进一下asp自带的formatNumber函数
收集asp的常用函数
CHR(10)表示换行，CHR(13)表示回车，CHR(32)表示空格
ASP 指南
pjblog2的参数
ASP智能搜索的实现
网站生成静态页面攻略2:数据采集
网站生成静态页面攻略3:防采集策略
网站生成静态页面攻略4:防采集而不防搜索引擎策略
简单分页函数一 常用
asp最常用的分页函数
asp:生成静态页面函数

No. « 31 32 33 34 »

技术文章搜索

关键字

ASP实例教程:隐藏下载地址和防盗

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2010-01-04   浏览: 65 ::
收藏到网摘: n/a

以下为引用的内容：
<% 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("下载地址")%>