ls_5.asp
来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 480 行 · 第 1/2 页
ASP
480 行
<!--#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 2 item_value,rate,current_rate,wager_gold,ID from m_rate where item_sort='五肖' Order By ID")
Dim ShowTable
ShowTable=Rs6.GetRows(2)
Set Rs6=Nothing
%><%
Set Rs7=Server.CreateObject("Adodb.RecordSet")
Set Rs7=Conn.Execute("select * from open_on where code='lx5' 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='ls_5.asp'", 180000);
</SCRIPT>
<SCRIPT language=javascript>
if(self == top) location = '/';
var type_nums = 5; //预设为 3中2
var type_min = 5;
var cb_num = 1;
var mess1 = '最少选择';
var mess11 = '个肖';
var mess2 = '最多选择5个肖';
var mess = mess2;
function SubChk(obj) {
type_nums = 5;
type_min = 5;
var checkCount = 0;
var checknum = obj.elements.length;
var rtypechk = 0;
for(i=0; i<checknum; i++) {
if (obj.elements[i].checked) {
checkCount ++;
}
}
if (checkCount > (type_nums)) {
alert(mess2);
return false;
}if(checkCount < (type_min)){
alert(mess1+type_min+mess11);
return false;
}else{
return true;
}
}
function SubChkBox(obj) {
if(obj.checked == false)
{
cb_num--;
//obj.checked = false;
}
//alert (cb_num);
if(obj.checked == true)
{
if ( cb_num > type_nums )
{
alert(mess);
cb_num--;
obj.checked = false;
}
cb_num++;
}
}
</SCRIPT>
<style type="text/css">
<!--
body,td,th {
color: #FF0000;
}
-->
</style></HEAD>
<BODY oncontextmenu=window.event.returnValue=false leftMargin=0 topMargin=0 >
<form method="post" onSubmit="return SubChk(this);" action="l_order1.asp?urlb=ls_5.asp" name="lt_form" target="leftFrame" >
<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='ls_5.asp?tm=<%=tm%>'" 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='width:100.0%;mso-cellspacing:.7pt;mso-padding-alt:0cm 0cm 0cm 0cm'
id="game_table">
<TR class=ball_td>
<TD align=middle>类别</TD>
<TD align=center>五肖</TD>
<TD align=middle> </TD>
<TD align=middle>赔率</TD>
<TD align=middle colspan=2><FONT color=#ff0000><B><%=ShowTable(1,0)%>
<input name="muz" type="hidden" id="muz" value="<%=ShowTable(1,0)%>">
</B></FONT></TD>
</TR>
<tr>
<td width=50 style='width:37.5pt;background:#ffff00;padding:2.25pt .75pt .75pt .75pt'><p class=MsoNormal align=center style='text-align:center;line-height:
12.75pt'><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?