ag_add_act.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("P_AgentID")) 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


Dim P_AgentID

If Request("P_AgentID")="" Then
  P_AgentID=0
Else
  P_AgentID=cInt(Request("P_AgentID"))
End If

Dim num_1,num_2,num_3,num_4,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")
 
 If num_4="" Then
  num_4=0
 End If
 If P_AgentID=0 Then
  Login_Name="hhy"&num_1&num_2&num_3&num_4
 Else
  Login_Name="ihh"&num_1&num_2&num_3&num_4
 End If

Dim password,maxcredit,alias,winloss,bank,grade
     password=checkstr(request.form("password"))
	 maxcredit=cLng(request.form("maxcredit"))
	 alias=checkstr(request.form("alias"))
	 winloss=(request.form("winloss"))*100
	 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 P_AgentID>0 Then
  Dim Credit_R,Credit_A
   Set Rs6=Conn.Execute("Select Top 1 Credits From m_agent Where ID="&P_AgentID&" Order By ID Desc")
   If Not Rs6.Eof Then
    Credit_R=Rs6("Credits")
   End If
   Set Rs6=Conn.Execute("Select Sum(Credits) As Credit_A From m_agent Where P_AgentID="&P_AgentID)
   If Isnull(Rs6("Credit_A")) Then
    Credit_A=0
   Else
    Credit_A=Rs6("Credit_A")
   End If

    Credit_A=Credit_A+maxcredit

   If Credit_A>Credit_R Then
     Set Rs6=Nothing
     Response.Write ("<script language=javascript>alert('总信用额度超出上限！');history.go(-1)</script>")
	 Response.End
   End If
   End If

   
   If P_AgentID=0 Then
     grade=2
   Else
     grade=1
   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) values ('"&Login_Name&"','"&password&"','"&cstr(Session("SK2Admin"))&"',"&P_AgentID&",'"&alias&"',"&maxcredit&","&maxcredit&","&bank&","&winloss&",GetDate(),1)")

Set Rs6=Conn.Execute("select items,rake_A,rake_B,rake_C,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(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 (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)&")")
  Next
  Set Rs6=Nothing

     Response.Write ("<script language=javascript>location.href='index_agent.asp'</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 ("&grade&",'"&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 ("&grade&",'"&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 ("&grade&",'"&Login_Name&"','"&alias&"','特别号大小',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 ("&grade&",'"&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 ("&grade&",'"&Login_Name&"','"&alias&"','正码',12,12,12,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 ("&grade&",'"&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 ("&grade&",'"&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 ("&grade&",'"&Login_Name&"','"&alias&"','二全中',15,15,15,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 ("&grade&",'"&Login_Name&"','"&alias&"','三全中',15,15,15,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 ("&grade&",'"&Login_Name&"','"&alias&"','三中二',15,15,15,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 ("&grade&",'"&Login_Name&"','"&alias&"','二中特',15,15,15,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 ("&grade&",'"&Login_Name&"','"&alias&"','特串',15,15,15,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 ("&grade&",'"&Login_Name&"','"&alias&"','正码过关',12,12,12,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 ("&grade&",'"&Login_Name&"','"&alias&"','色波',2,2,2,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 ("&grade&",'"&Login_Name&"','"&alias&"','生肖',10,10,10,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 ("&grade&",'"&Login_Name&"','"&alias&"','正码1-6单双',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 ("&grade&",'"&Login_Name&"','"&alias&"','正码1-6色波',2,2,2,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 ("&grade&",'"&Login_Name&"','"&alias&"','正码1-6大小',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 ("&grade&",'"&Login_Name&"','"&alias&"','一肖',1.75,2,2.25,500000,50000)")

  '---

  Set Rs6=Nothing

  
  Response.Write ("<script language=javascript>location.href='index_agent.asp'</script>")
  Response.End

%>