mem_up_act.asp

1。超强文件读写锁定

<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<%
If Session("SK2B")="" Then
  Response.Redirect "888_Login.Asp"
  Response.End
End If

If Not Isnumeric(Request("ID")) 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 ID
 ID=cLng(Request("ID"))

Dim password,alias,med,maxcredit,Manager
  password=CheckStr(Request.Form("password"))
  alias=CheckStr(Request.Form("alias"))
  med=checkstr(Request.Form("type"))
  maxcredit=cLng(Request.Form("maxcredit"))
  Manager=CheckStr(Request("Manager"))
Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")

  Set Rs6=Conn.Execute("Select Top 1 Credits From m_member Where ID="&ID&" Order By ID Desc")
  If Rs6.Eof Then
     Set Rs6=Nothing
	 Response.Redirect "index_logout.asp"
	 Response.End
   End If

    Dim Credit_R,Credit_A,Credit_C
	 
     Credit_C=Rs6("Credits")

  Set Rs6=Conn.Execute("Select Top 1 Credits From m_agent Where Login_Name='"&Manager&"' Order By ID Desc")
  If Rs6.Eof Then
     Set Rs6=Nothing
	 Response.Redirect "index_logout.asp"
	 Response.End
   End If

     Credit_R=Rs6("Credits")
 
  Set Rs6=Conn.Execute("Select Sum(Credits) As Credit_A From m_member Where Manager='"&Manager&"'")
   If Isnull(Rs6("Credit_A")) Then
     Credit_A=0
   Else
     Credit_A=Rs6("Credit_A")
   End If
   Credit_A=Credit_A+maxcredit-Credit_C

   If Credit_R<Credit_A Then
    Set Rs6=Nothing
	Response.Write ("<script language=javascript>alert('信用额度超出上限！');history.go(-1)</script>")
	Response.End 
   End If
   Credits_now=Credit_R-maxcredit
  Set Rs6=Conn.Execute("update  m_agent set Current_Credits=Current_Credits+'"&Credits_now&"'  Where Login_Name='"&Manager&"'")
  Set Rs6=Conn.Execute("update m_member set Login_Pwd='"&password&"',TrueName='"&alias&"',memed='"&med&"',Current_Credit="&maxcredit&"-Credits+Current_Credit, Credits="&maxcredit&" where ID="&ID)
  Set Rs6=Nothing

  Response.Redirect "index_member.asp?manager="&manager
  Response.End

%>