deleteuser.asp

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

<%
' 参数列表
' server_ip, server_port
' user_id, user_id, ... ,  
' 注意：允许连续多个user_id
'
'
%>

<!--#include file="Const.asp"-->

<%
	if WRITE_ACLASS_DB=true then
		set cn=server.CreateObject("ADODB.connection")
		cn.Open DSN_ACLASS
    
		count=0
		uid=""
		for each id in Request("user_id")
			cn.execute "delete from "&TBL_USER&" where ID="+ID+""
			cn.execute "delete from CLASSUSER where UID="+ID+""

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

		cn.close	
		set cn=nothing
	end if


	count=0
	uid=""
	for each id in Request("user_id")
		count=count+1
		uid=uid+ID+";"
	next

	set acman=server.CreateObject("ACManCOM.ACMan")
	acman.DelUser ADMIN_NAME, ADMIN_PASSWORD, request("server_ip"), clng(request("server_port")), count, uid
	set acman=nothing
%>