<%
dim crs,csqlStr,UpTime,DownTime,i
UpTime = DateAdd("d",2,now())
DownTime = DateAdd("d",-1,now())
csqlStr = "SELECT * FROM [MatchAdvice] WHERE ( [MatchTime] BETWEEN #"& DownTime &"# AND #"& UpTime &"# ) AND AdviceType=2 ORDER BY [MatchTime] DESC"
set crs=Server.Createobject("adodb.recordset")
crs.open csqlStr,conn,3,1
if not crs.bof then
crs.movefirst
end if
i = 0
If crs.RecordCount > 0 Then
Do Until crs.eof
dim cMTime,cATeam,vMTime
cMTime = Month(crs("MatchTime"))&"月"&Day(crs("MatchTime"))&"日"
vMTime = Hour(crs("MatchTime"))&"时"& minute(crs("MatchTime"))&"分"
If crs("AdviceTeam") = 1 Then
cATeam = crs("UpTeam")
Elseif crs("AdviceTeam") = 2 Then
cATeam = crs("DownTeam")
Else
cATeam = crs("AdviceRemark")
End If
%>
VIP訂購
-
待
荷甲
03月14日
阿積士
半球
PSV燕豪芬
阿積士
4-1
贏
英超
03月13日
保頓
半球
韋根
保頓
4-0
贏
意甲
03月13日
國際米蘭
半球
卡坦尼亞
卡坦尼亞
1-3
贏
欧霸杯
03月12日
卡山魯賓
半球
沃爾夫斯堡
沃爾夫斯堡
1-1
贏
欧冠杯
03月11日
曼聯
半球/一球
AC米蘭
曼聯
4-0
贏
VIP重點推介
類型
时间
上盘
让球
下盘
推荐
比分
賽果
VIP訂購
-
待
意甲
03月14日
熱拿亞
半球
卡利亞里
熱拿亞
5-3
贏
英超
03月13日
阿士東維拉
平手/半球
史篤城
史篤城
0-0
贏
意乙
03月13日
維琴察
平手
布雷西亞
維琴察
1-0
贏
欧霸杯
03月12日
華倫西亞
半球
雲達不萊梅
雲達不萊梅
1-1
贏
英超
03月11日
般尼
平手/半球
史篤城
史篤城
1-1
贏
<%
dim crs,csqlStr,UpTime,DownTime,i
UpTime = DateAdd("d",2,now())
DownTime = DateAdd("d",-1,now())
csqlStr = "SELECT * FROM [MatchAdvice] WHERE ( [MatchTime] BETWEEN #"& DownTime &"# AND #"& UpTime &"# ) AND AdviceType=2 ORDER BY [MatchTime] DESC"
set crs=Server.Createobject("adodb.recordset")
crs.open csqlStr,conn,3,1
if not crs.bof then
crs.movefirst
end if
i = 0
If crs.RecordCount > 0 Then
Do Until crs.eof
dim cMTime,cATeam,vMTime
cMTime = Month(crs("MatchTime"))&"月"&Day(crs("MatchTime"))&"日"
vMTime = Hour(crs("MatchTime"))&"时"& minute(crs("MatchTime"))&"分"
If crs("AdviceTeam") = 1 Then
cATeam = crs("UpTeam")
Elseif crs("AdviceTeam") = 2 Then
cATeam = crs("DownTeam")
Else
cATeam = crs("AdviceRemark")
End If
%>
<%
crs.movenext
i = i + 1
loop
End If
crs.close
set crs = nothing
%>
免費公開推薦
類型
时间
上盘
让球
下盘
推荐
比分
参考
英超
03月14日
曼城
半球
新特蘭
新特蘭
1-1
☆☆☆
德甲
03月14日
雲達不萊梅
平手/半球
賀芬咸
雲達不萊梅
1-0
☆☆☆
意乙
03月13日
安科納
平手
拖連奴
安科納
2-1
☆☆☆
欧霸杯
03月12日
馬德里體育會
半球/一球
士砵亭
士砵亭
0-0
☆☆☆
<%
dim crs,csqlStr,UpTime,DownTime,i
UpTime = DateAdd("d",2,now())
DownTime = DateAdd("d",-1,now())
csqlStr = "SELECT * FROM [MatchAdvice] WHERE ( [MatchTime] BETWEEN #"& DownTime &"# AND #"& UpTime &"# ) AND AdviceType=2 ORDER BY [MatchTime] DESC"
set crs=Server.Createobject("adodb.recordset")
crs.open csqlStr,conn,3,1
if not crs.bof then
crs.movefirst
end if
i = 0
If crs.RecordCount > 0 Then
Do Until crs.eof
dim cMTime,cATeam,vMTime
cMTime = Month(crs("MatchTime"))&"月"&Day(crs("MatchTime"))&"日"
vMTime = Hour(crs("MatchTime"))&"时"& minute(crs("MatchTime"))&"分"
If crs("AdviceTeam") = 1 Then
cATeam = crs("UpTeam")
Elseif crs("AdviceTeam") = 2 Then
cATeam = crs("DownTeam")
Else
cATeam = crs("AdviceRemark")
End If
%>
<%
crs.movenext
i = i + 1
loop
End If
crs.close
set crs = nothing
%>