📄 q_zmt.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 request("zm")<>"" then
zm=request("zm")
else
zm="正1特"
end if
Session("zm")=zm
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
Dim rate_id
rate_id=cLng(Request("rate_id"))
Get_Kithe_Para:Get_UserInfo
Set Rs6=Conn.Execute("Select Top 55 item_value,rate,current_rate,wager_gold from m_rate where item_name='"&zm&"' Order By ID")
Dim ShowTable
ShowTable=Rs6.GetRows(55)
Set Rs6=Conn.Execute("Select top 50 item_value,rate,current_rate,wager_gold from m_rate where item_name='"&zm&"' Order By ID desc")
Dim ShowTable1
ShowTable1=Rs6.GetRows(50)
Set Rs6=Conn.Execute("Select Top 4 item_value,rate,current_rate,wager_gold from m_rate where item_sort='色波' Order By ID")
Dim ShowTable2
ShowTable2=Rs6.GetRows(4)
SQL6="Select sum_money=isnull(sum(sum_m),0) from m_chilp where kithe='"&Current_Kithe_Num&"' and sort='正特' and chilp_types='"&zm&"' and member='"&session("SK2user")&"'"
SQL6=SQL6&" and chilp_value<>'合单' and chilp_value<>'合双' and chilp_value<>'双' and chilp_value<>'单' and chilp_value<>'大' and chilp_value<>'小'"
Set Rs5=Conn.Execute(SQL6)
If not Rs5.Eof Then
sum_money=Rs5("sum_money")
end if
SQL5="select credits,current_credits,Login_name,P_agentID from m_agent where Login_name='"&UserInfo(11,0)&"'"
Set Rs4=Conn.Execute(SQL5)
If not Rs4.Eof Then
sum_money_agent=Rs4("credits")
end if
Sub Kk1 (bb)
if bb="1" then
bb="0"&bb
end if
if bb="2" then
bb="0"&bb
end if
if bb="3" then
bb="0"&bb
end if
if bb="4" then
bb="0"&bb
end if
if bb="5" then
bb="0"&bb
end if
if bb="6" then
bb="0"&bb
end if
if bb="7" then
bb="0"&bb
end if
if bb="8" then
bb="0"&bb
end if
if bb="9" then
bb="0"&bb
end if
SQL6="Select sum_money=isnull(sum(sum_m),0) from m_chilp where kithe='"&Current_Kithe_Num&"' and sort='正特' and chilp_types='"&zm&"' and chilp_value='"&bb&"'"
SQL6=SQL6&" and member='"&session("SK2User")&"'"
Set Rs5=Conn.Execute(SQL6)
If not Rs5.Eof Then
Response.Write Rs5("sum_money")
end if
End Sub
Set Rs7=Server.CreateObject("Adodb.RecordSet")
Set Rs7=Conn.Execute("select * from open_on where code='zmt' and del_flag<>'1' ")
If Not Rs7.Eof Then
Response.Write "非下单时间段"
Response.End
End If
%>
<HTML><HEAD><TITLE>body_lotto</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){location = '/';}
</SCRIPT>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR><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=98%
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=4 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>
<MARQUEE class=td_02 scrollDelay=120><SPAN
id=Msg><%=Current_affice%></SPAN>
</MARQUEE></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 class=banner_set cellSpacing=0 cellPadding=0
width=100% border=0>
<TBODY>
<TR >
<TD width=100 height=20 nowrap><%=zm%><INPUT class=select_cen onClick="location.href='q_zmt.asp?zm=<%=zm%>'" type=button value=更新 name=button></TD>
<TD width=30></TD>
<TD align=right><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></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<FORM target="leftFrame" name=lt_form action="Q_zmt_save.asp" method="post">
<%If tray_switch=1 Then %>
<TR>
<TD colSpan=4 height="100%">
<SCRIPT language=JAVASCRIPT>
<!--
var count_win=false;
//window.setTimeout("self.location='quickinput2.php'", 180000);
function CheckKey(){
if(event.keyCode == 13) return true;
if((event.keyCode < 48 || event.keyCode > 57) && (event.keyCode > 95 || event.keyCode < 106)){alert("下注金额仅能输入数字!!"); return false;}
}
function ChkSubmit(){
//设定『确定』键为反白
document.all.btnSubmit.disabled = true;
if (eval(document.all.allgold.innerHTML)<=0 || eval(total_gold.value)<=0)
{
alert("请输入下注金额!!");
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -