<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/bopan1.asp" -->
<!--#include file="Connections/z921.asp" -->
<%
Dim tjhy
Dim tjhy_numRows

Set tjhy = Server.CreateObject("ADODB.Recordset")
tjhy.ActiveConnection = MM_z921_STRING
tjhy.Source = "SELECT * FROM tj_sy2 ORDER BY id DESC"
tjhy.CursorType = 0
tjhy.CursorLocation = 2
tjhy.LockType = 1
tjhy.Open()

tjhy_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 200
Repeat1__index = 0
tjhy_numRows = tjhy_numRows + Repeat1__numRows
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim tjhy_total
Dim tjhy_first
Dim tjhy_last

' set the record count
tjhy_total = tjhy.RecordCount

' set the number of rows displayed on this page
If (tjhy_numRows < 0) Then
  tjhy_numRows = tjhy_total
Elseif (tjhy_numRows = 0) Then
  tjhy_numRows = 1
End If

' set the first and last displayed record
tjhy_first = 1
tjhy_last  = tjhy_first + tjhy_numRows - 1

' if we have the correct record count, check the other stats
If (tjhy_total <> -1) Then
  If (tjhy_first > tjhy_total) Then
    tjhy_first = tjhy_total
  End If
  If (tjhy_last > tjhy_total) Then
    tjhy_last = tjhy_total
  End If
  If (tjhy_numRows > tjhy_total) Then
    tjhy_numRows = tjhy_total
  End If
End If
%>
<%
Dim MM_paramName 
%>
<%
' *** Move To Record and Go To Record: declare variables

Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined

Dim MM_param
Dim MM_index

Set MM_rs    = tjhy
MM_rsCount   = tjhy_total
MM_size      = tjhy_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  MM_param = Request.QueryString("index")
  If (MM_param = "") Then
    MM_param = Request.QueryString("offset")
  End If
  If (MM_param <> "") Then
    MM_offset = Int(MM_param)
  End If

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' move the cursor to the selected record
  MM_index = 0
  While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend
  If (MM_rs.EOF) Then 
    MM_offset = MM_index  ' set MM_offset to the last possible record
  End If

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  MM_index = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = MM_index
    If (MM_size < 0 Or MM_size > MM_rsCount) Then
      MM_size = MM_rsCount
    End If
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  ' move the cursor to the selected record
  MM_index = 0
  While (Not MM_rs.EOF And MM_index < MM_offset)
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
tjhy_first = MM_offset + 1
tjhy_last  = MM_offset + MM_size

If (MM_rsCount <> -1) Then
  If (tjhy_first > MM_rsCount) Then
    tjhy_first = MM_rsCount
  End If
  If (tjhy_last > MM_rsCount) Then
    tjhy_last = MM_rsCount
  End If
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    MM_paramList = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For MM_paramIndex = 0 To UBound(MM_paramList)
      MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
      If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then 
  MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
End If

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"
MM_moveLast  = MM_urlStr & "-1"
MM_moveNext  = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
  MM_movePrev = MM_urlStr & "0"
Else
  MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
<%
Function StrLenB( strString )
 dim intLoop,intReturn
 if isNull(strString) then
  StrLenB = 0
  exit Function
 end if
 intReturn = len(strString)
 for intLoop = 1 to len(strString)
  if ( asc( mid( strString, intLoop, 1 ) ) < 0 ) then intReturn = intReturn + 1
 next
 StrLenB = intReturn
End Function

Function strLeftB( strString ,intLen)
 dim intLenB,intLoop
 if StrLenB(strString) < intLen then
  strLeftB = strString
  exit Function
 end if
 for intLoop = 1 to Len(strString)
  if ( asc( mid( strString, intLoop, 1 ) ) < 0 ) then 
   intLenB = intLenB + 2
  else
   intLenB = intLenB + 1
  end if
  if intLenB > intLen then
   intLoop = intLoop - 1
   exit for
  elseif intLenB = intLen then
   exit for
  end if 
 next
 strLeftB = left(strString,intLoop)
End Function

Function IsLetter( chr )
 dim blnReturn
 blnReturn = false
 if ( ( chr >= asc("a") and chr <= asc("z") )  or ( chr >= asc("A") and chr <= asc("Z") ) or  ( chr >= asc("0") and chr <= asc("9") )  ) then
  blnReturn = true
 end if
 IsLetter = blnReturn
End Function

Function AlignString( string, byVal size )
 dim r,nLen,n,i,a,s_i
 r = string
 nLen = StrLenB( string ) 
 ' if string's width less then size ,return this string .
 if  ( nLen > size ) then
  size = size - 2
  n = 0
  i = 1
  ' cut to index
  do while ( i )
   a = asc( mid( string, i, 1 ) )
   if ( a < 0 ) then 
    if ( n + 1 = size ) then 
     i = i - 1
     exit do
    end if
    n = n + 1
   end if
   n = n + 1
   if ( n = size ) then exit do
   
   i = i + 1
  loop
  'fxDebug( i ) 
  s_i = i 
  a = asc( mid( string, i+1, 1 ) )
  if ( IsLetter(a) ) then
   do while ( 1 )
    a = asc( mid( string, i, 1  ) )
    if ( not IsLetter(a) ) then exit do
    i = i -1
    if  ( i = 0 ) then 
     i = s_i
     exit do
    end if
   loop
  end if

  r = mid( string, 1, i ) & "..."
 end if
 AlignString = r
End Function
%>
<%
Dim newindex
Dim newindex_numRows

Set newindex = Server.CreateObject("ADODB.Recordset")
newindex.ActiveConnection = MM_ubbnews_STRING
newindex.Source = "SELECT * FROM newindex"
newindex.CursorType = 0
newindex.CursorLocation = 2
newindex.LockType = 1
newindex.Open()

newindex_numRows = 0
%>

<%
Dim j2
Dim j2_numRows

Set j2 = Server.CreateObject("ADODB.Recordset")
j2.ActiveConnection = MM_ubbnews_STRING
j2.Source = "SELECT * FROM tj2"
j2.CursorType = 0
j2.CursorLocation = 2
j2.LockType = 1
j2.Open()

j2_numRows = 0
%>
<%
Dim come
Dim come_numRows

Set come = Server.CreateObject("ADODB.Recordset")
come.ActiveConnection = MM_ubbnews_STRING
come.Source = "SELECT * FROM co"
come.CursorType = 0
come.CursorLocation = 2
come.LockType = 1
come.Open()

come_numRows = 0
%>
<%
o = Mid(Date, 6, Date)
k = InStr(1, o, "-")
l= Mid(o, 1, k - 1)
%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID > -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID > -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID > -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
</SCRIPT>									
<html>
<head>
<title>免费足球推介门户网站</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- Fireworks MX Dreamweaver MX target.  Created Thu Jul 22 22:32:44 GMT+0800 (?D1ú±ê×?ê±??) 2004-->
<link href="STYLE.CSS" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--



function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<style type="text/css">
<!--
.style2 {color: #000000}
.style10 {
	font-size: 9pt;
	color: #999;
	font-weight: bold;
}
body {
	margin-top: 0px;
	margin-bottom: 0px;
	background-image: url();
	background-color: #FFF;
	margin-left: 0px;
	margin-right: 0px;
}
.xian {border-color: black black #666666; border-style: solid; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px}
body,td,th {
	font-family: 宋体;
	font-size: 9pt;
	color: #F00;
}
.样式11 {FONT-SIZE: 9pt; COLOR: #0000ff
}
.样式113 {color: #000000; font-size: 9pt; }
.样式27 {FONT-SIZE: 18pt
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: underline;
	color: #FF0000;
}
a:active {
	text-decoration: none;
}
.style29 {
	color: #F00;
	font-weight: bold;
}
.STYLE21 {	COLOR: #999999
}
.STYLE21 {	COLOR: #ff0000
}
.style27 {color: #990000}
.style33 {	color: #FFFFFF;
	font-weight: bold;
}
.style34 {font-weight: bold}
.style35 {font-size: 12pt}
.style36 {
	color: #666666;
	font-weight: bold;
}
.style37 {
	COLOR: #FFFFFF;
	font-size: 9pt;
	font-weight: bold;
}
.style38 {color: #0000FF}
.style39 {
	font-size: 9pt;
	font-weight: bold;
	color: #999;
}
.style16 {
	color: #666
}
.style43 {color: #FFFFFF}
.style47 {color: #CCCCCC}
.style7 {font-size: 10pt}
.style48 {color: #FFFFFF; font-size: 10pt;}
.style49 {
	font-size: 9pt;
	color: #993300;
	font-weight: bold;
}
.style391 {font-size: 9pt; color: #993300;}
.style391 {font-size: 9pt;
	font-weight: bold;
	color: #999;
}
-->
</style>
</head>
<div align="center"><BODY oncontextmenu=self.event.returnValue=false onselectstart="return false">
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
border=0>
  <TBODY>
    <TR>
      <TD height=20><div align="center">
        <TABLE width="100%" border=0 align="center" cellPadding=0 cellSpacing=1 bgcolor="#cccccc">
          <tr bgcolor="#ff0000">
            <td height="29" bgcolor="#CC9933"><div align="center" class="style48">开赛日期</div></td>
            <td bgcolor="#CC9933"><div align="center" class="style48">联赛时间</div></td>
            <td bgcolor="#CC9933"><div align="center" class="style48">上盘</div></td>
            <td bgcolor="#CC9933"><div align="center" class="style48">盘口</div></td>
            <td bgcolor="#CC9933"><div align="center" class="style48">下盘</div></td>
            <td bgcolor="#CC9933"><div align="center" class="style48"><strong>会员推荐</strong><span class="style391"><a href='javascript:location.reload();' class="style7"></a></span></div></td>
            <td bgcolor="#CC9933"><div align="center" class="style48">比分</div></td>
            <td bgcolor="#CC9933"><div align="center" class="style48">结果 </div></td>
          </tr>
          <TBODY>
            <% 
While ((Repeat1__numRows <> 0) AND (NOT tjhy.EOF)) 
%>
            <TR onMouseOver="this.bgColor='#D2E1FF';" 
        onmouseout="this.bgColor='#F7F7F5';" align=middle bgColor=#F7F7F5>
              <TD width="13%" height=34 bgcolor="#FFFFFF"><div align="center" class="style22 style39"><%= DoDateTime((tjhy.Fields.Item("ondate").Value), 2, -2) %></div></TD>
              <TD width="14%" bgcolor="#FFFFFF"><div align="center"><span class="style10"><%=(tjhy.Fields.Item("tjlv").Value)%></span></div></TD>
              <TD width="19%" height=34 bgcolor="#FFFFFF"><div align="center" class="style22 style39"><%=(tjhy.Fields.Item("sp").Value)%></div></TD>
              <TD width="8%" height=34 bgcolor="#FFFFFF"><div align="center" class="style39 style22"><%=(tjhy.Fields.Item("yq").Value)%></div></TD>
              <TD width="14%" height=34 bgcolor="#FFFFFF"><div align="center" class="style22 style39"><%=(tjhy.Fields.Item("xp").Value)%></div></TD>
              <TD width="17%" bgcolor="#FFFF00"><div align="center">
                <TABLE width="100%" 
                  border=0 align="center" 
                  cellPadding=0 cellSpacing=0 class="force">
                  <TBODY>
                    <TR bgcolor="#0033FF">
                      <% if tjhy.Fields.Item("ondate").Value=<now() then%>
                      <TD width="100%" height="13" bgcolor="#FFFF00"><div align="center" class="style29"><%=(tjhy.Fields.Item("tj").Value)%></div></TD>
                      <%else%>
                      <TD width="100%" bgcolor="#FFFF00"><div align="center" class="style10"><span class="style29">临场公开</span></div></TD>
                      <%end if%>
                    </TR>
                  </TBODY>
                </TABLE>
              </div></TD>
              <TD width="13%" bgcolor="#FFFFFF"><div align="center" class="style49"><%=(tjhy.Fields.Item("cg").Value)%></div></TD>
              <TD width="2%" bgcolor="#FFFFFF"><div align="center"><font color="#FFFFFF"><img src="<%=(tjhy.Fields.Item("sf").Value)%>" width="30" height="30"></font></div></TD>
            </TR>
            <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  tjhy.MoveNext()
Wend
%>
          </TBODY>
        </TABLE>
      </div></TD>
    </TR>
    <TR>
      <TD height=5></TD>
    </TR>
  </TBODY>
</TABLE>
</body>
</html>