userdel.asp

1。超强文件读写锁定

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
  Login_name=Request("rid")

  Dim Rs6
Set Rs6=Conn.Execute("Select Top 1 * from m_member where Login_name='"&Login_name&"'")
manager=rs6("manager")
   Set Rs6=Conn.Execute("Delete From m_member Where Login_name='"&Login_name&"'")
   Set Rs6=Nothing
   Response.Write ("<script language=javascript>alert('"&Login_name&"已被删除！');location.href='index_member.asp?manager="&manager&"'</script>")
   Response.End
%>