addclassuser.asp

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

<%
' 参数列表
' 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=""
		For i = 1 To Request("user_id").Count
			cn.execute "insert into CLASSUSER (CID,UID) values("&request("class_id")&", "&Request("user_id")(i)&")"
			cuid=cuid+request("class_id")+"|"+Request("user_id")(i)+";"
		Next

		cn.close
		set cn=nothing
	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, 1
	set acman=nothing
%>