利用MSXML2.XmlHttp和Adodb.Stream采集图片

时间：2021-05-25

利用MSXML2.XmlHttp和Adodb.Stream
复制代码 代码如下:
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<head>
<title>ASP采集图片测试</title>
<metahttp-equiv="content-type"content="text/html;charset=utf-8"/>
</head>
<body>
<%
FunctionGethttpimg(Url)
OnErrorResumeNext
DimHttp
SetHttp=Server.Createobject("MSXML2.XmlHttp")
Http.Open"Get",Url,False
Http.Send()
IfHttp.Readystate<>4ThenExitFunction
Gethttpimg=Http.Responsebody
SetHttp=Nothing
IfErr.Number<>0ThenErr.Clear
EndFunction
SubSave2Local(From,Tofile)
DimGeturl,Objstream,Imgs
Geturl=Trim(From)
Imgs=Gethttpimg(Geturl)
SetObjstream=Server.Createobject("Adodb.Stream")
Objstream.Type=1
Objstream.Open
Objstream.WriteImgs
Objstream.SavetofileTofile,2
Objstream.Close()
SetObjstream=Nothing
'Response.Write("TheImghassaved!")
EndSub
CallSave2Local("https://www.jb51.net/logos.gif",Server.MapPath("google.gif"))
%>
</body>
</html>

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章