<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim tjhy
Dim tjhy_numRows
Set tjhy = Server.CreateObject("ADODB.Recordset")
tjhy.ActiveConnection = MM_z921_STRING
tjhy.Source = "SELECT * FROM tj_sy ORDER BY id DESC"
tjhy.CursorType = 0
tjhy.CursorLocation = 2
tjhy.LockType = 1
tjhy.Open()
tjhy_numRows = 0
%>
<%
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_z921_STRING
Command1.CommandText = "UPDATE connt SET connt = connt + 1 WHERE connt "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
%>
<%
Dim nowtime
Dim nowtime_numRows
Set nowtime = Server.CreateObject("ADODB.Recordset")
nowtime.ActiveConnection = MM_z921_STRING
nowtime.Source = "SELECT * FROM Nowtime ORDER BY id DESC"
nowtime.CursorType = 0
nowtime.CursorLocation = 2
nowtime.LockType = 1
nowtime.Open()
nowtime_numRows = 0
%>
<%
set Command2 = Server.CreateObject("ADODB.Command")
Command2.ActiveConnection = MM_z921_STRING
Command2.CommandText = "INSERT INTO Nowtime (nt1) valueS (1) "
Command2.CommandType = 1
Command2.CommandTimeout = 0
Command2.Prepared = true
Command2.Execute()
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
tjhy_numRows = tjhy_numRows + Repeat1__numRows
%>
Welcome to www.chinatips.com
时间 |
上盤 |
讓球 |
下盤 |
class=unnamed1>推荐 |
输赢 |
<%
While ((Repeat1__numRows <> 0) AND (NOT tjhy.EOF))
%>
<%=(tjhy.Fields.Item("ondate").value)%> |
<%=(tjhy.Fields.Item("sp").value)%> |
<%=(tjhy.Fields.Item("yq").value)%> |
<%=(tjhy.Fields.Item("xp").value)%> |
border=0 align="center" cellPadding=0 cellSpacing=0 class="force"> <% if tjhy.Fields.Item("ondate").value<=nowtime.Fields.Item("nt2").value then%> <%=(tjhy.Fields.Item("tj").value)%> | <%else%> | <%end if%> |
 "> |
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
tjhy.MoveNext()
Wend
%>
<%
tjhy.Close()
Set tjhy = Nothing
%>
<%
nowtime.Close()
Set nowtime = Nothing
%>