a_del_agent.asp

1。超强文件读写锁定

<%'创建时间:2004/07/02
'创建人:
'功能:用于管理员删除会员
%>
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Islogin.asp"-->
<%'id=checkstr(request.QueryString("id"))
name1=checkstr(request.QueryString("name"))
'删除指定的代理以及此代理下的所有分销商
'//12-24新增 判断会员是否有下注。
  Set Kithe_rs=server.CreateObject("adodb.recordset")
  Kithe_sql="select Kithe_issue from Kithe order by Kithe_issue desc"
  Kithe_rs.open Kithe_sql,conn,1,1
  if Not Kithe_rs.eof then
  Kithe_num=Kithe_rs("Kithe_issue")+1
  else
  Kithe_num=0+1
  end if
  Kithe_rs.close
  set Kithe_rs=nothing
'//获取期数完毕
'//开始判断
Set invest_rs=server.CreateObject("adodb.recordset")
sql="select * from invest where invest_second='"&name1&"' and invest_issue="&Kithe_num&""
invest_rs.open sql,conn,1,1
  if not (invest_rs.bof and invest_rs.eof) then
	Response.Write "<script language='javascript'>alert('本代理期下会员本期特码已经有单，不能删除!');location.href=""list_agent.asp"";</script>"
	response.Write invest_rs("invest_frist")
	response.End()
	
 end if
 invest_rs.close
 set invest_rs=nothing
Set invest_rs=server.CreateObject("adodb.recordset")
sql="select * from invest_l where Invest_Second='"&name1&"' and invest_issue="&Kithe_num&""
  invest_rs.open sql,conn,1,1
  if not (invest_rs.bof and invest_rs.eof) then
	Response.Write "<script language='javascript'>alert('本代理期下会员本期连码已经有单，不能删除!');location.href=""list_agent.asp"";</script>"
	response.End()
 end if
 invest_rs.close
 set invest_rs=nothing
'//判断结束 12-24完毕。

a_sql="update agent set agent_total=agent_total+(select agent_restart from  agent where agent_name='"&name1&"') where agent_name='"&session("a_name")&"'"
  'response.write a_sql
 conn.execute a_sql

 M_sql="delete from Agent where Agent_name='"&name1 &"' or agent_second='"&name1&"'"
  conn.execute M_sql	
  '删除此代理下的所有会员
  Me_sql="delete from  member  where member_second='"&name1&"' or member_frist='"&name1&"'"
  conn.execute Me_sql
  
  '删除此代理下所有会员的投注
  invest_sql="delete from  invest where invest_second='"&name1&"' or invest_frist='"&name1&"'"
  conn.execute invest_sql
response.Redirect("List_agent.asp")
%>