ag_up_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 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 Credits From m_agent Where ID="&C_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="&C_AgentID)
   'If Isnull(Rs6("Credit_A")) Then
   ' Credit_A=0
   'Else
   ' Credit_A=Rs6("Credit_A")
   'End If

   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

Credit_Now=Credit_C-Credit_A

  Set Rs6=Conn.Execute("update m_agent set Login_Pwd='"&password&"',TrueName='"&alias&"',Credits="&maxcredit&",Current_Credits="&maxcredit&",Stat="&stat&" where ID="&P_AgentID)
  Set Rs6=Conn.Execute("update m_agent set Current_Credits=Current_Credits+"&Credit_Now&" where Login_name='"&session("SK2B")&"'")
  Set Rs6=Nothing

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

%>