一段Get取远程序图片并保存到本地的代码
[导读]<%Function GetWebData(byval strUrl)dim curlpathdim RetrievalSet Retrieval = Server.CreateObject( Microsoft.XMLHTTP )With Retrieval.Open Get , strUrl, False, , .SendGetWebData =.ResponseBodyEnd With...
<%
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)
- 转载请注明来源:IT学习网 网址:http://www.t086.com/ 向您的朋友推荐此文章
- 特别声明: 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系我们,我们会尽快予以更正。