高校问答王凯跨界歌王那首最好:请教： JavaScript 下载 文件
来源：百度文库 编辑：高校问答 时间：2024/04/29 19:19:52
如何下载http://bb.com:80/018.zip,
并将其保存在c:\aaa文件夹。
多谢！
http://bb.com:80/018.zip
请求头：
GET 018.zip HTTP/1.1
Host: bb.com:80
CC:DD
Accept: */*
User-Agent: EE
周继平先生：
谢谢！
我的问题是：
1 用JavaScript实现下载文件：
http://bb.com:80/018.zip
2 下载文件时，须发送特定的请求头：
CC:DD
User-Agent: EE
完整的请求头：
GET 018.zip HTTP/1.1
Host: bb.com:80
CC:DD
Accept: */*
User-Agent: EE
xmlhttp对象
<%
Function getHTTPPage(RemoteFileUrl)
dim objXML
set objXML=server.createobject("MSXML2.XMLHTTP")'定义
objXML.open "Get", RemoteFileUrl, False, "", ""
objXML.send()'发送
If objXML.readystate<>4 then '判断文档是否已经解析完，以做客户端接受返回消息
exit function
End If
SavePic objXML.responseBody,LocalFileName
set objXML=nothing'关闭
if err.number<>0 then err.Clear
End Function
Function SavePic(body,FileName)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Open
objstream.Write body
objstream.SaveToFile ("c:\aaa\"&FileName),2
objstream.Close
set objstream = nothing
End Function
Dim LocalFileName,RemoteFileUrl
ThisTime=Date()
ThisTime=replace(ThisTime,"-","")
ThisTime=ThisTime&replace(Time(),":","")
LocalFileName=ThisTime&".jpg"
RemoteFileUrl= "http://img.baidu.com/img/post-jg.gif"
getHTTPPage RemoteFileUrl
%>