user_save.asp

此源码的会员,代理,后台功能齐全,是真真正正包含数据库(在matali文件夹里)的源码

<!--#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"
  End Select
  Login_Name=med&"ihh"&Request.Form("num_0")&Request.Form("num_1")&Request.Form("num_2")&Request.Form("num_3")
  alias=Request.Form("alias")
  password=Request.Form("password")
  maxcredit=cLng(Request.Form("maxcredit"))
  'response.Write CheckStr(Request("Manager2"))
  if CheckStr(Request("Manager2"))<>"" then
  Manager=CheckStr(Request("Manager2"))
  else
  Manager=CheckStr(Request("Manager"))
  end if
'response.Write Manager
 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("SK2B")  Then
  	Set Rs6=Conn.Execute("Select Top 1 Current_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
   'AgentID=Rs6("P_AgentID")
   	 Set Rs5=Conn.Execute("Select Top 1 Login_Name,Current_Credits,P_AgentID,self_cuts,super_cuts From m_agent Where Login_name='"&manager&"' Order By ID Desc")
   	if session("SK2F")<>0 and not Rs5.eof then  
	  Agent_first=manager
	  Agent_second=Rs5("Login_Name")
	  dai_zc=Rs6("self_cuts")
	  zong_zc=Rs6("super_cuts")
	  guan_zc=Rs5("super_cuts")
	  else 
	  dai_zc=0
	  zong_zc=Rs6("self_cuts")
	  guan_zc=Rs6("super_cuts")
	  AgentID=0
	  Agent_first=manager
	  Agent_second=Session("SK2B")
	  end if
	  self_cuts=Rs6("self_cuts")
	  super_cuts=Rs6("super_cuts")
     Credit_R=Rs6("Current_Credits")
   '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
	Credit_A=maxcredit
	'response.Write Credit_R&"<br>"&Credit_A
   If Credit_R<Credit_A Then
    Set Rs6=Nothing
	Response.Write ("<script language=javascript>alert('信用额度超出上限！');history.go(-1)</script>")
	Response.End 
   	End If
 	
else
	'用于总代理不能有自己的会员
	if session("SK2F")=0 then
	response.write "<script lanuage=javascript>alert('请选择代理商!!');history.go(-1);</script>"
   response.end
   end if
   '用于总代理不能有自己的会员
   Set Rs6=Conn.Execute("Select Top 1 Current_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
   AgentID=Rs6("P_AgentID")
   	  Set Rs5=Conn.Execute("Select Top 1 Login_Name,Current_Credits,P_AgentID,self_cuts,super_cuts From m_agent Where ID='"&AgentID&"' Order By ID Desc")
   	if session("SK2F")<>0 and not Rs5.eof then  
	  Agent_first=session("SK2B")
	  Agent_second=Rs5("Login_Name")
	  dai_zc=Rs6("self_cuts")
	  zong_zc=Rs6("super_cuts")
	  guan_zc=Rs5("super_cuts")
	  else 
	  dai_zc=0
	  zong_zc=Rs6("self_cuts")
	  guan_zc=Rs6("super_cuts")
	  AgentID=0
	  Agent_first=0
	  Agent_second=Session("SK2B")
	  end if
	  self_cuts=Rs6("self_cuts")
	  super_cuts=Rs6("super_cuts")
     Credit_R=Rs6("Current_Credits")
   '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
	Credit_A=maxcredit
	'response.Write Credit_R&"<br>"&Credit_A
   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
   Set Rs6=Conn.Execute("Insert into m_member (Login_Name,Login_Pwd,TrueName,Manager,memed,Credits,current_credit,RegTime,stat,Agent_first,Agent_second,dai_zc,zong_zc,guan_zc) values ('"&Login_Name&"','"&password&"','"&alias&"','"&Manager&"','"&med&"',"&maxcredit&","&maxcredit&",GetDate(),1,'"&Agent_first&"','"&Agent_second&"',"&dai_zc&","&zong_zc&","&guan_zc&")")
  if request("manager") <>"" then
  manager=request("manager")
  end if
 if session("SK2F")<>"0" then
 Manager=session("SK2B")
 end if
    Set Rs6=Conn.Execute("update m_agent set Current_Credits=Current_Credits-'"&maxcredit&"' where Login_Name='"&Manager&"'")
   Set Rs6=Conn.Execute("select items,rake_A,rake_B,rake_C,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(6,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,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)&")")
	 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,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','特别号',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','特别号单双',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','特别号大小',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','特别号合数单双',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','正码',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','总和单双',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','总和大小',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','二全中',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','三全中',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','三中二',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','二中特',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','特串',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','正码过关',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','色波',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','生肖',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','正码1-6单双',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','正码1-6色波',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','正码1-6大小',0,0,0,0,0)")
  Set Rs6=Conn.Execute("Insert Into m_quota (grade,accounts,[tag],items,rake_A,rake_B,rake_C,odd_numbers,odd_stock) values (0,'"&Login_Name&"','"&alias&"','一肖',0,0,0,0,0)")
   '--

 Set Rs6=Nothing

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

 
  
%>