ag_up_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 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 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

If C_AgentID>0 Then 
 Credit_now=maxcredit- Credit_C
  if Current_Credits-maxcredit+ Credit_C<0 then
Response.Write ("<script language=javascript>alert('总信用额度超出上限！');history.go(-1)</script>")
	 Response.End
  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)
else
  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)
End If
  Set Rs6=Nothing

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

%>