用ASP编写下载网页中所有资源的程序

看过一篇关于下载网页中图片的文章，它只能下载以http头的图片，我做了些改进，可以下载网页中的所有连接资源，并按照网页中的目录结构建立本地目录，存放资源。

download.ASP?url=你要下载的网页

download.asp代码如下：

＜%

Server.ScriptTimeout=9999

function SaveToFile(from,tofile)

on error resume next

dim geturl,objStream,imgs

geturl=trim(from)

Mybyval=getHTTPstr(geturl)

Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Type =1

objStream.Open

objstream.write Mybyval

objstream.SaveToFile tofile,2

objstream.Close()

set objstream=nothing

if err.number＜＞0 then err.Clear

end function

function geturlencodel(byval url)'中文文件名转换

Dim i,code

geturlencodel=""

if trim(Url)="" then exit function

for i=1 to len(Url)

code=Asc(mid(Url,i,1))

if code＜0 Then code = code + 65536

If code＞255 Then

geturlencodel=geturlencodel&"%"&Left(Hex(Code),2)&"%"&Right(Hex(Code),2)

else

geturlencodel=geturlencodel&mid(Url,i,1)

end if

next

end function

function getHTTPPage(url)

on error resume next

dim http

set http=Server.createobject("MsXML2.XMLHTTP")

Http.open "GET",url,false

Http.send()

if Http.readystate＜＞4 then exit function

getHTTPPage=bytes2BSTR(Http.responseBody)

set http=nothing

if err.number＜＞0 then err.Clear

end function