del_memeber.asp

一个不错的个人商务网站的源码

<%
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/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=""Adminmember.asp"";</script>")
%>