bb_sp.asp
来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 257 行
ASP
257 行
<!--#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
Get_Kithe_Para
Set Rs6=Server.CreateObject("Adodb.RecordSet")
Dim NN
NN=1
Set Rs6=Conn.Execute("select top 1 NN from m_Kithe order by ID desc")
If Not Rs6.Eof Then
NN=Rs6("NN")+1
End If
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
Set Rs6=Conn.Execute("Select Top 12 item_value,rate,current_rate,wager_gold,ID from m_rate where item_sort='半波' Order By ID")
Dim ShowTable
ShowTable=Rs6.GetRows(12)
Set Rs6=Nothing
%>
<%
Set Rs7=Server.CreateObject("Adodb.RecordSet")
Set Rs7=Conn.Execute("select * from open_on where code='bb' and del_flag<>'1' ")
If Not Rs7.Eof Then
Response.Write "非下单时间段"
Response.End
End If
%>
<HTML><HEAD><TITLE>body_lotto_na</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="images/client_LT_game.css" type=text/css rel=stylesheet>
<SCRIPT language=JAVASCRIPT>
if (self == top)
{
window.open('/','_top');
}
</SCRIPT>
<SCRIPT language=javascript>
window.setTimeout("self.location='bb_sp.asp'", 180000);
</SCRIPT>
<style type="text/css">
<!--
body,td,th {
color: #FF0000;
}
-->
</style></HEAD>
<BODY oncontextmenu=window.event.returnValue=false leftMargin=0 topMargin=0 >
<TABLE class=table_banner height="100%" cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE height=96 cellSpacing=0 cellPadding=0 width="96%" align=center
border=0>
<TBODY>
<TR>
<TD vAlign=top 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>
<TBODY>
<TR>
<TD>
<TABLE class=table_banner cellSpacing=0 cellPadding=0
width=100% border=0>
<TBODY>
<TR>
<TD>
<table border=1 cellspacing=0 cellpadding=0 width=100% bgcolor="#ffffcc"
style='mso-cellspacing:0cm;background:#ffffcc;
border:none;mso-padding-left-alt:3.75pt;mso-padding-right-alt:3.75pt'>
<tr style='height:15.0pt'>
<td height=23 style='border:none;padding:.75pt 3.75pt .75pt 3.75pt;
height:17.0pt'> 半波 <INPUT class=select_cen onClick="location.href='bb_sp.asp'" type=button value=更新 name=button></td>
<td style='border:none;padding:.75pt 3.75pt .75pt 3.75pt;height:17.0pt'><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><%if month(Now())<10 then
now11=year(now())&"/0"
else
now11=year(now())&"/"
end if
now11=now11&month(now())&"/"
if day(now())<10 then
now11=now11&"0"
end if
now11=now11&day(now())&" "&time()%>
<%
year1=year(Kithe_OpenTime)
month1=month(Kithe_OpenTime)
day1=day(Kithe_OpenTime)
hour1=Hour(Kithe_OpenTime)
Minute1=Minute(Kithe_OpenTime)
Second1=Second(Kithe_OpenTime)
now12=year1&","&month1&","&day1&","&hour1&","&Minute1&","&Second1
%>
<script language=javascript>
function time(liveclock){
var s='';
var d=liveclock!=null?new Date(liveclock):new Date();
with(d){
s=show5(getHours())+':'+show5(getMinutes())+':'+show5(getSeconds())
}
return(s);
}
function show5(num){
return num<10?'0'+num:num;
}
var dd=new Date("<%=now11%>");
var ss=setInterval("dd.setSeconds(dd.getSeconds()+1);liveclock.innerHTML='香港时间:<%=date()%> '+time(dd)+' '",1000)
</script>
<td width="58%" align="center"><div id="liveclock"> </div></td>
<td width="42%" align="center"><!--#include file="timer.asp"--></td>
</tr>
</table></td>
</tr>
</table></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<%If tray_switch=1 Then %>
<table border=0 cellspacing=1 cellpadding=0 width=100% style='
mso-cellspacing:0cm;mso-padding-alt:0cm 0cm 0cm 0cm' id=showTable>
<tr style='height:22.5pt'>
<td style='padding:0cm 0cm 0cm 0cm;height:22.5pt'> 期数:<b> <%=Current_Kithe_Num%> 开奖日期: </b><%=Kithe_OpenTime%> </td>
<td style='padding:0cm 0cm 0cm 0cm;height:22.5pt' id=closeM></td>
</tr>
<tr>
<td colspan=2 style='padding:0cm 0cm 0cm 0cm'><table border="1" cellspacing="1" cellpadding="2" width="100%"
style='mso-cellspacing:.7pt;mso-padding-alt:0cm 0cm 0cm 0cm'
id="game_table">
<tr align=center>
<td width=80 style='background:#ffff00;'>半波</td>
<td width=80 style='background:#ffff00;'>赔率</td>
<td style='background:#ffff00;'>号码</td>
</tr>
<tr>
<%
Set Rs5=Server.CreateObject("Adodb.RecordSet")
For I=0 To 11
%>
<TR align=middle bgColor=#ffffff>
<TD style='background:#ffffcc;'><%=ShowTable(0,I)%></TD>
<TD><LABEL id=num1><span lang=EN-US style='font-size:9.0pt;font-family:Arial;color:black'> <a href="s_order.asp?urlb=bb_sp.asp&rate_id=<%=ShowTable(4,I)%>&muz=<%=ShowTable(2,I)%>" target="leftFrame"><span id=SPAA1><span style='font-size:11.5pt'><%=formatnumber(ShowTable(2,I),2,-1)%></span></span></a></span></LABEL></TD>
<TD>
<table align=left><tr>
<%
color=""
if i<4 then color="r"
if i>3 and i<8 then color="g"
if i>7 and i<12 then color="b"
Set Rs5=Conn.Execute("Select id,color from m_color where id<>49 and color='"&color&"' Order By ID")
do while not rs5.eof
idflag=false
if i=0 or i=4 or i=8 then idflag=rs5("id")/2<>int(rs5("id")/2)
if i=1 or i=5 or i=9 then idflag=rs5("id")/2=int(rs5("id")/2)
if i=2 or i=6 or i=10 then idflag=rs5("id")>24
if i=3 or i=7 or i=11 then idflag=rs5("id")<25
if idflag then
%>
<td align=middle height="25" width="23"><img src="img/num<%=Rs5("id")%>.gif" border="0"></td>
<%
end if
rs5.movenext
loop
%>
</tr></table>
</TD>
</TR>
<%
Next
set rs5=nothing
%>
</tr>
</table></td>
</tr>
<tr style='height:7.5pt'>
<td colspan=2 style='padding:0cm 0cm 0cm 0cm;height:7.5pt'> </td>
</tr>
<tr>
<td colspan=2 style='padding:0cm 0cm 0cm 0cm' id="SPAR1_bg"> </td>
</tr>
</table>
<%end if%>
<p> </p></TD></TR>
<TR>
<TD colSpan=3 height="100%">
<TABLE class=table_title_line id=showTable style="DISPLAY: none"
cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD colSpan=2 height=5></TD></TR>
<TR>
<TD height=30>期数: <B><SPAN id=gNumber> </SPAN></B>
<B>开奖日期: </B><SPAN
id=gametime> </SPAN> </TD>
<TD id=closeM style="DISPLAY: none" align=right><FONT
color=red>即将封盘</FONT> 倒数: <SPAN id=close_msg> </SPAN>
秒</TD></TR>
<TR>
<TD colSpan=2>
<TABLE id=game_table cellSpacing=1 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR class=tr_title_set_cen>
<TD>号码</TD>
<TD width=50>赔率</TD>
<TD>号码</TD>
<TD width=50>赔率</TD>
<TD>号码</TD>
<TD width=50>赔率</TD>
<TD>号码</TD>
<TD width=50>赔率</TD>
<TD>号码</TD>
<TD width=50>赔率</TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD colSpan=2>
<TABLE id=game_table1 cellSpacing=1 cellPadding=0 width="100%"
border=0>
<TBODY></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?