|
客户服务 |
|
电话:13652317619
微信:13652317619
QQ:2137778610
周先生 |
|
广告链接 |
|
|
|
|
辉煌历史专家战绩 |
|
十一大专家强强联手打造临场重点单场推介,3000元/场,13800元/星期. |
|
时间 |
上盘 |
盘口 |
下盘 |
推介 |
赛果 |
成绩 |
<%
dim ars,asqlStr,UpTime,DownTime,i
UpTime = DateAdd("d",2,now())
DownTime = DateAdd("d",-15,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/ying.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
%>
|
|
辉煌历史专家战绩 |
|
十一大专家强强联手打造精选包月推介,3000元/月. |
|
时间 |
上盘 |
盘口 |
下盘 |
推介 |
赛果 |
成绩 |
<%
dim brs,bsqlStr
UpTime = DateAdd("d",2,now())
DownTime = DateAdd("d",-15,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/ying.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
%>
|
|
|
|
