ag_up_act.asp

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

<!--#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 password,maxcredit,alias,stat
password=checkstr(request.form("password"))
maxcredit=cLng(request.form("maxcredit"))
alias=checkstr(request.form("alias"))
stat=cInt(request.form("type"))

Dim Rs6
Set Rs6=Server.CreateObject("Adodb.RecordSet")
Set Rs6=Conn.Execute("Select Login_Name,P_AgentID,Credits From m_agent Where ID="&P_AgentID&" Order By ID Desc")
If Rs6.Eof Then
    Set Rs6=Nothing
    Response.Write ("<script language=javascript>alert('不存在："&Login_Name&"！');history.go(-1)</script>")
	Response.End
End If

Dim Credit_R,Credit_A,C_AgentID,Credit_C
Credit_C=Rs6("Credits")
C_AgentID=Rs6("P_AgentID")
if maxcredit<Credit_C then
    creditflag=true
end if
If C_AgentID>0 Then
   Set Rs6=Conn.Execute("Select Top 1 Current_Credits,Credits From m_agent Where ID="&C_AgentID&" Order By ID Desc")
   If Not Rs6.Eof Then
    	Credit_R=Rs6("Credits")
		Current_Credits=Rs6("Current_Credits")
   End If
   Set Rs6=Conn.Execute("Select Sum(Credits) As Credit_A From m_agent Where P_AgentID="&C_AgentID)
   If Isnull(Rs6("Credit_A")) Then
    	Credit_A=0
   Else
    	Credit_A=Rs6("Credit_A")
   End If
   Credit_A=Credit_A-Credit_C+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
Credit_now=maxcredit- Credit_C
if C_AgentID=0 and Credit_C>100000000 then
	Response.Write ("<script language=javascript>alert('总信用额度超出上限！');history.go(-1)</script>")
	Response.End
end if
  
Set Rs6=Conn.Execute("select p_agentid,(select self_cuts from m_agent where id=a1.p_agentid) as zcmax,self_cuts from m_agent as a1 where ID="&P_AgentID)
if rs6("p_agentid")>0 then
	if int(request.form("winloss"))+int(request.form("bank"))<>int(rs6("zcmax")) then
     	Response.Write ("<script language=javascript>alert('成数设置不符合要求，所占成数的和应等于最大分配限额！');history.go(-1)</script>")
	 	Response.End
	end if
else
	if int(request.form("winloss"))+int(request.form("bank"))<>100 then
     	Response.Write ("<script language=javascript>alert('成数设置不符合要求，所占成数的和应等于100！');history.go(-1)</script>")
	 	Response.End
	end if
end if
if int(rs6("self_cuts"))<>int(request.form("bank")) then
	zcflag=true
end if
agenttype=request("agenttype")

if agenttype=3 then
  Set Rs6=Conn.Execute("update m_agent set super_cuts="&request.form("winloss")&",self_cuts="&request.form("bank")&" where ID="&P_AgentID)
  Set Rs6=Conn.Execute("select login_name from m_agent where ID="&P_AgentID)
  Set Rs7=Conn.Execute("update m_member set zong_zc="&request.form("winloss")/10&",dai_zc="&request.form("bank")/10&" where manager='"&rs6("login_name")&"'")
  if creditflag=true then
  	Set Rs7=Conn.Execute("update m_member set Current_Credit=0,Credits=0 where manager='"&rs6("login_name")&"'")
  end if
  Set Rs6=Conn.Execute("update m_agent set Current_Credits=Current_Credits-"&Credit_now&" where ID="&C_AgentID&"")
  Set Rs6=Conn.Execute("update m_agent set Login_Pwd='"&password&"',TrueName='"&alias&"',Current_Credits=Current_Credits+"&maxcredit&"-Credits,Credits="&maxcredit&",Stat="&stat&" where ID="&P_AgentID)
  Set Rs6=Nothing
  Set Rs7=Nothing
  creditflag=false
  If request("agenttype")=1 then  
  	Response.Write ("<script language=javascript>location.href='index_guan.asp'</script>")
  	Response.End
  else
	If request("agenttype")=2 then
  		Response.Write ("<script language=javascript>location.href='index_ag.asp'</script>")
  		Response.End
	else
  		Response.Write ("<script language=javascript>location.href='index_agent.asp'</script>")
  		Response.End
	end if
   end if
end if

if agenttype=2 then
  Set Rs6=Conn.Execute("update m_agent set super_cuts="&request.form("winloss")&",self_cuts="&request.form("bank")&" where ID="&P_AgentID)
  Set Rs6=Conn.Execute("update m_agent set Current_Credits=Current_Credits-"&Credit_now&" where ID="&C_AgentID&"")
  Set Rs6=Conn.Execute("update m_agent set Login_Pwd='"&password&"',TrueName='"&alias&"',Current_Credits=Current_Credits+"&maxcredit&"-Credits,Credits="&maxcredit&",Stat="&stat&" where ID="&P_AgentID)
  if creditflag=true then
  	Set Rs6=Conn.Execute("update m_agent set Current_Credits=0,Credits=0 where P_AgentID="&P_AgentID)
  end if
  if zcflag=true then
  	Set Rs6=Conn.Execute("update m_agent set super_cuts=0,self_cuts=0 where P_AgentID="&P_AgentID)
  end if
  Set Rs6=Conn.Execute("select login_name from m_agent where P_AgentID="&P_AgentID)
  do while not Rs6.eof
  	if creditflag=true then
  		Set Rs7=Conn.Execute("update m_member set Current_Credit=0,Credits=0 where manager='"&rs6("login_name")&"'")
  	end if
  	if zcflag=true then
  		Set Rs7=Conn.Execute("update m_member set guan_zc="&request.form("winloss")/10&",zong_zc="&request.form("bank")/10&",dai_zc=0 where manager='"&rs6("login_name")&"'")
  	end if
  	Rs6.movenext
  loop
  Set Rs6=Nothing
  Set Rs7=Nothing
  creditflag=false
  zcflag=false
  If request("agenttype")=1 then  
  	Response.Write ("<script language=javascript>location.href='index_guan.asp'</script>")
  	Response.End
  else
	If request("agenttype")=2 then
  		Response.Write ("<script language=javascript>location.href='index_ag.asp'</script>")
  		Response.End
	else
  		Response.Write ("<script language=javascript>location.href='index_agent.asp'</script>")
  		Response.End
	end if
   end if
end if

if agenttype=1 then
  Set Rs6=Conn.Execute("update m_agent set super_cuts="&request.form("winloss")&",self_cuts="&request.form("bank")&" where ID="&P_AgentID)
  Set Rs6=Conn.Execute("update m_agent set Login_Pwd='"&password&"',TrueName='"&alias&"',Current_Credits=Current_Credits+"&maxcredit&"-Credits,Credits="&maxcredit&",Stat="&stat&" where ID="&P_AgentID)
  if creditflag=true then
  	Set Rs6=Conn.Execute("update m_agent set Current_Credits=0,Credits=0 where P_AgentID="&P_AgentID)
  end if
  if zcflag=true then
  	Set Rs6=Conn.Execute("update m_agent set super_cuts=0,self_cuts=0 where P_AgentID="&P_AgentID)
  end if
  Set Rs8=Conn.Execute("select id from m_agent where P_AgentID="&P_AgentID)
  do while not Rs8.eof
  	if creditflag=true then
  		Set Rs6=Conn.Execute("update m_agent set Current_Credits=0,Credits=0 where P_AgentID="&Rs8("id"))
  	end if
  	if zcflag=true then
  		Set Rs6=Conn.Execute("update m_agent set super_cuts=0,self_cuts=0 where P_AgentID="&Rs8("id"))
  	end if
  	Set Rs6=Conn.Execute("select login_name from m_agent where P_AgentID="&Rs8("id"))
  	do while not Rs6.eof
  		if creditflag=true then
  			Set Rs7=Conn.Execute("update m_member set Current_Credit=0,Credits=0 where manager='"&rs6("login_name")&"'")
  		end if
  		if zcflag=true then
  			Set Rs7=Conn.Execute("update m_member set dagu_zc="&request.form("winloss")/10&",guan_zc="&request.form("bank")/10&",zong_zc=0,dai_zc=0 where manager='"&rs6("login_name")&"'")
  		end if
  		Rs6.movenext
  	loop
  	Rs8.movenext
  loop
  Set Rs6=Nothing
  Set Rs7=Nothing
  Set Rs8=Nothing
  creditflag=false
  zcflag=false
  If request("agenttype")=1 then  
  	Response.Write ("<script language=javascript>location.href='index_guan.asp'</script>")
  	Response.End
  else
	If request("agenttype")=2 then
  		Response.Write ("<script language=javascript>location.href='index_ag.asp'</script>")
  		Response.End
	else
  		Response.Write ("<script language=javascript>location.href='index_agent.asp'</script>")
  		Response.End
	end if
   end if
end if
%>