📄 kq_result.asp
字号:
<!--#include file="manage/mConn.asp"-->
<!--#include file="manage/mConst.asp"-->
<!--#include file="manage/Number_Info.asp"-->
<!--#include file="manage/sk2.asp"-->
<%
If Session("SK2User")="" Then
Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');window.open('index.asp','_top');</script>")
Response.End
End If
If Not Isnumeric(Request("Page")) Then
Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');window.open('index.asp','_top');</script>")
Response.End
End If
Response.Write Page
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
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<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></HEAD>
<BODY oncontextmenu=window.event.returnValue=false bgColor=#e5eaee leftMargin=0
topMargin=0>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width=546 border=0>
<TBODY>
<TR>
<TD vAlign=top bgColor=#e5eaee>
<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=500 border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=5></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=2 width="100%"
align=left border=0>
<TBODY>
<TR>
<TD class=td_02 width="99%" bgColor=#cccccc><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=500 border=0>
<TBODY>
<TR>
<TD>
<TABLE class=banner_set height=24 cellSpacing=0
cellPadding=0 width="100%" border=0>
<TBODY>
<TR bgColor=#c1d7e5>
<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=500 border=0>
<TBODY>
<TR>
<TD>
<TABLE width="100%" border=1>
<TBODY>
<TR class=tr_title_set_cen>
<TD align=middle width="10%" bgColor=#c1d7e5
rowSpan=2>期数</TD>
<TD noWrap bgColor=#a4c6db rowSpan=2><DIV align=center>时间</DIV></TD>
<TD class=title_00 bgColor=#9d2e2e colSpan=8><DIV align=center>彩球号码</DIV></TD>
</TR>
<TR class=tr_title_set_cen>
<TD class=title_02 align=middle width="9%"
bgColor=#b9c0c4>正码一</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#b9c0c4>正码二</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#b9c0c4>正码三</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#b9c0c4>正码四</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#b9c0c4>正码五</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#b9c0c4>正码六</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#b9c0c4>特别号</TD>
<TD class=title_02 align=middle width="9%"
bgColor=#b9c0c4>总合</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><%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=#c8d1d6>
<%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%
background=images/<%=trim(get_para_color(1,cint(Kithe_Table(4,I))-1))%>.gif bgColor=#c1d7e5
height=27><FONT
style="PADDING-RIGHT: 2px; PADDING-LEFT: 2px; FILTER: glow(color=#000000,strength=1); PADDING-BOTTOM: 2px; COLOR: #000000; PADDING-TOP: 2px; HEIGHT: 10px">
<%
If Kithe_Table(4,I)<10 Then
Response.Write "0"
End If
Response.Write Kithe_Table(4,I)%>
</FONT></TD>
<TD class=ball_td align=middle width=9%
background=images/<%=trim(get_para_color(1,cint(Kithe_Table(5,I))-1))%>.gif bgColor=#c1d7e5
height=27><FONT
style="PADDING-RIGHT: 2px; PADDING-LEFT: 2px; FILTER: glow(color=#000000,strength=1); PADDING-BOTTOM: 2px; COLOR: #000000; PADDING-TOP: 2px; HEIGHT: 10px">
<%
If Kithe_Table(5,I)<10 Then
Response.Write "0"
End If
Response.Write Kithe_Table(5,I)%>
</FONT></TD>
<TD class=ball_td align=middle width=9%
background=images/<%=trim(get_para_color(1,cint(Kithe_Table(6,I))-1))%>.gif bgColor=#c1d7e5
height=27><FONT
style="PADDING-RIGHT: 2px; PADDING-LEFT: 2px; FILTER: glow(color=#000000,strength=1); PADDING-BOTTOM: 2px; COLOR: #000000; PADDING-TOP: 2px; HEIGHT: 10px">
<%
If Kithe_Table(6,I)<10 Then
Response.Write "0"
End If
Response.Write Kithe_Table(6,I)%>
</FONT></TD>
<TD class=ball_td align=middle width=9%
background=images/<%=trim(get_para_color(1,cint(Kithe_Table(7,I))-1))%>.gif bgColor=#c1d7e5
height=27><FONT
style="PADDING-RIGHT: 2px; PADDING-LEFT: 2px; FILTER: glow(color=#000000,strength=1); PADDING-BOTTOM: 2px; COLOR: #000000; PADDING-TOP: 2px; HEIGHT: 10px">
<%
If Kithe_Table(7,I)<10 Then
Response.Write "0"
End If
Response.Write Kithe_Table(7,I)%>
</FONT></TD>
<TD class=ball_td align=middle width=9%
background=images/<%=trim(get_para_color(1,cint(Kithe_Table(8,I))-1))%>.gif bgColor=#c1d7e5
height=27><FONT
style="PADDING-RIGHT: 2px; PADDING-LEFT: 2px; FILTER: glow(color=#000000,strength=1); PADDING-BOTTOM: 2px; COLOR: #000000; PADDING-TOP: 2px; HEIGHT: 10px">
<%
If Kithe_Table(8,I)<10 Then
Response.Write "0"
End If
Response.Write Kithe_Table(8,I)%>
</FONT></TD>
<TD class=ball_td align=middle width=9%
background=images/<%=trim(get_para_color(1,cint(Kithe_Table(9,I))-1))%>.gif bgColor=#c1d7e5
height=27><FONT
style="PADDING-RIGHT: 2px; PADDING-LEFT: 2px; FILTER: glow(color=#000000,strength=1); PADDING-BOTTOM: 2px; COLOR: #000000; PADDING-TOP: 2px; HEIGHT: 10px">
<%
If Kithe_Table(9,I)<10 Then
Response.Write "0"
End If
Response.Write Kithe_Table(9,I)%>
</FONT></TD>
<TD class=ball_td align=middle width=9%
background=images/<%=trim(get_para_color(1,cint(Kithe_Table(3,I))-1))%>.gif bgColor=#c1d7e5
height=27><FONT
style="PADDING-RIGHT: 2px; PADDING-LEFT: 2px; FILTER: glow(color=#000000,strength=1); PADDING-BOTTOM: 2px; COLOR: #000000; PADDING-TOP: 2px; HEIGHT: 10px">
<%
If Kithe_Table(3,I)<10 Then
Response.Write "0"
End If
Response.Write Kithe_Table(3,I)%>
</FONT></TD>
<TD align=middle width=9% bgColor=#c1d7e5
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>
</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 + -