userdel.asp

来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 13 行

<!--#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
%>