一段通过XML来远程抓娶图片的代码
2005-11-10 11:00
239 查看
<%
'函数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="Sh1.png">
<%=img ("http://stock.jrj.com.cn/htmdata/gifindex/sz_399001.png","sh2.png")%>
<img src="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>
'函数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="Sh1.png">
<%=img ("http://stock.jrj.com.cn/htmdata/gifindex/sz_399001.png","sh2.png")%>
<img src="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>
相关文章推荐
- php中通过正则表达式下载内容中的远程图片的函数代码
- 使用Qt将一系列图片通过网络发送到客户端动态显示的参考代码(修改一下可以用作远程网络监控)
- 使用Qt将一系列图片通过网络发送到客户端动态显示的参考代码(修改一下可以用作远程网络监控)。
- [VB.NET]请教在一段代码中怎么提取图片路径
- android textview在code(代码)中设置图片 和XML设置图片
- 通过一段代码简单说js中的this的使用
- JavaScript下通过的XMLHttpRequest发送请求的代码
- xml代码修改图片颜色
- 21_Android中常见对话框,光传感器,通过重力感应器编写出指南针应用,帧动画,通过Jav代码的方式编写补间动画,通过XML的方式编写补间动画
- C#实现通过程序自动抓取远程Web网页信息的代码
- 一段搞笑代码,让网页上所有图片飞起来转圈
- 通过代码不让苹果渲染我们的图片
- 破解图片防盗链的代码(asp/php)测试通过
- 控件通过XML更改图片的使用方法
- 在 XML 中通过数据绑定用一行代码定制字体
- 通过远程线程向其他进程注入代码
- 使用XML布局文件和java代码共同控制UI界面做一个简易图片浏览器
- Android 点击图片切换(代码与xml)
- 在xml和代码中设置ImageView图片的显示比例