[全国最快报码室]
[十秒刷新本页]
<% On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(Path) t = GETBody(Path) End function '上面的常用函数'首先.进行小偷程序的一些初始化设置.以上代码的作用分别是忽略掉所有非致命性错误.把小偷程序的运行超时时间设置得很长.这样不会出现运行超时的错误. '---------------------------------盗窃开始设置--------------------------------------------- ' WAP源码之家-手机:http://wapvy.cn电脑:http://www.wapvy.cn '1、下面是经典的小偷核发心源码.输入url目标网页地址.返回值getHTTPPage是目标网页的代码 function getHTTPPage(url) dim Http set Http=server.createobject("Microsoft.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8") '注意WAP网页用utf-8,WEB用gb2312 set http=nothing if err.number<>0 then err.Clear end function '------------------------------------------------------------------------------------------ '2、转换乱玛.直接用xmlhttp调用有中文字符的网页得到的将是乱玛.可以通过adodb.stream组件进行转换 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 '============================================================ ' 更新: 2008-4-28 ' 主页: http://wap.twapp.cn ' 电邮: xivn@163.com ' Q Q : QQ:531233814 ' 版权: 燃点真情 All Rights Reserved. '============================================================ Dim Url,Html,start,over,body,wap,wstr,str Url="http://zx.mingban.net/lottery/yardbar.do" wstr=getHTTPPage(Url) start=Instr(wstr,"

") over=Instr(wstr,"----------") body=mid(wstr,start,over-start) body= Splitss(body) Function Splitss(StrHTML) Dim Re,Str Str = StrHTML Set Re = New Regexp Re.IgnoreCase = True Re.Global = True Re.Pattern = "[\s\S]+?
" Str = Re.Replace(Str, "") Re.Pattern = "[\s\S]+?" Str = Re.Replace(Str, "") Splitss = Str Set Re = Nothing End Function '------------------------------------------------ body = replace(body,"[URL=http://wap.mingban.net/rich/threadDetail.jsp?(BiQo073
","") body = replace(body,"最便宜[/url]
","") body = replace(body,"

","") body = replace(body,"----------
","") body = replace(body,"【香港亚视同步报码】
","") body = replace(body,"分","开奖") '-------------------------------------------------- Response.write body %> <% response.write "
返回网站首页
" response.write""&Month(Now)&"月"&Day(Now)&"日"&FormatDateTime(Now,vbshortTime)&"" response.write "