<!--#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("ID")) Then
  Response.Write ("<script language=javascript>alert('非法參數(shù)！');history.go(-1)</script>")
  Response.End
End If

Dim ID
 ID=cLng(Request("ID"))

Dim password,alias,med,maxcredit
  password=CheckStr(Request.Form("password"))
  alias=CheckStr(Request.Form("alias"))
  med=checkstr(Request.Form("type"))
  maxcredit=cLng(Request.Form("maxcredit"))
  Manager=CheckStr(Request("Manager"))

  If Manager<>Session("SK2Admin") Then

  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
   End If
Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  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
if request("stat")=0 then
stat=1
else
stat=0
end if
  Response.Redirect "index_member.asp?manager="&request("manager")&"&k1="&stat&""
  Response.End

%>