'下载远程文件
'url：远程文件路径,filename:保存文件名
function DownloadFile(url,filename)
Set xml = Server.CreateObject("Msxml2.XMLHTTP") '创建对象
xml.Open "GET",url,False
xml.Send '发送请求
if Err.Number>0 then
Response.Status="404"
else
Response.ContentType="application/octet-stream"
Response.AddHeader "Content-Disposition:","attachment; filename=" & filename
Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)
if Range="" then
Response.BinaryWrite(xml.responseBody)
'response.Write xml.responseBody
else
S.position=Clng(Split(Range,"-")(0))
' Response.BinaryWrite(xml.responseBody)
response.Write xml.responseBody
End if
end if
Response.End
Set xml = Nothing
end function |
注册 登录
