ASP小偷偷取地址并生成html

<%

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("生成首页成功<a href='../index.htm' target='_blank'>../index.htm</a>")

end if

%>