Gunakan msxml2.xmlhttp dan adodb.stream untuk mengumpulkan gambar

Penulis：Eve Cole Waktu Pembaruan：2025-04-22 00:32:01

利用 msxml2.xmlhttp 和 adodb.stream

复制代码代码如下:

<! Doctypehtmlpublic "-// w3c // dtdxhtml1.0transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">

<head>

<title> asp 采集图片测试 </iteme>

<metahttp-equiv = "konten-tipe" 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 = tidak ada

Iferr.number <> 0thenerr.clear

Fungsi endfungsi

Subsave2local (dari, tofile)

DimgetUrl, objstream, imgs

GetUrl = trim (dari)

Imgs = getHttpimg (getUrl)

SetoBjStream = server.CreateObject ("adodb.stream")

Objstream.type = 1

Objstream.open

Objstream.writeimgs

Objstream.savetofiletofile, 2

Objstream.close ()

Setobjstream = tidak ada

'Response.write ("Theimghassaved!")

Endsub

CallAve2local ("// 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 版版版版转换组件属性属性属性属性属性属性属性属性属性 n) 800A0BBC 问题