delete.asp

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

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

			count=count+1
			uid=uid+ID+";"
		end if
	next

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