文件（包括图片格式）下栽程序

2010-1-31 07:55| 发布者: admin| 查看: 40| 评论: 0|原作者: 柳梦璃

<%
function download(f,n)
'f文件全路径，n下载文件的文件名
on error resume next
Set S=CreateObject("Adodb.Stream")
S.Mode=3
S.Type=1
S.Open
S.LoadFromFile(f)
if Err.Number>0 then
Reaponse.status="404"
else
Response.ContentType="application/octet-stream"
Response.AddHeader "Content-Disposition:","Attachment;filename="&n
Range=Mid(Request.ServerVariables("HTTP_RANGE"),50)
if Range="" then
Response.BinaryWrite(S.Read)
else
S.Postion=Clng(Split(Range,"-")(0))
Response.BinaryWrite(S.Read)
end if
end if
Response.end
end function
dim filename
filepath=Server.MapPath(".")
path=request("path")
path1=split(path,"/")
call download(server.MapPath(path),path1(1))
%>

收藏分享邀请

		自动登录	找回密码
密码			注册

文件（包括图片格式）下栽程序

最新评论

相关分类