'***函数名  : DownFile
'***函数说明: 下载指定路径的文件并保存到指定路径
'***参数    :
'              sDownFileURL:     需下载的文件URL
'              sSaveFilePath: 文件保存路径
'***返回值  : 布尔值(下载成功返回True，否则返回False)
Function DownFile(sDownFileURL, sSaveFilePath)
    Dim Http, sPageContent
    Set Http = Server.CreateObject("Microsoft.XMLHTTP")
    Http.Open "Get", sDownFileURL, False
    Http.Send()
    If Http.ReadyState=4 And Http.Status=200 Then
        Call SaveFile(Http.ResponseBody, sSaveFilePath)
        DownFile = True
    Else
        DownFile = False
    End If
    Set Http = Nothing
End Function



'***函数名  : SaveFile
'***函数说明: 保存文件到指定路径
'***参数    :
'              sBody:     需保存的内容
'              sFilePath: 文件保存路径
'***返回值  : NULL
Function SaveFile(sBody, sFilePath)
    Dim objStream
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Type = 1
    objStream.Mode = 3
    objStream.Open()
    objStream.Write(sBody)
    objStream.SaveToFile sFilePath, 2
    objStream.Flush()
    objStream.Close()
    Set objStream = Nothing
End Function