ag_add_act.asp

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

<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<%
If Session("SK2B")="" Then
    Response.Write ("<script Language=Javascript>window.open('index.asp','_top');</script>")
	Response.End
End If
If Session("SK2F")="" Then
    Response.Write ("<script Language=Javascript>window.open('index.asp','_top');</script>")
	Response.End
End If
If Not Isnumeric(Request("Agenttype")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If
If Not Isnumeric(Request("pagentid")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If
If Not Isnumeric(Request("maxcredit")) Then
  Response.Write ("<script language=javascript>alert('信用额度有填写错误！');history.go(-1)</script>")
  Response.End
End If
If request("agenttype")=1 and int(Request("maxcredit"))>100000000 Then
  Response.Write ("<script language=javascript>alert('信用额度超过可用信用额！');history.go(-1)</script>")
  Response.End
End If
If request("agenttype")>1 Then
	set rs6=conn.execute("select (credits-(select sum(credits) from m_agent where p_agentid=a1.id)) as credits from m_agent as a1 where id="&request("pagentid")&"")
  	if int(Request("maxcredit"))>int(rs6("credits")) then
  		Response.Write ("<script language=javascript>alert('信用额度超过可用信用额！');history.go(-1)</script>")
  		Response.End
  	end if
End If
Dim num_1,num_2,num_3,num_4,num_5,num_6,num_7,Login_Name
num_1=Request.Form("num_1")
num_2=Request.Form("num_2")
num_3=Request.Form("num_3")
num_4=Request.Form("num_4")
num_5=Request.Form("num_5")
num_6=Request.Form("num_6")
num_7=Request.Form("num_7")
Login_Name=request("Login_Name")

Dim password,maxcredit,alias,winloss,bank,grade
password=checkstr(request.form("password"))
maxcredit=cLng(request.form("maxcredit"))
alias=checkstr(request.form("alias"))
winloss=replace(request.form("winloss"),"%","")
bank=replace(request.form("bank"),"%","")
Dim Rs6
Set Rs6=Server.CreateObject("Adodb.RecordSet")
Set Rs6=Conn.Execute("Select Login_Name From m_agent Where Login_name='"&Login_Name&"' Order By ID Desc")
If Not Rs6.Eof Then
    Set Rs6=Nothing
    Response.Write ("<script language=javascript>alert('添加错误："&Login_Name&"已注册！');history.go(-1)</script>")
	Response.End
End If
   
If request("agenttype")=1 Then
	grade=3
	P_AgentID=0
Else
	P_AgentID=request("pagentid")
	If request("agenttype")=2 Then
		grade=2
	else
     	grade=1
	end if
End If
Set Rs6=Conn.Execute("select self_cuts from m_agent where id="&P_AgentID)
if P_AgentID>0 then
	if int(winloss)+int(bank)<>int(rs6("self_cuts")) then
     	Response.Write ("<script language=javascript>alert('成数设置不符合要求，所占成数的和应等于最大分配限额！');history.go(-1)</script>")
	 	Response.End
	end if
else
	if int(winloss)+int(bank)<>100 then
     	Response.Write ("<script language=javascript>alert('成数设置不符合要求，所占成数的和应等于100！');history.go(-1)</script>")
	 	Response.End
	end if
end if
Set Rs6=Conn.Execute("Insert Into m_agent (Login_Name,Login_Pwd,P_AdminID,P_AgentID,TrueName,Credits,Current_Credits,Self_Cuts,Super_Cuts,RegTime,Stat,Agenttype) values ('"&Login_Name&"','"&password&"','"&cstr(Session("SK2Admin"))&"',"&P_AgentID&",'"&alias&"',"&maxcredit&","&maxcredit&","&bank&","&winloss&",GetDate(),0,"&request("agenttype")&")")
Set Rs6=Conn.Execute("select items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock,accounts From m_quota Where accounts in (select Top 1 Login_Name from m_agent where ID in (select P_AgentID from m_agent where Login_Name='"&Login_Name&"')) Order By ID")
If Not Rs6.Eof Then
	Dim Super_Data,Agent_Name,I
	Super_Data=Rs6.GetRows(-1)
	Agent_Name=Super_Data(7,0)
	For I=0 To Ubound(Super_Data,2)
		Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values (1,'"&Login_Name&"','"&alias&"','"&Super_Data(0,I)&"',"&Super_Data(1,I)&","&Super_Data(2,I)&","&Super_Data(3,I)&","&Super_Data(4,I)&","&Super_Data(5,I)&","&Super_Data(6,I)&")")
	Next
	Set Rs6=Nothing
	If request("agenttype")=2 then
  		Response.Write ("<script language=javascript>location.href='index_ag.asp'</script>")
  		Response.End
	else
  		Response.Write ("<script language=javascript>location.href='index_agent.asp'</script>")
  		Response.End
	end if
End If

  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','特别号',13,14,15,0,100000,30000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','特别号单双',2.5,2.75,3,0,500000,50000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','特别号大小',2,2.25,2.5,0,500000,50000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','特别号合数单双',1.75,2,2.25,0,500000,50000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','正码',12,12,12,0,100000,30000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','总和单双',1.75,2,2.25,0,500000,50000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','总和大小',1.75,2,2.25,0,500000,50000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','二全中',15,15,15,0,30000,3000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','三全中',15,15,15,0,30000,3000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','三中二',15,15,15,0,30000,3000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','二中特',15,15,15,0,30000,3000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','特串',15,15,15,0,30000,3000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','正码过关',12,12,12,0,30000,3000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','色波',2,2,2,0,100000,3000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','生肖',10,10,10,0,100000,30000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','正码1-6单双',1.75,2,2.25,0,500000,50000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','正码1-6色波',2,2,2,0,500000,50000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','正码1-6大小',1.75,2,2.25,0,500000,50000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','一肖',1.75,2,2.25,0,500000,50000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','六肖',1.75,2,2.25,0,500000,50000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','半波',2,2.75,3,0,100000,30000)")
 Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','四肖',1.75,2,2.25,0,500000,50000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','五肖',1.75,2,2.25,0,500000,50000)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','尾数',1.75,2,2.25,0,500000,50000)")
   Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','正特',13,14,15,0,100000,30000)")
    Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','特别号B',3,4,5,0,100000,30000)")
	    Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,rake_D,odd_numbers,odd_stock) values ("&grade&",'"&Login_Name&"','"&alias&"','正码B',3,4,5,0,100000,30000)")

Set Rs6=Nothing
If request("agenttype")=1 then  
  Response.Write ("<script language=javascript>location.href='index_guan.asp'</script>")
  Response.End
else
	If request("agenttype")=2 then
  		Response.Write ("<script language=javascript>location.href='index_ag.asp'</script>")
  		Response.End
	else
  		Response.Write ("<script language=javascript>location.href='index_agent.asp'</script>")
  		Response.End
	end if
end if
%>