一段通过XML来远程抓娶图片的代码_xml

<%
‘函数1调用XSMXL2.xmlHTTP来进行远程抓取
function getHTTPPage(url)
on error resume next
dim http
set http=server.createobject(“MSXML2.XMLHTTP”)’使用xmlhttp的方法来获得图片的内容

http://www.gaodaima.com/34150.html一段通过XML来远程抓娶图片的代码_xml

Http.open “GET”,url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear
end function
‘函数2 对数据进行保存
function img(from,tofile)
dim geturl,objstream,imgs
geturl=trim(from)
imgs=gethttppage(geturl)
Set objStream = Server.CreateObject(“ADODB.Stream”)
objStream.Type =1
objStream.Open
objstream.write imgs
objstream.SaveToFile server.mappath(tofile),2
objstream.Close()
set objstream=nothing
end function
%>
<%=img (“http://stock.jrj.com.cn/htmdata/gifindex/Sh_000001.png&#8221;,”http://www.webjx.com/htmldata/2005-08-22/Sh1.png”)%>
<img src=”http://www.webjx.com/htmldata/2005-08-22/Sh1.png”>
<%=img (“http://stock.jrj.com.cn/htmdata/gifindex/sz_399001.png&#8221;,”http://www.webjx.com/htmldata/2005-08-22/Sh2.png&#8221;)%>
<img src=”http://www.webjx.com/htmldata/2005-08-22/Sh2.png”&gt;
<%=img (“http://business.sohu.com/new_world_index.html&#8221;,”gjgshq.html”)%>
<iframe name=”a” scrolling=”auto” frameborder=”0″ src=”gjgshq.html” width=”160″ height=”140″></iframe>

欢迎大家阅读《一段通过XML来远程抓娶图片的代码_xml》,跪求各位点评,若觉得好的话请收藏本文，by 搞代码

喜欢 (0)赏

[搞代码]

分享 (0)