a_edit_member_result.asp

1。超强文件读写锁定

<%'创建时间:2004/07/05
'创建人:
'功能:用于修改会员
%>
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Islogin.asp"-->
 <%
set Pro_rs=server.createobject("adodb.recordset")
Pro_sql="select Agent_Me_Max,Agent_total from Agent where Agent_name='"&session("A_name")&"'"
Pro_rs.open Pro_sql,conn,1,3
Agent_total=Pro_rs("Agent_total")'此代理的可用信用度

Me_total=Pro_rs("Agent_Me_Max")
  %>
<%
id=checkstr(request.form("id"))
u_total=clng(request.form("u_total"))
u_total2=clng(request.form("u_total2"))
 set M_rs=server.createobject("adodb.recordset")
  M_sql="select * from Member  where Member_id="&id
  M_rs.open M_sql,conn,1,3 
 
if u_total>Me_total then
  Response.Write "<script Language=Javascript>alert('您旗下会员的信用额度不能超过上级给你规定的值,请重新输入！');location.href = 'javascript:history.go(-1)';</script>"
  Response.end 
end if
u_property=request.Form("u_property")
u_propertys=split(u_property,",")
for i=0 to ubound(u_propertys)
M_rs(14+i)=cdbl(u_propertys(i))
 next
	M_rs("Member_password")=request.form("M_password")
	M_rs("Member_tel")=request.form("M_tel")
	M_rs("Member_email")=request.form("M_email")
	M_rs("Member_rank")=3
	M_rs("Member_restart")=u_total
	M_rs("Member_state")=request.form("M_state")
	M_rs("Member_regip")=request.form("M_regip")
	M_rs("Member_regtime")=now()
    M_rs("Member_realname")=request.form("M_realname")
	M_rs("Member_feizc")=request.form("feizc")
	M_rs("Member_second")=session("A_name")
	M_rs("Member_pan")=request.form("select")
		'''如果此会员的总信用度改变了，则要对他上级的可用信用度进行相应的修改
	if u_total> u_total2 then
	Pro_rs("Agent_total")=Agent_total-(u_total-u_total2)
		M_rs("member_total")=M_rs("member_total")+(u_total-u_total2)

	'response.write u_total-u_total2
		     else if u_total<u_total2 then
		Pro_rs("Agent_total")=Agent_total+(u_total2-u_total)
		M_rs("member_total")=M_rs("member_total")+(u_total-u_total2)
		'response.write u_total2-u_total
        end if
    end if
	Pro_rs.update
	'''''''''''''''''

	M_rs.update
	M_rs.close()
	Pro_rs.close
	conn.close()
	SET M_rs=nothing
	set conn=nothing
	Response.redirect "List_Member.asp"

%>