<%

'名称：asp通用采集函数冗余版，要精品版的有心人自己改

'作者：柳永法

'日期：2007-6-23

FunctiongetHTTPPage(Path)

t=GetBody(Path)

getHTTPPage=BytesToBstr(t,"GB2312")

EndFunction

FunctionGetBody(url)

OnErrorResumeNext

Setxmlhttp=CreateObject("Microsoft.XMLHTTP")

Withxmlhttp

.Open"Get",url,False,"",""

.Send

.waitForResponse1000

GetBody=.ResponseBody

EndWith

Setxmlhttp=Nothing

EndFunction

FunctionBytesToBstr(Body,Cset)

OnErrorResumeNext

Dimobjstream

Setobjstream=Server.CreateObject("adodb.stream")

objstream.Type=1

objstream.Mode=3

objstream.Open

objstream.WriteBody

objstream.Position=0

objstream.Type=2

objstream.Charset=Cset

BytesToBstr=objstream.ReadText

objstream.Close

Setobjstream=Nothing

EndFunction

FunctiongetHTTPimg(url)

OnErrorResumeNext

Dimxmlhttp

Setxmlhttp=server.CreateObject("MSXML2.XMLHTTP")

xmlhttp.Open"GET",url,false

xmlhttp.send()

Ifxmlhttp.Status<>200ThenExitFunction

getHTTPimg=xmlhttp.responseBody

Setxmlhttp=Nothing

IfErr.Number<>0ThenErr.Clear

EndFunction

FunctionSave2Local(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

EndFunction

%>

<%

NowDir=server.mappath("/")

CallSave2Local("http://www.baidu.com/img/logo.gif",NowDir&"baidulogo.gif")

CallSave2Local("http://flash.jninfo.net/images/banner.swf",NowDir&"banner.swf")

CallSave2Local("http://www.jb51.net.com/",NowDir&"jb51.htmll")

response.WritegetHTTPPage("http://www.jb51.net/")

%>