del_memeber.asp

来自「购物系统时尚版.强大的后台文章编辑器的功能」· ASP 代码 · 共 29 行

<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<%
   id=my_request("id",1)
   page=my_request("page",1)
   set rs=server.createobject("adodb.recordset")
   
   sql="select * from user_info_list where id="&id 
   rs.open sql,conn,3,3
   userid=rs("txt_login_name")
   rs.delete
   rs.update
   rs.close
   set rs=nothing
  
   set rs=server.createobject("adodb.recordset")
   sql="delete from buyer where userid='"&userid&"'"
   rs.open sql,conn,3,3
   rs.close
   set rs=nothing
   
   set rs=server.createobject("adodb.recordset")
   sql="delete from list where huiyuan='"&userid&"'"
   rs.open sql,conn,3,3
   rs.close
   set rs=nothing
Response.Write("<script>alert(""成功删除！"");location.href=""memeber.asp"";</script>")
%>