user_save.asp

1。超强文件读写锁定

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  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"))
  Manager=CheckStr(Request("Manager2"))

 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 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 From m_agent Where ID='"&P_AgentID&"'")
	 Agent_first=manager
	 Agent_second=rs5("Login_Name")
	 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,guan_zc,Agent_first,Agent_second) values ('"&Login_Name&"','"&password&"','"&alias&"','"&Manager&"','"&med&"',"&maxcredit&","&maxcredit&",GetDate(),0,1,'"&Agent_first&"','"&Agent_second&"')")
 
   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&"','特别号',13,14,15,100000,30000)")
  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&"','特别号单双',2.25,2.5,2.75,500000,50000)")
  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&"','特别号大小',2.25,2.5,2.75,500000,50000)")
  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.75,2,2.25,500000,50000)")
  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&"','正码',11,11,11,100000,30000)")
  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&"','总和单双',2.5,2.75,3,500000,50000)")
  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&"','总和大小',2.5,2.75,3,500000,50000)")
  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&"','二全中',14,14,14,30000,3000)")
  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&"','三全中',14,14,14,30000,3000)")
  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&"','三中二',14,14,14,30000,3000)")
  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&"','二中特',14,14,14,30000,3000)")
  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&"','特串',14,14,14,30000,3000)")
  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&"','正码过关',11,11,11,30000,3000)")
  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&"','色波',2,2.5,3,100000,3000)")
  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&"','生肖',2,2.5,3,100000,30000)")
  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单双',2,2.25,2.5,500000,50000)")
  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色波',2,2.25,2.5,500000,50000)")
  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大小',2,2.25,2.5,500000,50000)")
  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&"','一肖',2,2.25,2.5,500000,50000)")
   '--

 Set Rs6=Nothing

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

 
  
%>