'============================================
'函数作用:远程图片自动保存到本地服务器
'修改时间:2006-7-3 21:21
'传人参数:
' LocalFileName:本地文件名
' RemoteFileUrl:远程文件URL
'============================================
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
dim Ads,Retrieval,GetRemoteData
'=======取远程文件路径,利用XMLHTTP对象生成远程数据包======
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing'=======用流对象保存文件数据=========
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile LocalFileName,2
.Cancel()
.Close()
End With
Set Ads=nothing
end sub
本人对VB不太熟悉 特别对这对象Microsoft.XMLHTTP不熟悉。。
请帮忙转为C#
谢谢了