最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
原创的一段通过XML来远程抓娶图片的代码
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
<%
'函数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 ("http://stock.jrj.com.cn/htmdata/gifindex/sz_399001.png","sh2.png")%>
<%=img ("http://business.sohu.com/new_world_index.html","gjgshq.html")%>
-
上一个: 根据数据库生成xml二法
-
下一个: XML Web Service 数据交换
相关文章
- C#复制数组的两种方式及效率比较解读 10-24
- ASP.NET Identity用法解析 10-24
- ASP.NET MVC使用Identity增删改查用户介绍 10-24
- C语言中atoi函数模拟实现介绍 10-18
- .Net反向代理组件Yarp用法介绍 10-10
- .NET使用YARP通过编码方式配置域名转发实现反向代理教程 10-10