<% Response.ContentType = "text/vnd.wap.wml" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" %>

<% '============================================================ ' 更新: 2007-12-5 ' 主页: http://wap.nowtx.cn ' 电邮: xivn@163.com ' Q Q : QQ:531233814 ' 版权: 燃点真情 All Rights Reserved. '============================================================ dim t t=request("t") if t="" then t=0 Dim Url,Html,start,over,body,wap,wstr,str Url="http://wap.7m.cn/jt/quickLive.aspx?t="&t&"" wstr=getHTTPPage(Url) start=Instr(wstr,"") over=Instr(wstr,"[返回]
") body=mid(wstr,start,over-start) '------------------------------------------------ body = replace(body,"

","") body = replace(body,"

","") body = replace(body,".aspx",".asp") body = replace(body,"League.asp?","League2.asp?sid="&sid&"&") body = replace(body,"league.asp?","League2.asp?sid="&sid&"&") body = replace(body,"live.asp?","live2.asp?sid="&sid&"&") body = replace(body,"&auto=1","") body = replace(body,"停止刷新","刷新") Dim Re Set Re = New Regexp Re.IgnoreCase = True Re.Global = True Re.Pattern = "" body = Re.Replace(body, "") Set Re = Nothing '-------------------------------------------------- Response.write body Response.write "[即时比分]|[完场比分]
球彩>地盘>社区首页
(c) "&Request.ServerVariables("SERVER_NAME")&"["&String(2-Len(hour(now)),"0") & hour(now) &":"&String(2-len(minute(now)),"0") & minute(now)&"]" %>