<%

Function SaveRemoteFile(LocalFileName,RemoteFileUrl)
    SaveRemoteFile=True
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
   .Open "Get", RemoteFileUrl, False, "", ""
   .Send
        If .Readystate<

<%
'以下為調用示例：
remoteurl="http://www.uyux.cn/logo.gif"'遠程文件名（絕對全路徑）
localfile=Replace(Replace(Replace(Now(),"-","")," ",""),":","")&Right(remoteurl,4)'本機文件名（可自定義）
If SaveRemoteFile(localfile,remoteurl)=True Then
Response.Write("成功保存："&localfile)
End If
%>

-