一段Get取远程序图片并保存到本地的代码

【来源：54NB聯盟更新时间：2003-9-1 | 字体：大中小】

<%
Function GetWebData(byval strUrl)
dim curlpath
dim Retrieval
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", strUrl, False, "", ""
.Send
GetWebData =.ResponseBody
End With
Set Retrieval = Nothing
End Function

sub SaveImg(FileName,Data)
set ads=server.CreateObject("Adodb.Stream")
with ads
.Type=1
.Open
.Write Data
.SaveToFile server.MapPath(FileName),2
.Cancel()
.Close()
end with
set ads=nothing
end sub

dim imgurl
dim aryFileName
imgurl="http://bbs.dvbbs.net/images/LOGO.GIF" '图片远程地址。
aryFileName=split(imgUrl,"/")
call SaveImg(aryFileName(ubound(aryFileName)),GetWebData(imgurl))
%>

本程序在 win2K server/IIS5.0/IE6 下测试成功。

54NB聯盟(原wc公司)荣誉出品(2003-09-1)

收藏此页到 IE收藏夹 POCO网摘 [365Key] [ViVi] 百度藏搜和讯网摘天极网摘狐摘向您的朋友推荐此文章
转载请注明来源：文章大全网址：http://www.itlearner.com/article/
文章关键词：图片
如意搜索搜索更多内容：一段Get取远程序图片并保存到本地的代码
特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系我们，我们会尽快予以更正。

上一篇文章：TOM科技：门户搜索能走多远？
下一篇文章：Win2000命令全集及解释