delete.asp

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

<!--#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_USER&" where ID="+ID+""
			cn.execute "delete from CLASSUSER where UID="+ID+""

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

	set acman=server.CreateObject("ACManCOM.ACMan")
	acman.DelUser session("username"), session("Userpassword"), IA_Server_IP(cn), IA_Server_PORT(cn), count, uid
	set acman=nothing

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