asp下載遠程伺服器檔案[rar,jpg,gif,zip,png]

asp下載遠程伺服器檔案[rar,jpg,gif,zip,png]
< %
function   downfilea(d_target,   s_target)
On   Error   Resume   Next  
    dim   myhttp,   objstream
    set   myhttp   =   server.createobject( "MSXML2.XMLHTTP ")
    myhttp.open   "GET ",   d_target,   false
    myhttp.send()
    set   objstream   =   Server.CreateObject( "adodb.stream ")  
    objstream.Type   =   1  
    objstream.Mode   =   3  
    objstream.Open
    objstream.Write   myhttp.responseBody
    objstream.SaveToFile   s_target,   2
    if   err.number   <>   0   then   err.Clear
end   function
 
downfilea   "http://www.111cn.net/xxx.rar ",   Server.MapPath( "down/xxx.rar ")
Response.write   "ok "
%>
還有asp.net版本的源碼（未測試）

   using   System;  
  using   System.Net;  
  using   System.IO;  
 
  class   DownloadFile;  
      {  
        static   void   Main(string[]   args)  
            {  
                //你的遠程檔案  
                string   siteURL="http://www.abc.com/xxx.rar";  
                //下載到本地的路徑及檔案名稱  
                string   fileName="c:\xxx.rar";  
                //執行個體化一個WebClient  
                WebClient   client=new   WebClient();  
                //調用WebClient的DownloadFile方法  
                client.DownloadFile(siteURL,fileName);  
                }  
        }