⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 l_order.asp

📁 此源码的会员,代理,后台功能齐全,是真真正正包含数据库(在matali文件夹里)的源码
💻 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
  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="特串"
	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 
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'", 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) < 10){
		document.all.gold.focus();
		alert("下注金额不可小於最低下注金额!!");
		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((<%=sum_money%>+eval(document.all.gold.value)*<%=zs%>) ><%=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);
		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}
-->
</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 height=235 cellSpacing=0 cellPadding=0 width=230 border=0>
  <TBODY>
  <TR>
    <TD background=images/qq2.gif height=30>&nbsp;</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>&nbsp;</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>六合彩 连码 
              下注单</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><div align="center">期数 : <%=Current_Kithe_Num%><br><br>
                  </div>
                  <div align="center"><FONT color=#cc0000>连码&nbsp;<%=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(3,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>组合共&nbsp;<span class="style1"><%=zs%></span>&nbsp;组</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&nbsp;</FONT></strong></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> 
                        &nbsp;&nbsp; <INPUT class=sumbit_cen onclick=SubChk(); type=button value=确定 name=btnSubmit> 
                      </TD></TR>
                    <TR>
                      <TD>&nbsp;</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>&nbsp;</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='<%=Current_Rate(3,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 + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -