asp高手请进来帮帮小弟哇
来源:百度知道 编辑:UC知道 时间:2024/06/06 05:20:32
我就是在本地iis上调试的,当然办法也不是没有,只要把播放软件卸载掉一样可以直接点左键下载,但别人要下载的话肯定不会这样做的,不知道大哥有没什么办法?
<%
dim Dname
dim url
Dim fso,fl,flsize
Dim objStream,ContentType,flName,isre,url1
Dname="[这里填入你要下载的文件]" '如 ss.mp3
If Dname<>"" Then url=server.MapPath("files")&"\"&Dname
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fl=fso.getfile(url)
flsize=fl.size
flName=fl.name
Set fl=Nothing
Set fso=Nothing
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile url
ContentType = "application/zip" '关键
Response.AddHeader "Content-Disposition", "attachment; filename=" & flName
Response.AddHeader "Content-Length&qu