📄 s_order.asp
字号:
<!--#include file="manage/mConn.asp"-->
<!--#include file="manage/mConst.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("rate_id")) Then
Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');window.open('index.asp','_top');</script>")
Response.End
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
If tray_switch=0 Then
response.Redirect "order_error.asp"
end if
Dim rate_id
rate_id=cLng(Request("rate_id"))
Get_Kithe_Para:Get_UserInfo:Get_Rate(rate_id)
select case Current_Rate(0,0)
case "特别号"
select case Current_Rate(2,0)
case "单"
R=1
case "双"
R=1
case "大"
R=2
case "小"
R=2
case "合单"
R=3
case "合双"
R=3
case else
R=0
end select
case "正码"
select case Current_Rate(2,0)
case "总单"
R=5
case "总双"
R=5
case "总大"
R=6
case "总小"
R=6
case else
R=4
end select
case "正码1-6"
select case Current_Rate(2,0)
case "单"
R=15
case "双"
R=15
case "大"
R=17
case "小"
R=17
case "红波"
R=16
case "蓝波"
R=16
case "绿波"
R=16
end select
case "色波"
R=13
case "十二生肖"
R=14
case "一肖"
R=18
end select
''''
SQL6="Select sum_money=isnull(sum(sum_m),0) from m_chilp where kithe='"&Current_Kithe_Num&"' and sort='"&Current_Rate(0,0)&"'"
SQL6=SQL6&" and member='"&session("SK2User")&"'"
Set Rs4=Conn.Execute(SQL6)
If not Rs4.Eof Then
sum_money1=Rs4("sum_money")
end if
''''
SQL6="Select sum_money=isnull(sum(sum_m),0) from m_chilp where kithe='"&Current_Kithe_Num&"' and sort='"&Current_Rate(0,0)&"'"
select case trim(Current_Rate(0,0))
case "特别号"
select case trim(Current_Rate(2,0))
case "单"
SQL6=SQL6&" and (chilp_value='单' or chilp_value='双')"
case "双"
SQL6=SQL6&" and (chilp_value='单' or chilp_value='双')"
case "大"
SQL6=SQL6&" and (chilp_value='大' or chilp_value='小')"
case "小"
SQL6=SQL6&" and (chilp_value='大' or chilp_value='小')"
case "合单"
SQL6=SQL6&" and (chilp_value='合单' or chilp_value='合双')"
case "合双"
SQL6=SQL6&" and (chilp_value='合单' or chilp_value='合双')"
case else
SQL6=SQL6&" and chilp_value<>'合单' and chilp_value<>'合双' and chilp_value<>'双' and chilp_value<>'单' and chilp_value<>'大' and chilp_value<>'小'"
end select
case "正码"
select case Current_Rate(2,0)
case "总单"
SQL6=SQL6&" and (chilp_value='总单' or chilp_value='总双')"
case "总双"
SQL6=SQL6&" and (chilp_value='总单' or chilp_value='总双')"
case "总大"
SQL6=SQL6&" and (chilp_value='总大' or chilp_value='总小')"
case "总小"
SQL6=SQL6&" and (chilp_value='总大' or chilp_value='总小')"
case else
SQL6=SQL6&" and chilp_value<>'总单' and chilp_value<>'总双' and chilp_value<>'总大' and chilp_value<>'总小'"
end select
case "正码1-6"
case "色波"
case "十二生肖"
case "一肖"
end select
'SQL5=SQL6&" and Agent_second='"&UserInfo(11,0)&"'"
SQL6=SQL6&" and member='"&session("SK2User")&"'"
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
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=javascript>
window.setTimeout("self.location='userleft.asp'", 180000);
</SCRIPT>
<SCRIPT language=JAVASCRIPT>
if(self == top){location = '/';}
</SCRIPT>
<SCRIPT language=javascript>var count_win=false;
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 SubChk(){
if(document.all.gold.value==''){
document.all.gold.focus();
alert("请输入下注金额!!");
return false;
}
if(isNaN(document.all.gold.value) == true){
document.all.gold.focus();
alert("下注金额仅能输入数字!!");
return false;
}
if(eval(document.all.gold.value) < 10){
document.all.gold.focus();
alert("下注金额不可小於最低下注金额!!");
return false;
}
if(eval(document.all.gold.value) > <%=UserQuota(3,R)%>){
document.all.gold.focus();
alert("对不起,本期有下注金额最高限制 : <%=UserQuota(3,R)%> !!");
return false;
}
if((<%=sum_money1%>+eval(document.all.gold.value)) > <%=UserQuota(2,R)%>){
document.all.gold.focus();
alert("下注金额不可大於单注限额!!");
return false;
}
if((<%=sum_money%>+eval(document.all.gold.value)) > <%=UserQuota(2,R)%>){
document.all.gold.focus();
alert("本期累计下注共: <%=sum_money%>\n下注金额已超过单期限额!!");
return false;
}
if(eval(document.all.gold.value) > <%=UserInfo(5,0)%>){
document.all.gold.focus();
alert("下注金额不可大於信用额度!!");
return false;
}
if(eval(document.all.gold.value)> <%=sum_money_agent%>){
document.all.gold.focus();
alert("下注金额不可大於总代理信用额度!!");
return false;
}
if(!confirm("可蠃金额:"+Math.round(document.all.gold.value * document.all.ioradio.value / 1000 - document.all.gold.value)+"\n\n 是否确定下注?")){return false;}
document.all.btnCancel.disabled = true;
document.all.btnSubmit.disabled = true;
document.LAYOUTFORM.submit();
}
function CountWinGold(){
if(document.all.gold.value==''){
document.all.gold.focus();
alert('未输入下注金额!!!');
}else{
document.all.pc.innerHTML=Math.round(document.all.gold.value * document.all.ioradio.value /1000 - document.all.gold.value);
count_win=true;
}
}
function CountWinGold1(){
if(document.all.gold.value==''){
document.all.gold.focus();
alert('未输入下注金额!!!');
}else{
document.all.pc.innerHTML=Math.round(document.all.gold.value * document.all.ioradio.value) - document.all.gold.value;
count_win=true;
}
}
</SCRIPT>
<LINK href="images/css-g.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR></HEAD>
<BODY oncontextmenu=window.event.returnValue=false text=#000000 bgColor=#e5eaee
leftMargin=0 topMargin=0>
<FORM name=LAYOUTFORM onsubmit="return false" action=s_order_down.asp
method=post>
<TABLE height=235 cellSpacing=0 cellPadding=0 width=230 border=0>
<TBODY>
<TR>
<TD background=images/qq2.gif height=30> </TD></TR>
<TR>
<TD vAlign=top height=76>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width=227 border=0>
<TBODY>
<TR>
<TD width=16 background=images/qq1.gif rowSpan=2> </TD>
<TD width=215 height=26>
<TABLE height=25 cellSpacing=0 cellPadding=0 width=200
background=images/pp.gif border=0>
<TBODY>
<TR>
<TD align=middle><FONT color=#ffffff>六合彩 <%=Current_Rate(0,0)%>
下注单</FONT></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=123>
<TABLE class=table_02 height=135 cellSpacing=6 cellPadding=0
width="95%" align=left border=0>
<TBODY>
<TR>
<TD vAlign=center width="11%" height=25><IMG height=30
src="images/ico.gif" width=30></TD>
<TD class=title_01 vAlign=center width="89%" height=20>帐户名称:
<%=Session("SK2User")%></TD></TR>
<TR>
<TD vAlign=center><IMG height=30 src="images/ico.gif"
width=30></TD>
<TD class=title_01 vAlign=center>信用额度: <%=UserInfo(5,0)%></TD></TR>
<TR align=left bgColor=#cccccc>
<TD align=middle colSpan=2><FONT color=#cc0000> </FONT></TD></TR>
<TR align=left>
<TD align=middle colSpan=2>期数 : <%=Current_Kithe_Num%>
<P><FONT color=#cc0000><%=Current_Rate(1,0)%>
<%if Current_Rate(2,0)="特单" or Current_Rate(2,0)="特双" or Current_Rate(2,0)="特大" or Current_Rate(2,0)="特小" then
if Current_Rate(2,0)="特单" then
response.write "单"
end if
if Current_Rate(2,0)="特双" then
response.write "双"
end if
if Current_Rate(2,0)="特大" then
response.write "大"
end if
if Current_Rate(2,0)="特小" then
response.write "小"
end if
else
response.write Current_Rate(2,0)
end if%></FONT> @ <FONT
color=#ff0000><B>
<%if Current_Rate(0,0)="特别号" and Current_Rate(2,0)<>"单" and Current_Rate(2,0)<>"双" and Current_Rate(2,0)<>"大" and Current_Rate(2,0)<>"小" and Current_Rate(2,0)<>"合单" and Current_Rate(2,0)<>"合双" and Current_Rate(2,0)<>"红波" and Current_Rate(2,0)<>"蓝波" and Current_Rate(2,0)<>"绿波" and Current_Rate(2,0)<>"总单" and Current_Rate(2,0)<>"总双" and Current_Rate(2,0)<>"总大" and Current_Rate(2,0)<>"总小" then
select case UserInfo(4,0)
case "a"
rate1=Current_Rate(4,0)
case "b"
rate1=Current_Rate(4,0)-0.5
case "c"
rate1=Current_Rate(4,0)-1
end select
response.Write rate1
else
if Current_Rate(2,0)="单" or Current_Rate(2,0)="双" or Current_Rate(2,0)="大" or Current_Rate(2,0)="小" or Current_Rate(2,0)="合单" or Current_Rate(2,0)="合双" or Current_Rate(2,0)="总单" or Current_Rate(2,0)="总双" or Current_Rate(2,0)="总大" or Current_Rate(2,0)="总小" then
if Current_Rate(0,0)<>"正码过关" then
select case UserInfo(4,0)
case "a"
rate1=Current_Rate(4,0)
case "b"
rate1=Current_Rate(4,0)-0.01
case "c"
rate1=Current_Rate(4,0)-0.02
end select
else
rate1=Current_Rate(4,0)
end if
else
rate1=Current_Rate(4,0)
end if
if Current_Rate(0,0)="正码" then
response.write rate1
else
response.Write formatnumber(rate1,2,-1)
end if
end if
%></B></FONT></P></TD></TR>
<TR align=left>
<TD class=td_fail colSpan=2><FONT color=#ff0000>
<TABLE cellSpacing=0 cellPadding=0 width="97%" border=0>
<TBODY>
<TR>
<TD>下注金额: <INPUT onkeypress="return CheckKey()" id=gold
onkeyup="return CountWinGold()" maxLength=8 size=8
name=gold></TD></TR>
<TR>
<TD>可蠃金额: <FONT id=pc color=#ff0000>0</FONT></TD></TR>
<TR>
<TD>最低限额: 10</TD></TR>
<TR>
<TD>单注限额: <%=UserQuota(2,R)%></TD></TR>
<TR>
<TD>单号限额: <%=UserQuota(3,R)%></TD></TR>
<TR align=middle>
<TD>
<INPUT type='hidden' Name=rate_id value='<%=rate_id%>'>
<INPUT class=sumbit_cen onclick="self.location='userleft.asp'" type=button value=取消 name=btnCancel>
<INPUT class=sumbit_cen onclick=SubChk(); type=button value=确定 name=btnSubmit>
</TD></TR>
<TR>
<TD> </TD></TR></TBODY></TABLE></FONT></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top align=middle background=images/iny.gif> </TD></TR>
<TR>
<TD vAlign=top height=10><IMG height=10 src="images/inz.gif"
width=230></TD></TR></TBODY></TABLE>
<INPUT type=hidden
value=SP11 name=concede><INPUT type=hidden value='<%=rate1*1000%>' name=ioradio> </FORM>
<SCRIPT language=JavaScript>document.all.gold.focus();</SCRIPT>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -