l_order.asp
来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 323 行
ASP
323 行
<!--#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
Dim rate_id
n=0
for i=1 to 49
if request("num"&i)<>"" then
number1=number1+cstr(request("num"&i))+","
n=n+1
end if
next
number1=left(number1,n*3-1)
select case trim(request("rtype"))
case "三全中"
rtype="三全中"
rate_id=499
zs=n*(n-1)*(n-2)/6
R=8
case "三中二"
R=9
rtype="三中二"
zs=n*(n-1)*(n-2)/6
rate_id=500
case "二全中"
R=7
rtype="二全中"
zs=n*(n-1)/2
rate_id=495
case "二中特"
R=10
zs=n*(n-1)/2
rate_id=496
rtype="二中特"
case "特串"
R=11
zs=n*(n-1)/2
rate_id=498
rtype="特串"
case "中"
R=19
zs=1
rate_id=595
rtype="中"
case "不中"
R=19
zs=1
rate_id=596
rtype="不中"
end select
'response.Write number1
Get_Kithe_Para:Get_UserInfo:Get_Rate(rate_id)
SQL6="Select sum_money=isnull(sum(sum_m),0) from m_chilp where kithe='"&Current_Kithe_Num&"' and sort='连码' and member='"&session("SK2user")&"'"
select case trim(request("rtype"))
case "三全中"
SQL6=SQL6&" and chilp_types='三全中'"
case "三中二"
SQL6=SQL6&" and chilp_types='三中二'"
case "二全中"
SQL6=SQL6&" and chilp_types='二全中'"
case "二中特"
SQL6=SQL6&" and chilp_types='二中特'"
case "特串"
SQL6=SQL6&" and chilp_types='特串'"
end select
if trim(request("rtype"))="中" or trim(request("rtype"))="不中" then
SQL6="Select sum_money=isnull(sum(sum_m),0) from m_chilp where kithe='"&Current_Kithe_Num&"' and sort='六肖' and member='"&session("SK2user")&"'"
select case trim(request("rtype"))
case "中"
SQL6=SQL6&" and chilp_types='中'"
case "不中"
SQL6=SQL6&" and chilp_types='不中'"
end select
end if
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
%>
<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=javascript>
window.setTimeout("self.location='userleft.asp'", 25000);
</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) < 5){
document.all.gold.focus();
alert("下注金额不可小於最低下注金额!!");
return false;
}
if((<%=sum_money%>+eval(document.all.gold.value)*<%=zs%>) ><%=UserQuota(2,R)%>){
document.all.gold.focus();
alert("本下注金额最高限制: <%=UserQuota(2,R)%>\n下注金额已超过单项限额!!");
return false;
}
if(eval(document.all.gold.value)*<%=zs%> > <%=UserQuota(3,R)%>){
document.all.gold.focus();
alert("对不起,本期有下注金额最高限制 : <%=UserQuota(3,R)%> !!");
return false;
}
if(eval(document.all.gold.value)*<%=zs%> > <%=UserQuota(2,R)%>){
document.all.gold.focus();
alert("下注金额不可大於单注限额!!");
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);
document.all.pc1.innerHTML=Math.round(document.all.gold.value * document.all.ioradio1.value);
count_win=true;
}
}
function CountWinGold1(){
if(document.all.gold.value==''){
document.all.gold.focus();
alert('未输入下注金额!!!');
}else{
document.all.pc1.innerHTML=Math.round(document.all.gold.value * document.all.ioradio1.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>
<style type="text/css">
<!--
.style1 {color: #FF0000}
body {
background-image: url(img/left_0.gif);
}
.style12 {color: #FF0000}
-->
</style>
</HEAD>
<BODY oncontextmenu=window.event.returnValue=false text=#000000 bgColor=#e5eaee leftMargin=0 topMargin=0>
<FORM name=LAYOUTFORM onSubmit="return false" action=l_order_down.asp method=post>
<table width="241" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" background="img/left_0.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="25"><img src="img/right_01.gif" width="25" height="49"></td>
<td background="img/right_02.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><font color="#FFFFFF"><strong>彩票注单</strong></font></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td width="14" background="img/right_02.gif"><img src="img/right_03.gif" width="14" height="49"></td>
</tr>
<tr>
<td background="img/right_04.gif"> </td>
<td><table cellspacing="1" cellpadding="1" width="190" align="center" border="0">
<tbody>
<tr>
<td>帐户名称: <%=session("sk2user")%></td>
</tr>
<tr>
<td>信用额度: <%=userinfo(5,0)%></td>
</tr>
<tr>
<td><font color="red">请选择下注彩球</font></td>
</tr>
</tbody>
</table></td>
<td background="img/right_05.gif"> </td>
</tr>
<tr>
<td valign="top"><img src="img/right_06.gif" width="25" height="13"></td>
<td height="13" background="img/right_07.gif"></td>
<td valign="top"><img src="img/right_08.gif" width="14" height="13"></td>
</tr>
</table></td>
<td width="8" valign="top"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="13"> </td>
<td><table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CBCBC9">
<tr>
<td align="center" bgcolor="#FFFFFF"><TABLE class=table_02 height=135 cellSpacing=6 cellPadding=0
width="100%" align=left border=0>
<TBODY>
<TR align=left>
<TD width="100%" colSpan=2 align=middle><div align="center">期数 : <%=Current_Kithe_Num%><br>
<br>
</div>
<div align="center"><FONT color=#cc0000>
<%if trim(request("rtype"))="中" or trim(request("rtype"))="不中" then%>
六肖
<%else%>
连码
<%end if%>
<%=Current_Rate(1,0)%>
<%if Current_Rate(1,0)="三中二" or Current_Rate(1,0)="二中特" then
response.write "之"&Current_Rate(2,0)
end if%>
</FONT> @ <strong><FONT
color=#ff0000><%=Current_Rate(4,0)%></FONT></strong> </div>
<table width="200" border="0">
<tr>
<td><div align="center"><b><%=number1%></b></div></td>
</tr>
<tr>
<td><div align="center"><strong>组合共 <span class="style12"><%=zs%></span> 组</strong></div></td>
</tr>
</table></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> 总下注金额: <strong><FONT id=pc1 color=#ff0000>0 </FONT></strong></TD>
</TR>
<TR>
<TD> 可蠃金额: <FONT id=pc color=#ff0000>0</FONT></TD>
</TR>
<TR>
<TD> 最低限额: 5</TD>
</TR>
<TR>
<TD> 单注限额: <%=UserQuota(2,R)%> </TD>
</TR>
<TR>
<TD> 单号限额: <%=UserQuota(3,R)%></TD>
</TR>
<TR align=middle>
<TD><br>
<INPUT type='hidden' Name=rate_id value='<%=rate_id%>'>
<input name="urlb" type="hidden" id="urlb" value="<%=request("urlb")%>">
<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>
<br>
<br>
</TD>
</TR>
<TR>
<TD> </TD>
</TR>
</TBODY>
</TABLE>
</FONT></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table></td>
<td width="11"> </td>
</tr>
</table></td>
</tr>
</table>
<INPUT type=hidden
value=SP11 name=concede> <INPUT type=hidden value='<%=Current_Rate(4,0)*1000%>' name=ioradio><INPUT type=hidden value='<%=zs%>' name=ioradio1> <INPUT type=hidden value='<%=number1%>' name=number1></FORM>
<SCRIPT language=JavaScript>document.all.gold.focus();</SCRIPT>
</BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?