setowner.asp

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

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

<%
	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS
	
	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)
			Next
			arrUID=arrUID+")"
			
			sql="delete from TBL_CLASS_SRUSER where CID="&request("class_id")&" and UID in "&arrUID&""
			'response.write sql
			'response.end
			cn.execute sql
		else ' add
			For i = 1 To Request.Form("SelectedUser").Count
				cn.execute "insert into TBL_CLASS_SRUSER (CID,UID) values("&request("class_id")&", "&Request.Form("SelectedUser")(i)&")"
			Next
		end if
	end if

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