a_edit_agent_result.asp

1。超强文件读写锁定

<%'创建时间:2004/07/03
'创建人:
'功能:用于管理员修改会员
%>
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Islogin.asp"-->
<%
id=checkstr(request.QueryString("id"))
%>
<%u_total2=clng(request.form("u_total2"))'取得数据库中的总信用值
u_total=clng(request.form("u_total"))'取得文本框中输入的值
set Pro_rs=server.createobject("adodb.recordset")
Pro_sql="select Agent_Me_Max ,Agent_A_num ,Agent_total,Agent_second from Agent where Agent_name='"&session("A_name")&"'"
Pro_rs.open Pro_sql,conn,1,3
Me_total=Pro_rs("Agent_Me_Max")'此代理能设定会员的最大信用度
Agent_Me_num=Pro_rs("Agent_A_num")'此代理能设定的代理个数
Agent_total=Pro_rs("Agent_total")'此代理的可用信用度

'''''下面的if  到end if是用来判断此代理的信用度够不够分配
'if u_total2<>u_total then
'if Agent_total<u_total then
'  Response.Write "<script Language=Javascript>alert('您帐户上的信用度只剩下"&Agent_total&"，代理的总信用额度不能超过此数！');location.href = 'javascript:history.go(-1)';<'/script>"
'response.end 
'end if
'end if%>
<%
	Agent_name=request.form("M_name")
	Agent_password=request.form("M_password")
  M_id=checkstr(request.form("M_id"))
 set M_rs=server.createobject("adodb.recordset")
  M_sql="select * from Agent  where Agent_id="&M_id
  M_rs.open M_sql,conn,1,3 

%>

<%'用SPLIT函数循环取出会员的多项属性,再读入到数据库中相对应的列中.这样省去了,每个文本框都要用一个request.form的麻烦
    Agent_property=Request.form("u_property")
    Agent_propertys=split(Agent_property,",")
	for M_num=0 to ubound(Agent_propertys)
	if  not isnumeric( Agent_propertys(M_num)) then
	  Response.Write "<script Language=Javascript>alert('各类玩法的属性要为数字,请重新输入！');location.href = 'javascript:history.go(-1)';</script>"
  Response.end 
end if
  M_rs(17+M_num)=cdbl(Agent_propertys(M_num)) '特码佣金字段在数据库里排第13位,
   Next
	''''''''''''''''''''''''''''''''''
 
	M_rs("Agent_name")=Agent_name
	M_rs("Agent_password")=Agent_password
	M_rs("Agent_tel")=request.form("M_tel")
	M_rs("Agent_email")=request.form("M_email")
	M_rs("Agent_rank")=request.form("rank")
	M_rs("Agent_regip")=request.form("M_regip")
	M_rs("Agent_restart")=u_total
	M_rs("Agent_regtime")=request.form("M_regtime")
    M_rs("Agent_realname")=request.form("M_realname")
	M_rs("Agent_Me_Num")=clng(request.form("Member_num"))'最多允许会员个数
	M_rs("Agent_Me_Max")=request.form("Max_num")'所属会员的最大信用额
	M_rs("Agent_Me_Min")=request.form("Min_num")'所属会员的最小信用额
	'if  WeekDay(Date)=2 then '此判断用于当是星期一的时候才能修改占成
	M_rs("Agent_Ma_zc")=request.form("zc")'管理员占成
	'end if
	M_rs("Agent_A_Num")=clng(request.form("Agent_NUm"))'能增加的代理个数
	'''如果此代理的总信用度改变了，则要对他上级的可用信用度进行相应的修改
	if u_total> u_total2 then
	Pro_rs("Agent_total")=Agent_total-(u_total-u_total2)
	M_rs("agent_total")=M_rs("agent_total")+(u_total-u_total2)
	     else if u_total<u_total2 then
		Pro_rs("Agent_total")=Agent_total+(u_total2-u_total)
		M_rs("agent_total")=M_rs("agent_total")+(u_total-u_total2)
        end if
    end if
	fei_max=request.form("fei_max")
	m_rs("Agent_max_zc")=fei_max
	fei_max2=request.form("fei_max2")
if ccur(fei_max)>ccur(0.001) then
	if fei_max<=fei_max2 then '如果修改后的占成比之前的要小的话就要把以前所开会员的占成比这个数据大的改成修改后的这个数
	set rsf=server.createobject("adodb.recordset")
    sql_rsf="select * from member where member_second='"&agent_name&"' and member_feizc>="&fei_max&""
	rsf.open sql_rsf,conn,1,3
	do while not rsf.eof
	rsf("Member_feizc")=fei_max
	rsf.movenext
	loop
	rsf.close
	set rsf=nothing
	end if
else
	set rsf=server.createobject("adodb.recordset")
    sql_rsf="select * from member where member_second='"&agent_name&"'"
	rsf.open sql_rsf,conn,1,3
	do while not rsf.eof
	rsf("Member_feizc")=0.0
	rsf.movenext
	loop
	rsf.close
	set rsf=nothing
end if

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