<!-- #include VIRTUAL="/bbs/inc.asp" -->
<%
'=============================
call head()
Call cardgame("比分直播",yanse)
%>
<!--#include file="conn.asp"-->
<% 
dim mt,l
mt=request("mt")
l=request("l")
if  mt="" then mt=1
Dim Url,Html,start,over,body,wap,wstr,str
Url="http://wap.7m.cn/jt/result/live.aspx?l="&l&"&mt="&mt&""
wstr=getHTTPPage(Url)
start=Instr(wstr,"<b>")
over=Instr(wstr,"<a href=""../default.aspx"">[即时比分]</a>")
body=mid(wstr,start,over-start)
'------------------------------------------------
body = replace(body,"<p align=""left"">","")
body = replace(body,"<p align=""center"">","")
body = replace(body,"<p>","")
body = replace(body,"</p>","")
body = replace(body,".aspx",".asp")
body = replace(body,"League.asp?","League2.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;")
body = replace(body,"league.asp?","League2.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;")
body = replace(body,"live.asp?","live2.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;")
body = replace(body,"&amp;auto=1","")
body = replace(body,"<a href=""date_result.asp"">[按日期查询]</a><br/>","")
body = replace(body,"停止刷新","刷新")
Dim Re
	Set Re = New Regexp
	Re.IgnoreCase = True
	Re.Global = True
	Re.Pattern = "<a.href=.http://discuss.7m.cn/wap/gb/[\s\S]+?评[\s\S]+?</a>"
	body = Re.Replace(body, "")
Set Re = Nothing
'--------------------------------------------------
Response.write body
Response.write "<a href=""default_l.asp?typeID=1&amp;sid="&sid&"&amp;saytk="&saytk&""">[即时比分]</a>|<a href=""default_l.asp?typeID=2&amp;sid="&sid&"&amp;saytk="&saytk&""">[完场比分]</a><br/><a href=""../index.asp?sid="&sid&"&amp;saytk="&saytk&""">球彩</a>&gt;<a href=""../bbs/show.asp?sid="&sid&"&amp;saytk="&saytk&""">地盘</a>&gt;<a href=""/bbs/index.asp?sid="&sid&"&amp;saytk="&saytk&""">社区首页</a><br/>(c) "&Request.ServerVariables("SERVER_NAME")&"["&String(2-Len(hour(now)),"0") & hour(now) &":"&String(2-len(minute(now)),"0") & minute(now)&"]"
call headsay()%>

