📄 index_kithe.asp
字号:
<%
If Session("SK2Admin")="" Then
Response.Redirect "Admin_Login.Asp"
Response.End
End If
%>
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="Number_Info.asp"-->
<!--#include file="sk2.asp"-->
<%
Show_Kithe
Close_Rs6
%>
<script>
if(self==top){
location.href="index.asp";
}
</script>
<html>
<head>
<%
Get_Kithe_Para:Show_Kithe
Set Rs6=Conn.Execute("select top 1 tray_time,affice,tray_switch,tray_show 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")
'tray_show=Rs6("tray_show")
End If
if request("K3")="" then
K3=Rs6("tray_show")
else
K3=request("K3")
Set Rs6=Conn.Execute("Update m_config Set tray_show='"&K3&"'")
'response.Write "Update m_config Set tray_show='"&K3&"'"
end if
'response.Write K3
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=15: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%>
<link href="../images/css-g.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>开奖列表</title>
<style type="text/css">
<!--
body {
margin-top: 0px;
background-color: #e5eaee;
}
.aa{ background-color:#C1C2fC; color:#000000 ; cursor: hand;
filter: alpha(opacity=50)}
.bb{
background-color:#E8F4FF;
cursor: hand;
}
.style4 {color: #000000}
.style5 {font-size: x-small}
.style6 {font-weight: bold}
.style7 {
color: #CC0000;
font-weight: bold;
}
-->
</style>
</head>
<body>
<FORM name=myFORM action="" method=get>
<span class="style5">总页数:
<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%> 页</span> <span class="style7">前台即时开奖</span>
<SELECT class=za_select onchange=self.myFORM.submit() name=K3>
<OPTION value=0 <%If K3=0 Then Response.Write (" Selected ")
response.Write ""%>>关闭</OPTION>
<OPTION value=1 <%If K3=1 Then Response.Write (" Selected ")%>> 显示</OPTION></SELECT>
||<a href="This_Kithe.asp"><strong>设定本期开奖号</strong></a>
</form>
<table width="694" border=1 align="center">
<tbody>
<tr class=tr_title_set_cen>
<td width="47"
rowspan=2 align=middle bgcolor=#c1d7e5>期数</td>
<td width="92" rowspan=2 nowrap bgcolor=#a4c6db><div align=center>时间</div></td>
<td class=title_00 bgcolor=#9d2e2e colspan=9><div align=center>彩球号码</div></td>
</tr>
<tr class=tr_title_set_cen>
<td width="50" align=middle
bgcolor=#b9c0c4 class=title_02><div align="center">正码一</div></td>
<td width="50" align=middle
bgcolor=#b9c0c4 class=title_02><div align="center">正码二</div></td>
<td width="50" align=middle
bgcolor=#b9c0c4 class=title_02><div align="center">正码三</div></td>
<td width="50" align=middle
bgcolor=#b9c0c4 class=title_02><div align="center">正码四</div></td>
<td width="50" align=middle
bgcolor=#b9c0c4 class=title_02><div align="center">正码五</div></td>
<td width="50" align=middle
bgcolor=#b9c0c4 class=title_02><div align="center">正码六</div></td>
<td width="50" align=middle
bgcolor=#b9c0c4 class=title_02><div align="center">特别号</div></td>
<td width="50" align=middle
bgcolor=#b9c0c4 class=title_02><div align="center">总合</div></td>
<td width="85" align=middle
bgcolor=#b9c0c4 class=title_02><div align="center"><span class="style4">操作</span></div></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
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
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
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
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
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
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
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 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>
<td class=ball_td align=middle
bgcolor=#c1d7e5
height=27><a href="Edit_Kithe.asp?KitID=<%=Kithe_Table(0,I)%>">修改</a> / <a href="Del_Kithe.asp?KitID=<%=Kithe_Table(0,I)%>" onClick="{if(confirm('确定要做删除的操作吗?')){return true;}return false;}">删除</a> </td>
</tbody>
<%Next%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -