setowner.asp

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

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

<%
	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS
	
	cuid=""
	if Request.Form("SelectedUser").Count > 0 then
		if request("owner_action")=0 then ' delete 
			arrUID="("
			For i = 1 To Request.Form("SelectedUser").Count
				if i>1 then arrUID=arrUID+","
				arrUID=arrUID+Request.Form("SelectedUser")(i)
				cuid=cuid+request("class_id")+"|"+Request.Form("SelectedUser")(i)+";"
			Next
			arrUID=arrUID+")"
			
			sql="delete from CLASSUSER where CID="&request("class_id")&" and UID in "&arrUID&""
			'response.write sql
			'response.end
			cn.execute sql

			set acman=server.CreateObject("ACManCOM.ACMan")
			acman.AddClassUser session("username"), session("Userpassword"), IA_Server_IP(cn), IA_Server_PORT(cn), Request.Form("SelectedUser").Count, cuid, 0
			set acman=nothing
		else ' add
			For i = 1 To Request.Form("SelectedUser").Count
				cn.execute "insert into CLASSUSER (CID,UID) values("&request("class_id")&", "&Request.Form("SelectedUser")(i)&")"
				cuid=cuid+request("class_id")+"|"+Request.Form("SelectedUser")(i)+";"
			Next

			set acman=server.CreateObject("ACManCOM.ACMan")
			acman.AddClassUser session("username"), session("Userpassword"), IA_Server_IP(cn), IA_Server_PORT(cn), Request.Form("SelectedUser").Count, cuid, 1
			set acman=nothing
		end if
	end if

	cn.close
	response.redirect "frmUser.asp"
%>