html偷图片,ASP小偷偷取地址并生成html-ASP教程,ASP应用

function gethttppage(url)

dim http

set http=server.createobject(“msxml2.xmlhttp”)

http.open “get”,url,false

http.send()

if http.readystate<>4 then

exit function

end if

gethttppage=bytestobstr(http.responsebody,”gb2312″)

set http=nothing

if err.number<>0 then err.clear

end function

function bytestobstr(body,cset)

dim objstream

set objstream = server.createobject(“adodb.stream”)

objstream.type = 1

objstream.mode =3

objstream.open

objstream.write body

objstream.position = 0

objstream.type = 2

objstream.charset = cset

bytestobstr = objstream.readtext

objstream.close

set objstream = nothing

end function

dim url,html

url=”http://www.dadui.com/index_mb.asp”

html = gethttppage(url)

dim filename,mdbpath,fso,fout

filename=”../index.htm”

mdbpath=”./”

set fso = server.createobject(“scripting.filesystemobject”)

set fout = fso.createtextfile(server.mappath(“”&filename&””))

fout.write html

fout.close

set fout=nothing

set fso=nothing

if err then

response.write(“生成首页失败”)

else

response.write(“生成首页成功../index.htm”)

end if

%>