📄 kq_result1.asp.bak
字号:
<!--#include file="manage/mConn.asp"-->
<!--#include file="manage/mConst.asp"-->
<!--#include file="manage/Number_Info.asp"-->
<!--#include file="manage/sk2.asp"-->
<%
Response.Write Page
Function NumberImage1(num)
Select Case num
Case 1,2,7,8,12,13,18,19,23,24,29,30,34,35,40,45,46 '红波
Response.Write "红"
Case 3,4,9,10,14,15,20,25,26,31,36,37,41,42,47,48 '蓝波
Response.Write "蓝"
Case 5,6,11,16,17,21,22,27,28,32,33,38,39,43,44,49 '绿波
Response.Write "绿"
End Select
End Function
Function NumberImage2(num)
Select Case num
Case 12,24,36,48 '红波
Response.Write "鼠"
Case 11,23,35,47 '蓝波
Response.Write "牛"
Case 10,22,34,46 '绿波
Response.Write "虎"
Case 9,21,33,45 '绿波
Response.Write "兔"
Case 8,20,32,44 '绿波
Response.Write "龙"
Case 7,19,31,43 '绿波
Response.Write "蛇"
Case 6,18,30,42 '绿波
Response.Write "马"
Case 5,17,29,41 '绿波
Response.Write "羊"
Case 4,16,28,40 '绿波
Response.Write "猴"
Case 3,15,27,39 '绿波
Response.Write "鸡"
Case 2,14,26,38 '绿波
Response.Write "狗"
Case 1,13,25,37,49 '绿波
Response.Write "猪"
End Select
End Function
Get_Kithe_Para
Set Rs6=Conn.Execute("select top 1 tray_time,affice,tray_switch from m_config")
Dim affice,tray_time,tray_switch
If Not Rs6.Eof Then
affice=Rs6("affice")
tray_time=Rs6("tray_time")
tray_switch=Rs6("tray_switch")
End If
Show_Kithe
Set Rs6=Conn.Execute("Select ID,color From m_color Order By ID")
If Not Rs6.Eof Then
Get_Para_Color=Rs6.GetRows(-1)
End If
Set Rs6=Conn.Execute("Select ID,NN,ND,NA,N1,N2,N3,N4,N5,N6 From m_Kithe Order By ID Desc")
If Not Rs6.Eof and rs6("NA")<>0 Then
Kithe_Table=Rs6.GetRows(-1)
'Kithe_Sum=Ubound(Kithe_Table,2)
End If
Dim Page,StartList,EndList,DiffList,Page_Count,Record_Count,I
StartList=1:EndList=1:DiffList=10:Page_Count=1:Record_Count=Kithe_Sum
If Request("Page")="" Then
Page=1
Else
Page=CInt(Request("Page"))
End If
If (Record_Count+1)-DiffList<=0 Then
Page_Count=1
Else
Page_Count=(Record_Count+1)\DiffList
If (Record_Count+1) Mod DiffList >0 Then
Page_Count=Page_Count+1
End If
End If
If Page<=0 Then
Page=1
End If
If Page>Page_Count Then
Page=Page_Count
End If
If Page=1 Then
StartList=0
EndList=DiffList-1
Else
StartList=(Page-1)*DiffList
EndList=DiffList*Page-1
End If
If StartList>Record_Count Then
StartList=Record_Count
End If
If EndList>Record_Count Then
EndList=Record_Count
End If
%>
<HTML><HEAD><TITLE>Kq_result</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="images/client_LT_game.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2600.0" name=GENERATOR><style type="text/css">
<!--
body,td,th {
color: #FF0000;
}
-->
</style></HEAD>
<BODY oncontextmenu=window.event.returnValue=false bgColor=#e5eaee leftMargin=0
topMargin=0>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD vAlign=top bgColor=#FFFFFF>
<TABLE height=96 cellSpacing=0 cellPadding=0 width="96%" align=center
border=0>
<TBODY>
<TR>
<TD colSpan=3 height="100%">
<TABLE cellSpacing=1 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=5></TD></TR>
<TR>
<TD>
<TABLE width="100%" border=0
align=left cellPadding=2 cellSpacing=1 bgcolor="cccccc">
<TBODY>
<TR>
<TD class=td_02 width="99%" bgColor=#FFFFCC><FONT
size=2>
<MARQUEE class=td_02 scrollDelay=120>
<%=affice%>
</MARQUEE>
</FONT></TD>
</TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=5></TD></TR></TBODY></TABLE></TD></TR></TBODY>
<FORM name=myFORM action=kq_result.asp method=get>
<TBODY>
<TR>
<TD>
<TABLE class=table_banner cellSpacing=0 cellPadding=0
width=100% border=0>
<TBODY>
<TR>
<TD>
<TABLE class=banner_set height=24 cellSpacing=0
cellPadding=0 width="100%" border=0>
<TBODY>
<TR bgColor=#ffffcc>
<TD width=130 height=12><A
href="http://www.hkjc.com/chinese/mark6/results.asp"
target=_blank>香港马会开奖结果</A></TD>
<TD width=50 height=12> </TD>
<TD align=right width=200>总页数: <SELECT
class=select_lef
onchange="window.location = this.options[this.selectedIndex].value;">
<%For I=1 To Page_Count
Response.Write ("<Option Value=?Page="&I&"")
If Page=I Then
Response.Write (" selected ")
End If
Response.Write (">"&I&"</Option>")
Next
%>
</SELECT>/ <%=Page_Count%> 页
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></FORM></TBODY></TABLE>
<TABLE class=table_title_line height=8 cellSpacing=0 cellPadding=0
width=100% border=0>
<TBODY>
<TR>
<TD>
<TABLE width="100%" border=1 cellpadding="2" cellspacing="1">
<TBODY>
<TR class=tr_title_set_cen>
<TD align=middle width="10%" bgColor=#FFFF99
rowSpan=2>期数</TD>
<TD noWrap bgColor=#FFFF99 rowSpan=2><DIV align=center>时间</DIV></TD>
<TD class=title_00 bgColor=#9d2e2e colSpan=15><DIV align=center>彩球号码</DIV></TD>
</TR>
<TR class=tr_title_set_cen>
<TD class=title_02 align=middle width="9%"
bgColor=#FFFF00>正码一</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#FFFF00>正码二</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#FFFF00>正码三</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#FFFF00>正码四</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#FFFF00>正码五</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#FFFF00>正码六</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#FFFF00>特别号</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#FFFF00>总合</TD>
<TD class=title_02 align=center width="50"
bgColor=#FFFF99>特码单双</TD>
<TD class=title_02 align=center width="50"
bgColor=#FFFF99>特码大小</TD>
<TD class=title_02 align=center width="50"
bgColor=#FFFF99>合数单双</TD>
<TD class=title_02 align=center width="50"
bgColor=#FFFF99>总分单双</TD>
<TD class=title_02 align=center width="50"
bgColor=#FFFF99>总分大小</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#FFFF99>生肖</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#FFFF99>色波</TD>
</TR>
<%For I=StartList To EndList%>
<TR class=list_cen><%if Kithe_Table(3,0)=0 then
I=I+1
end if%>
<TD align=middle bgcolor="#FBF8D7"><%if Kithe_Table(1,I)>9 and Kithe_Table(1,I)<100 then
response.Write "0"
end if
if Kithe_Table(1,I)<10 then
response.Write "00"
end if
response.Write Kithe_Table(1,I)%></TD>
<TD noWrap align=middle bgColor=#FFFFCC>
<%response.Write year(Kithe_Table(2,I))&"-"
if month(Kithe_Table(2,I))<10 then
response.Write "0"
end if
response.Write month(Kithe_Table(2,I))&"-"
if day(Kithe_Table(2,I))<10 then
response.Write "0"
end if
response.Write day(Kithe_Table(2,I))
%></TD>
<TD class=ball_td align=middle width=9%
bgColor=#c1d7e5
height=27>
<img src="img/num<%=Kithe_Table(4,I)%>.gif">
</TD>
<TD class=ball_td align=middle width=9%
bgColor=#c1d7e5
height=27> <img src="img/num<%=Kithe_Table(5,I)%>.gif"> </TD>
<TD class=ball_td align=middle width=9%
bgColor=#c1d7e5
height=27> <img src="img/num<%=Kithe_Table(6,I)%>.gif"> </TD>
<TD class=ball_td align=middle width=9%
bgColor=#c1d7e5
height=27> <img src="img/num<%=Kithe_Table(7,I)%>.gif"> </TD>
<TD class=ball_td align=middle width=9%
bgColor=#c1d7e5
height=27> <img src="img/num<%=Kithe_Table(8,I)%>.gif"> </TD>
<TD class=ball_td align=middle width=9%
bgColor=#c1d7e5
height=27> <img src="img/num<%=Kithe_Table(9,I)%>.gif"> </TD>
<TD class=ball_td align=middle width=9%
bgColor=#c1d7e5
height=27> <img src="img/num<%=Kithe_Table(3,I)%>.gif"> </TD>
<TD align=middle width=9% bgColor=#FFFFCC
height=27><STRONG><%=Kithe_Table(4,I)+Kithe_Table(5,I)+Kithe_Table(6,I)+Kithe_Table(7,I)+Kithe_Table(8,I)+Kithe_Table(9,I)+Kithe_Table(3,I)%></STRONG> </TD>
<TD width=46 align=center bgColor=#FFFFCC>
<%if Kithe_Table(3,I)=49 then
Response.Write "和"
else
if Kithe_Table(3,I) mod 2=0 then%>
双
<%else%>
单
<%end if
end if%></TD>
<TD width=47 align=center bgColor=#FFFFCC><%
if Kithe_Table(3,I)=49 then
Response.Write "和"
else
if Kithe_Table(3,I) >=25 then%>
大
<%else%>
小
<%end if
end if%></TD>
<TD width=47 align=center bgColor=#FFFFCC><%if Kithe_Table(3,I)=49 then
Response.Write "和"
else
if len(Kithe_Table(3,I))<=1 then%>
<%if Kithe_Table(3,I) mod 2=0 then%>
双
<%else%>
单
<%end if%>
<%else%>
<%s=int(left(Kithe_Table(3,I),1))
y=right(Kithe_Table(3,I),1)
sy=s+y%>
<%if int(sy) mod 2 = 0 then%>
双
<%else%>
单
<%end if%>
<%end if
end if
%></TD>
<TD width=47 align=center bgColor=#FFFFCC><%
zw=Kithe_Table(4,I)+Kithe_Table(5,I)+Kithe_Table(6,I)+Kithe_Table(7,I)+Kithe_Table(8,I)+Kithe_Table(9,I)+Kithe_Table(3,I)%>
<%if int(zw) mod 2 = 0 then%>
双
<%else%>
单
<%end if
%>
</TD>
<TD width=47 align=center bgColor=#FFFFCC><%
if int(zw) >=175 then%>
大
<%else%>
小
<%end if
%></TD>
<TD align=middle width=9% bgColor=#FFFFCC><%
NumberImage2(Kithe_Table(3,I))
%></TD>
<TD align=middle width=9% bgColor=<%NumberWriteColor(Kithe_Table(3,I))%>><font color="#FFFFFF"><%
NumberImage1(Kithe_Table(3,I))
%></font></TD>
</TBODY><%Next%>
</TABLE></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
</TR></TBODY></TABLE></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -