时间:2023-11-09 点击: 次 来源:网络 添加者:佚名 - 小 + 大
<% function getHTTPimg(url) dim http set http=server.createobject("MSXML2.XMLHTTP") ***.open "GET",url,false Http.send() if Http.readystate<>4 then exit function getHTTPimg=Http.responseBody set http=nothing end function function Save2Local(from,tofile) dim geturl,objStream,imgs geturl=trim(from) imgs=gethttpimg(geturl) Set objStream = Server.CreateObject("***.Stream") objStream.Type =1 ***.Open objstream.write imgs objstream.SaveToFile tofile,2 objstream.Close() set objstream=nothing end function call Save2Local("http://www.baidu.com/img/baidu_logo_jr_0905_jy.gif" ,server.MapPath("1.gif")) %>
ASP BinaryRead 方法实例下面的例子使用 BinaryRead 方法把一个请求的内容放入了一个安全的数组: <%dim a,ba=Request.TotalBytesb=Request.BinaryRead(a)%> 实例来源 |
上一篇:asp自动返回页面代码