|
|
 |
|
 |
网站公告 |
|
黄庭足球信息机构:黄庭协议料:5500/场,黄庭黄金包月4.8B/月。公司所有成绩100%真实，绝不做假。公司本着诚信为本,客户至上的原则,诚心诚意为广大会员提供最好来料,让您轻松月赢百万,24小时服务电话:15012455001
邓先生
QQ:3576832053 |
|
|
黄庭协议料:5.5B/场 |
| 日期 |
上盤 |
讓球 |
下盤 |
推薦 |
比分 |
輸贏 |
<%
dim ars,asqlStr,UpTime,DownTime,i
UpTime = DateAdd("d",2,now())
DownTime = DateAdd("d",-20,now())
asqlStr = "SELECT * FROM [MatchAdvice] WHERE ( [MatchTime] BETWEEN #"& DownTime &"# AND #"& UpTime &"# ) AND AdviceType=1 ORDER BY [MatchTime] DESC"
set ars=Server.Createobject("adodb.recordset")
ars.open asqlStr,conn,3,1
if not ars.bof then
ars.movefirst
end if
i = 0
If ars.RecordCount > 0 Then
Do Until ars.Eof
dim MTime,ATeam,Bfen
MTime = Month(ars("MatchTime"))&"-"&Day(ars("MatchTime"))
If DateDiff("n",CDate(ars("FixTime")),Now())> 0 Then
If ars("AdviceTeam") = 1 Then
ATeam = ars("UpTeam")
Elseif ars("AdviceTeam") = 2 Then
ATeam = ars("DownTeam")
Else
ATeam = ars("AdviceRemark")
End If
Else
ATeam = Hour(ars("FixTime"))&":"&Minute(ars("FixTime")) &"公佈"
End If
If Len(ars("MatchScore")) < 2 Then
Bfen = " "
Else
Bfen = ars("MatchScore")
End If
%>
| <%=MTime%> |
<%=ars("UpTeam")%> |
<%=ars("AmNum")%> |
<%=ars("DownTeam")%> |
<%=ATeam%> |
<%=Bfen%> |
<%
Dim aResultStr
Select Case ars("MatchResult")
Case 0 aResultStr ="images/dai.gif"
Case 1 aResultStr ="images/ying.gif"
Case 2 aResultStr ="images/ying.gif"
Case 3 aResultStr ="images/zhou.gif"
Case 4 aResultStr ="images/fu.gif"
Case 5 aResultStr ="images/fu.gif"
Case 6 aResultStr ="images/fu.gif"
Case Else aResultStr ="images/ying.gif"
End Select
%> |
<%
ars.MoveNext
i = i + 1
loop
End If
ars.Close
Set ars = Nothing
%>
|
|
黄庭黄金包月4.8B/月 |
| 日期 |
上盤 |
讓球 |
下盤 |
推薦 |
比分 |
輸贏 |
<%
dim brs,bsqlStr
UpTime = DateAdd("d",2,now())
DownTime = DateAdd("d",-20,now())
bsqlStr = "SELECT * FROM [MatchAdvice] WHERE ( [MatchTime] BETWEEN #"& DownTime &"# AND #"& UpTime &"# ) AND AdviceType=0 ORDER BY [MatchTime] DESC"
set brs=Server.Createobject("adodb.recordset")
brs.open bsqlStr,conn,3,1
if not brs.bof then
brs.movefirst
end if
i = 0
If brs.RecordCount > 0 Then
Do Until brs.eof
dim bMTime,bATeam,bBfen
bMTime = Month(brs("MatchTime"))&"-"&Day(brs("MatchTime"))
If DateDiff("n",CDate(brs("FixTime")),Now())> 0 Then
If brs("AdviceTeam") = 1 Then
bATeam = brs("UpTeam")
Elseif brs("AdviceTeam") = 2 Then
bATeam = brs("DownTeam")
Else
bATeam = brs("AdviceRemark")
End If
Else
bATeam = Hour(brs("FixTime"))&":"&Minute(brs("FixTime")) &"公佈"
End If
If Len(brs("MatchScore")) < 2 Then
bBfen = " "
Else
bBfen = brs("MatchScore")
End If
%>
| <%=bMTime%> |
<%=brs("UpTeam")%> |
<%=brs("AmNum")%> |
<%=brs("DownTeam")%> |
<%=bATeam%> |
<%=bBfen%> |
<%
Dim bResultStr
Select Case brs("MatchResult")
Case 0 bResultStr ="images/dai.gif"
Case 1 bResultStr ="images/ying.gif"
Case 2 bResultStr ="images/ying.gif"
Case 3 bResultStr ="images/zhou.gif"
Case 4 bResultStr ="images/fu.gif"
Case 5 bResultStr ="images/fu.gif"
Case 6 bResultStr ="images/fu.gif"
Case Else bResultStr ="images/ying.gif"
End Select
%>
 |
<%
brs.movenext
i = i + 1
loop
End If
brs.close
set brs = nothing
%>
|
|
 |
|
