|
|
|
|
|
 |
|
|
|
|
|
|
<%
dim ars,asqlStr,UpTime,DownTime,i
UpTime = DateAdd("d",2,now())
DownTime = DateAdd("d",-1,now())
asqlStr = "SELECT * FROM [MatchAdvice] WHERE ( [MatchTime] BETWEEN #"& DownTime &"# AND #"& UpTime &"# ) AND AdviceType=0 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
MTime = Month(ars("MatchTime"))&"-"&Day(ars("MatchTime"))
If ars("AdviceTeam") = 1 Then
ATeam = ars("UpTeam")
Elseif ars("AdviceTeam") = 2 Then
ATeam = ars("DownTeam")
Else
ATeam = ars("AdviceRemark")
End If
%>
| <%=MTime%> |
<%=ars("UpTeam")%> |
<%=ars("AmNum")%> |
<%=ars("DownTeam")%> |
<%=ATeam%> |
<%
Dim aResultStr
Select Case ars("MatchResult")
Case 0 aResultStr ="images/A.gif"
Case 1 aResultStr ="images/A.gif"
Case 2 aResultStr ="images/A.gif"
Case 3 aResultStr ="images/AA.gif"
Case 4 aResultStr ="images/AAA.gif"
Case 5 aResultStr ="images/AAA.gif"
Case 6 aResultStr ="images/AAA.gif"
Case Else aResultStr ="images/A.gif"
End Select
%> |
<%
ars.MoveNext
i = i + 1
loop
End If
ars.Close
Set ars = Nothing
%>
| |
|
|
|
|
<%
dim brs,bsqlStr
UpTime = DateAdd("d",2,now())
DownTime = DateAdd("d",-8,now())
bsqlStr = "SELECT * FROM [MatchAdvice] WHERE ( [MatchTime] BETWEEN #"& DownTime &"# AND #"& UpTime &"# ) AND AdviceType=1 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
%>
| |
|
|
|
|
|
|
<%
dim crs,csqlStr
UpTime = DateAdd("d",2,now())
DownTime = DateAdd("d",-15,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,cBfen
cMTime = Month(crs("MatchTime"))&"-"&Day(crs("MatchTime"))
If DateDiff("n",CDate(crs("FixTime")),Now())> 0 Then
If crs("AdviceTeam") = 1 Then
cATeam = crs("UpTeam")
Elseif crs("AdviceTeam") = 2 Then
cATeam = crs("DownTeam")
Else
cATeam = crs("AdviceRemark")
End If
Else
cATeam = Hour(crs("FixTime"))&":"&Minute(crs("FixTime")) &"公佈"
End If
If Len(crs("MatchScore")) < 2 Then
cBfen = "未知"
Else
cBfen = crs("MatchScore")
End If
%>
| <%=cMTime%> |
<%=crs("UpTeam")%> |
<%=crs("AmNum")%> |
<%=crs("DownTeam")%> |
<%=cATeam%> |
<%=cBfen%> |
<%
Dim cResultStr
Select Case crs("MatchResult")
Case 0 cResultStr ="images/ying.gif"
Case 1 cResultStr ="images/ying.gif"
Case 2 cResultStr ="images/ying.gif"
Case 3 cResultStr ="images/zhou.gif"
Case 4 cResultStr ="images/fu.gif"
Case 5 cResultStr ="images/fu.gif"
Case 6 cResultStr ="images/fu.gif"
Case Else cResultStr ="images/ying.gif"
End Select
%> | <%
crs.movenext
i = i + 1
loop
End If
crs.close
set crs = nothing
%>
| |
|
| |
