Question

getHTTPPage(url) 源码抓不过来不知道是怎么回事

Answer 1

<%'使用ASP方法function getHTTPPage(url) '输入url目标网页地址，返回值getHTTPPage是目标网页的HTML代码dim Httpset Http=server.createobject("Microsoft.XMLHTTP")Http.open "GET",url,falseHttp.send()if Http.readystate<4 thenexit functionend ifgetHTTPPage=bytesToBSTR(Http.responseBody,"gbk")set http=nothingif err.number<0 then err.Clearend functionFunction BytesToBstr(body,Cset) '转换乱玛，直接用XMLhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换dim objstreamset objstream = Server.CreateObject("adodb.stream")objstream.Type = 1objstream.Mode =3objstream.Openobjstream.Write bodyobjstream.Position = 0objstream.Type = 2objstream.Charset = CsetBytesToBstr = objstream.ReadTextobjstream.Closeset objstream = nothingEnd Function %<%Function re(srcstr, patrn, replStr)Set regEx = New RegExpregEx.Pattern = patrnregEx.IgnoreCase = TrueregEx.Global = TrueregEx.Execute(srcstr)re = regEx.Replace(srcstr, replStr)Set regEx = NothingEnd Function%<%dim concon=getHTTPPage( )response.write con '这样把整个百度站首页就全copy过来了, 用replace方法,把要替换的链接替换掉就可以'这就是小偷程序的核心部分,可以把别人的整站给偷过来%