Asp中隐藏下载地址
来源:互联网 发布:mcgs组态软件下载 编辑:程序博客网 时间:2024/05/08 02:23
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"/",""),"/","") '传参
If strFileName<>"" Then else Set fl=Nothing ' 我是用UPload组件上传的,如果重名会产生"(数字)" 后缀,
strFileName="/files/"&strFileName ' 改成你你文件的存放路径
'******************************下载文件存放的服务端目录
url=Server.MapPath(strFileName)
Response.Write("no found")
Response.end
End If
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fl=fso.getfile(url)
flsize=fl.size
flName=fl.name
Set fso=Nothing
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile url
Select Case lcase(Right(flName, 4))
Case ".asf"
ContentType = "video/x-ms-asf"
Case ".avi"
ContentType = "video/avi"
Case ".doc"
ContentType = "application/msword"
Case ".zip"
ContentType = "application/zip"
Case ".xls"
ContentType = "application/vnd.ms-excel"
Case ".gif"
ContentType = "image/gif"
Case ".jpg", "jpeg"
ContentType = "image/jpeg"
Case ".bmp"
ContentType = "image/bmp"
Case ".ppt"
ContentType = "application/vnd.ms-powerpoint"
Case ".mdb"
ContentType = "application/x-msaccess"
Case ".wav"
ContentType = "audio/wav"
Case ".mp3"
ContentType = "audio/mpeg3"
Case ".mpg", "mpeg"
ContentType = "video/mpeg"
Case ".rtf"
ContentType = "application/rtf"
Case ".htm", "html" ,"htm(1)"
ContentType = "text/html"
Case ".txt"
ContentType = "text/plain"
Case Else
ContentType = "application/octet-stream"
End Select
' 有些主机会阻止下载这类文件,所以这里加一个检查,将Upload组件自动生成的后缀
If InStr(lcase(Right(flName, 1)),")") Then
flName=mid(flName,1,Len(flName)-3)
End If
Response.AddHeader "Content-Disposition", "attachment; filename=" & flName
Response.AddHeader "Content-Length", flsize
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
response.Clear()
objStream.Close
Set objStream = Nothing
%>
- Asp中隐藏下载地址
- asp隐藏下载地址
- Asp实现隐藏文件下载地址方法
- ASP实现隐藏下载地址和防盗
- asp.net文件下载,实现隐藏文件下载地址
- php隐藏真实下载地址
- PHP 隐藏真实下载地址
- Asp.net下实现隐藏真实下载地址(可以实现简单的防盗链)
- ASP.net ajax 下载地址
- ASP.NET控件下载地址
- golang 静态文件隐藏下载地址
- ASP.NET隐藏图片的真实地址
- asp.net 隐藏图片的真实地址
- asp.net(VB)中使用正则获取图片地址并进行下载.
- ASP.NET 视频学习资源(下载地址)
- ASP.NET 视频学习资源(下载地址)
- Asp高级组件 下载地址以及官方网站
- Dbank网盘下载地址提取ASP
- 应该选择CRT吗?
- nginx 配置之 虚拟目录
- vs2008 下载&vs2008 sp1下载
- IE6不支持PNG最佳解决方案——DD_belatedPNG.js
- 学习ASP.NET需求的基本的c#知识(转帖+已修改)
- Asp中隐藏下载地址
- 存储过程输入参数实例
- 内核启动logo(我用的是2.6.12)
- 四种方法实现VC枚举系统当前进程
- 俄“进步”号飞船与国际空间站对接
- 关于session过期的判断?
- 在线记账网站汇总
- Asp创建数据库文件
- 读取TXT文件,和生成TXT文件的方法