Use msxml2.xmlHttp e adodb.stream para coletar fotos

Autor：Eve Cole Data da Última Atualização：2025-04-22 00:32:01

利用 msxml2.xmlHttp 和 adodb.stream

复制代码代码如下:

<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, falso

Http.send ()

Ifhttp.readyState <> 4ThenexitFunction

Gethttpimg = http.ResponseBody

Sethttp = nada

Iferr.number <> 0TheNerr.clear

Função final

Subsva2local (de, tofile)

Dimgeturl, objstream, imgs

Geturl = Trim (de)

Imgs = gethttpimg (geturl)

Setobjstream = server.createObject ("adodb.stream")

Objstream.type = 1

Objstream.open

Objstream.writeimgs

Objstream.savetofiletofile, 2

Objstream.close ()

Setobjstream = nada

'Response.Write ("Theimghassaved!")

Endsub

CallsAve2Local ("// www.vevb.com/logos.gif".server.mappath("google.gif")))

</body>

</html>

您可能感兴趣的文章:

adodb.stream 读文件到数组的代码 jScript 中使用 adodb.stream 判断文件编码的代码使用 asp 下的 adodb.stream 下载文件而不是打开 asp 下用 adodb.stream 代替 fso 读取文本文件 asp adodb.stream 对象的方法/属性 adodb.stream 组件 charset 属性值集合用 adodb.stream 转换 exe2swf 工具 (adodb.stream 组件组件 charset 属性值集合用 adodb.stream 转换 exe2swf 工具 (adodb.stream 组件组件 charset 属性值集合用属性值集合用). 800A0BBC 问题