常安高速封闭:asp高手请进来帮帮小弟哇
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/04 16:51:53
我就是在本地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", flsize
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
response.Clear()
objStream.Close
Set objStream = Nothing
%>
用以上代码你要具备的条件是会一点ASP就行!
这程序应该会用吧,点击直接下载歌曲或电影文件一定要用程序才能实现!
最简单的是你把电影文件改名为xxx.rar(如原文件为xxx.mpg),然后在下载说明里注明下载后改为xxx.mpg就行了.
你只有保证这个文件在你的网站服务器的话,我可以帮你。。。