user_save.asp

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

<!--#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("maxcredit")) Then
  Response.Write ("<script language=javascript>alert('信用额度有填写错误！');history.go(-1)</script>")
  Response.End
End If

Dim Login_Name,alias,password,med,maxcredit,Manager
Select Case Request.Form("type")
    Case 1
	  med="a"
	Case 2
	  med="b"
	Case 3
	  med="c"
	Case 4
	  med="d"
  End Select
  alias=Request.Form("alias")
  password=Request.Form("password")
  maxcredit=cLng(Request.Form("maxcredit"))
  Manager=CheckStr(Request("Manager2"))

Dim num_1,num_2,num_3,num_4,num_5,num_6,num_7
  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 Rs6
   Set Rs6=Server.CreateObject("Adodb.RecordSet")
   Set Rs6=Conn.Execute("Select Login_Name From m_member Where Login_name='"&Login_Name&"' Order By ID Desc")
   If Not Rs6.Eof Then
    Set Rs6=Nothing
    Response.redirect "useradd.asp?error2=1"
	Response.End
   End If

  If Manager<>Session("SK2Admin") Then

   Set Rs6=Conn.Execute("Select Top 1 Credits,P_AgentID,self_cuts,super_cuts From m_agent Where Login_Name='"&Manager&"' Order By ID Desc")
   If Rs6.Eof Then
     Set Rs6=Nothing
	 Response.redirect "index_logout.asp"
	 Response.End
   End If
   Dim Credit_R,Credit_A
	 
     Credit_R=Rs6("Credits")
	 P_AgentID=Rs6("P_AgentID")
	 if P_AgentID>0 then
	 Set Rs5=Conn.Execute("Select Top 1 Login_Name,Credits,self_cuts,super_cuts,(select top 1 login_name from m_agent where id=a1.p_agentid) as pname From m_agent as a1 Where ID='"&P_AgentID&"'")
	 guan_zc=rs5("super_cuts")/10
	 zong_zc=rs6("super_cuts")/10
   	 dai_zc=rs6("self_cuts")/10
   	 dagu_zc=10-guan_zc-zong_zc-dai_zc
	 Agent_first=manager
	 Agent_second=rs5("Login_Name")
	 Agent_three=rs5("pname")
	 else
	 Agent_first=0
	 Agent_second=Manager
	 end if
   Set Rs6=Conn.Execute("Select Sum(Credits) As Credit_A From m_member Where Manager='"&Manager&"'")
   If Isnull(Rs6("Credit_A")) Then
     Credit_A=0
   Else
     Credit_A=Rs6("Credit_A")
   End If
   Credit_A=Credit_A+maxcredit

   If Credit_R<Credit_A Then
    Set Rs6=Nothing
	Response.Write ("<script language=javascript>alert('信用额度超出上限！');history.go(-1)</script>")
	Response.End 
   End If
  End If
if P_AgentID<1 then
Response.Write ("<script language=javascript>alert('请选择代理商！');history.go(-1)</script>")
	Response.End 
end if
   Set Rs6=Conn.Execute("Insert into m_member (Login_Name,Login_Pwd,TrueName,Manager,memed,Credits,current_credit,RegTime,stat,dai_zc,zong_zc,guan_zc,dagu_zc,Agent_first,Agent_second,Agent_three) values ('"&Login_Name&"','"&password&"','"&alias&"','"&Manager&"','"&med&"',"&maxcredit&","&maxcredit&",GetDate(),0,"&dai_zc&","&zong_zc&","&guan_zc&","&dagu_zc&",'"&Agent_first&"','"&Agent_second&"','"&Agent_three&"')")
 
   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 Manager from m_member 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 (0,'"&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

     Response.Write ("<script language=javascript>location.href='index_member.asp?Manager="&Agent_Name&"'</script>")
     Response.End
   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 (0,'"&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 (0,'"&Login_Name&"','"&alias&"','特别号单双',2.25,2.5,2.75,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 (0,'"&Login_Name&"','"&alias&"','特别号大小',2.25,2.5,2.75,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 (0,'"&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 (0,'"&Login_Name&"','"&alias&"','正码',11,11,11,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 (0,'"&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 (0,'"&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 (0,'"&Login_Name&"','"&alias&"','二全中',14,14,14,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 (0,'"&Login_Name&"','"&alias&"','三全中',14,14,14,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 (0,'"&Login_Name&"','"&alias&"','三中二',14,14,14,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 (0,'"&Login_Name&"','"&alias&"','二中特',14,14,14,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 (0,'"&Login_Name&"','"&alias&"','特串',14,14,14,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 (0,'"&Login_Name&"','"&alias&"','正码过关',11,11,11,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 (0,'"&Login_Name&"','"&alias&"','色波',2,2.5,3,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 (0,'"&Login_Name&"','"&alias&"','生肖',2,2.5,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 (0,'"&Login_Name&"','"&alias&"','正码1-6单双',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 (0,'"&Login_Name&"','"&alias&"','正码1-6色波',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 (0,'"&Login_Name&"','"&alias&"','正码1-6大小',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 (0,'"&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 (0,'"&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 (0,'"&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 (0,'"&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 (0,'"&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 (0,'"&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 (0,'"&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 (0,'"&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 (0,'"&Login_Name&"','"&alias&"','正码B',3,4,5,0,100000,30000)")
  
   '--

 Set Rs6=Nothing

  Response.Write ("<script language=javascript>location.href='index_member.asp?Manager="&Session("SK2Admin")&"'</script>")
  Response.End

 
  
%>