<!-- #include VIRTUAL="/bbs/inc.asp" -->
<%call ling()

'=============================
call head()
Call cardgame("完场比分",yanse)
%>
<!--#include file="conn.asp"-->
足球赛事>><a href='default_w.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>篮球赛事</a><br/>
<% 

dim typeID
typeID=request("typeID")
if typeID="" or IsNumeric(typeID)=False then typeID=1
typeID=abs(typeID)

Dim Url,Html,start,over,body,wap,wstr,str
if typeID=2 then
%>

<a href='default_l.asp?sid=<%=sid%>&amp;typeID=1&amp;saytk=<%=saytk%>'>即时比分</a>|完场比分<br/>
<%
Url="http://wap.7m.cn/jt/result/default.aspx"
gettxt="<a href=""../default.aspx"">[即时比分]</a>"
else
%>
即时比分|<a href='default_l.asp?sid=<%=sid%>&amp;typeID=2&amp;saytk=<%=saytk%>'>完场比分</a><br/>
<%
Url="http://wap.7m.cn/jt/default.aspx"
gettxt="<a href=""result/default.aspx"">[完场比分]</a>"
end if
wstr=getHTTPPage(Url)
start=Instr(wstr,"<b>")
over=Instr(wstr,gettxt)
body=mid(wstr,start,over-start)
'------------------------------------------------
body = replace(body,"</p>	<p>","<br/>")
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,"<a href=""date_result.asp?sid="&sid&"&amp;saytk="&saytk&""">[按日期查询]</a><br/>","")
if typeID=1 then
body = replace(body,"League.asp?","League.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;")
body = replace(body,"league.asp?","League.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;")
body = replace(body,"live.asp?","live.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;")
else
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;")
end if
'--------------------------------------------------
Response.write body
Response.write "<a href=""default_r.asp?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()%>

