deleteclassuser.asp

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

<%
' 参数列表
' server_ip, server_port
' class_id, 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
		
		cuid=""
		arrUID="("
		For i = 1 To Request("user_id").Count
			arrUID=arrUID+Request("user_id")(i)+","
			cuid=cuid+request("class_id")+"|"+Request("user_id")(i)+";"
		Next
		arrUID=arrUID+")"
		
		sql="delete from CLASSUSER where CID="&request("class_id")&" and UID in "&arrUID&""
		cn.execute sql
	end if
	
	cuid=""
	For i = 1 To Request("user_id").Count
		cuid=cuid+request("class_id")+"|"+Request("user_id")(i)+";"
	Next

	set acman=server.CreateObject("ACManCOM.ACMan")
	acman.AddClassUser ADMIN_NAME, ADMIN_PASSWORD, request("server_ip"), clng(request("server_port")), Request("user_id").Count, cuid, 0
	set acman=nothing
%>