<%
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
%>
欧冠杯
03月11日
曼聯
半球/一球
AC米蘭
VIP訂購
-
待
英超
03月10日
新特蘭
半球
保頓
新特蘭
4-0
贏
英超
03月09日
利物浦
半球/一球
韋根
韋根
0-1
贏
意甲
03月07日
森多利亞
半球
拉素
森多利亞
2-1
贏
英超
03月06日
韋斯咸
半球/一球
保頓
保頓
1-2
贏
亚洲杯
03月03日
阿曼
半球
科威特
科威特
0-0
贏
VIP重點推介
類型
时间
上盘
让球
下盘
推荐
比分
賽果
英超
03月11日
般尼
平手/半球
史篤城
VIP訂購
-
待
欧冠杯
03月10日
拜仁慕尼黑
平手/半球
費倫天拿
費倫天拿
2-3
贏
德乙
03月09日
比勒費爾德
半球/一球
卡斯魯厄
卡斯魯厄
0-1
贏
奥甲
03月07日
維也納迅速
半球/一球
卡芬堡
卡芬堡
2-2
贏
英冠
03月06日
紐卡素
一球/球半
班士利
紐卡素
6-1
贏
亚洲杯
03月03日
伊朗
一球
泰國
泰國
1-0
贏
德甲
02月28日
沃爾夫斯堡
半球
漢諾威
漢諾威
1-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
%>
免費公開推薦
類型
时间
上盘
让球
下盘
推荐
比分
参考
欧冠杯
03月11日
皇家馬德里
球半
里昂
皇家馬德里
-
☆☆☆
英冠
03月11日
草蜢
一球
阿勞
阿勞
-
☆☆☆☆
英甲
03月10日
列斯聯
半球
燦美爾
列斯聯
4-1
☆☆☆
英超
03月10日
樸茨茅夫
平手/半球
伯明翰
伯明翰
1-2
☆☆☆
<%
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
%>
