原创的一段通过XML来远程抓娶图片的代码
原创的一段通过XML来远程抓娶图片的代码 <%
'函数1调用XSMXL2.XMLHTTP来进行远程抓取
function getHTTPPage(url)
on error resume next
dim http
set http=server.createobject('MSXML2.XMLHTTP')'使用xmlhttp的方法来获得图片的内容
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','sh1.png')%>
<img src="http://doc.readmen.com/1/Sh1.png">
<%=img ('http://stock.jrj.com.cn/htmdata/gifindex/sz_399001.png','sh2.png')%>
<img src="http://doc.readmen.com/1/Sh2.png">
<%=img ('http://business.sohu.com/new_world_index.html','gjgshq.html')%>
<iframe name='a' scrolling='auto' frameborder='0' src='gjgshq.html' width='160' height='140'></iframe>
