如何保存远程的音频呢？
如题，文字、图片内容好保存，但是远程音频如何保存到本地呢？

------解决方案--------------------
<% 
dim act,ifLogin,loginUrl,loginActUrl,loginData,fileUrl,fileName 
act=request.QueryString("act") 
if(act="do") then 
ifLogin=Cint(request.QueryString("ifLogin")) 
loginActUrl=request.Form("loginActUrl") 
loginData=request.Form("loginData") 
fileUrl=request.Form("fileUrl") 
fileName=mid(fileUrl,instrrev(fileUrl,"/")+1) 
extPos=instrrev(fileName,"?") 
if(extPos>0) then 
fileName=left(fileName,extPos-1) 
end if 
if(ifLogin=1) then 
call PostHttpPage(loginActUrl,loginData) 
end if 
call DownloadFile(fileUrl,fileName) 
else 
%> 
<form name="form1" method="post" action="?act=do"> 
<p>是否登录： 
<input name="ifLogin" type="radio" value="1"> 
是 
<input name="ifLogin" type="radio" value="0" checked> 
否 </p> 
<p>登录提交地址： 
<input name="loginActUrl" type="text" size="50"> 
</p> 
<p> 
登录数据：<input name="loginData" type="text" size="50"> 
</p> 
<p> 
要保存的远程文件URL： 
<input name="fileUrl" type="text" size="50"> 
</p> 
<p> 
<input type="submit" name="Submit" value="提交"> 
<input type="reset" name="Submit2" value="重写"> 
</p> 
</form> 
<% 
end if 
Function BytesToBstr(body,code) 
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset =code 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 
Function PostHttpPage(loginActUrl,PostData) 
Dim xmlHttp 
Dim RetStr 
Set xmlHttp = CreateObject("Microsoft.XMLHTTP") 
xmlHttp.Open "POST", loginActUrl, False 
XmlHTTP.setRequestHeader "Content-Length",Len(PostData) 
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
xmlHttp.Send PostData 
If Err.Number <> 0 Then 
Set xmlHttp=Nothing 
response.Write("提交登录时出错！提交数据："&PostData) 
Exit Function 
End If 
PostHttpPage=BytesToBstr(xmlHttp.responseBody,"GB2312") 
Set xmlHttp = nothing 
End Function 
''''''''''''''''''''''''''''''''''''''''''' 
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