用ASP简单封装了几个函数,使用ServerXMLHTTP把网络上的文件保存到本地服务器.

使用这个几个函数就可以实现新闻复制来的时候把图片下载到本地,或者小偷到本地等功能.不过由于是使用ServerXMLHTTP组件,所以速度偏慢,不过对于大文件,速度取决还是取决于网络和对方服务器的速度.

不过速度虽慢,但是还是方便很多了.^_^.

在Win200+IIS6.0下测试成功

 

< %

' # ----------------------------------------------------------------------------
' # 函数：GetHTTPFile
' # 描述：取得远程文件
' # 参数： fFileHTTPPath-文件的网址  fReturnType-返回数据的方式
' # 返回：(1-responseBody 2-responseText 3-responseStream)
' # 作者：雷の龙
' # 日期：2004
' #-----------------------------------------------------------------------------
Function  GetHTTPFile(fFileHTTPPath,fReturnType)
     ' 设定脚本运行过期时间,否则大文件下不完.
    Server.scriptTimeout = 999999
    
     ' 设定此函数错误仍然继续,可以在捕获错误的时候处理后继续下面的程序.不过调试的时候
     ' 最好不要用错误仍然继续
     ' on error resume next

     ' 创建对象
     Dim  ObjXMLHTTP
     Set  ObjXMLHTTP = Server. CreateObject ( " Msxml2.ServerXMLHTTP.4.0 " )

     '