s_order.asp

来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 418 行 · 第 1/2 页

<!--#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=20
case "十二生肖"
R=14
case "一肖"
R=18
case "尾数"
R=23



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)&"' and chilp_value='"&Current_Rate(2,0)&"'"
SQL6=SQL6&" and member='"&session("SK2User")&"'"
Set Rs5=Conn.Execute(SQL6)
   If not Rs5.Eof Then
	 sum_money=Rs5("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)&"' and chilp_value='"&Current_Rate(2,0)&"'"
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 
SQL6=SQL6&" and member='"&session("SK2User")&"'"
'response.Write(SQL6)
Set Rs5=Conn.Execute(SQL6)
   If not Rs5.Eof Then
	 sum_money_all=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'", 20000);
</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) < 1){
		document.all.gold.focus();
		alert("下注金额不可小於最低下注金额!!");
		return false;
	}
	
	if((<%=sum_money%>+eval(document.all.gold.value)) > <%=UserQuota(2,R)%>){
		document.all.gold.focus();
		alert("下注金额不可大於单项限额:<%=UserQuota(2,R)%>!!");
		return false;
	}
	
	if(eval(document.all.gold.value) > <%=UserQuota(3,R)%>){
		document.all.gold.focus();
		alert("对不起,本期有下注金额最高限制 : <%=UserQuota(3,R)%>  !!");
		return false;
	}
	
	//if((<%=sum_money_all%>+eval(document.all.gold.value)) > <%=UserQuota(2,R)%>){
		//document.all.gold.focus();
		//alert("本期累计下注共: <%=sum_money_all%>\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;}