delete.asp

来自「ASP原码」· ASP 代码 · 共 19 行

<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->
<%
    set cn=server.CreateObject("ADODB.connection")
    cn.Open DSN_ACLASS
    
	for each i in Request.Form("SelectedUser")
		id=i
		if ID<>cstr(session("userid")) then 
			cn.execute "delete from "&TBL_USER&" where ID="+ID+""
			cn.execute "delete from TBL_ASADMIN_SCHOOL where UID="+ID+""
		end if
	next

	cn.close	
	set cn=nothing
	Response.Redirect "list.asp"
%>