ag_add_act.asp

1。超强文件读写锁定

<!--#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("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
 Login_Name="ihh"&num_1&num_2&num_3&num_4

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.redirect "ag_add.asp?error2=1&P_AgentID="&P_AgentID&""
	Response.End
   End If
   

  Dim Credit_R,Credit_A
   Set Rs6=Conn.Execute("Select Top 1 Current_Credits From m_agent Where ID="&P_AgentID&" Order By ID Desc")
   If Not Rs6.Eof Then
    Credit_R=Rs6("Current_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
	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

     grade=1

  
  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("update m_agent set Current_Credits=Current_Credits-'"&maxcredit&"' where  Login_Name='"&session("SK2B")&"'")
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")

'Set Rs6=Conn.Execute("update m_agent set Credits=Credits-'"&maxcredit&"' where Login_Name='"&session("SK2B")&"'")
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.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 ("&grade&",'"&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 ("&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&"','正码',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 ("&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.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&"','二全中',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 ("&grade&",'"&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 ("&grade&",'"&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 ("&grade&",'"&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 ("&grade&",'"&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 ("&grade&",'"&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 ("&grade&",'"&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 ("&grade&",'"&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 ("&grade&",'"&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 ("&grade&",'"&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 ("&grade&",'"&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 ("&grade&",'"&Login_Name&"','"&alias&"','一肖',2,2.25,2.5,500000,50000)")

  '---

  Set Rs6=Nothing

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

%>