batchadd2.asp

网络会议系统,WEB的。喜欢的下吧

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

<%
	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS

	set rsUser=server.CreateObject("ADODB.recordset")
	rsUser.Open "select ID from "&TBL_USER&" where SCHOOLID="&session("school_id")&"",cn,adOpenStatic
	existusercount=rsUser.RecordCount
	rsUser.close
	if  existusercount + clng(request("user_count")) > session("school_max_user") then
		Response.Write "<p align=center>对不起，您最多只能添加"&session("school_max_user")&"个用户。</p>"
		Response.Write "<p align=center><a href='vbscript:history.back'>返回</a></p>"
		
		cn.close
		response.end
	end if


	set rs=server.CreateObject("ADODB.recordset")

	user_count=0
	cu_count=0
	c = mid(request("user_count_base"),1,1)
	if asc(c)>=asc("0") and asc(c)<=asc("9") then
		user_count_base=clng(request("user_count_base"))-1
	else
		user_count_base=asc(c)-1 ' Alpha!
	end if
	userinfo=""
	cuid=""
	for i=1 to clng(request("user_count"))
		if asc(c)>=asc("0") and asc(c)<=asc("9") then
			endfix = cstr(user_count_base+i)
		else
			endfix = chr(user_count_base+i)
		end if
		user_username=request("user_username")+endfix
		user_nickname=request("user_nickname")+endfix
		rs.Open "select ID from "&TBL_USER&" where username='"&user_username&"'", cn
		iseof=rs.EOF
		rs.close
		if iseof then
			if request("user_pwdasuser") = "true" then 
				user_password=user_username
			else
				user_password=request("user_password")
			end if
			' USER
			user_id=GetNewID(cn, TBL_USER, "ID")
			user_verify_hid=XFalse
			if request("user_verify_hid")<>"" then user_verify_hid=XTrue
			sql="insert into "&TBL_USER&"(ID, USERNAME, NICKNAME, PASSWORD, VERIFY_HID, HID, TYPE, SEX, PROTOCOL, MAILADD, SCHOOLID) values ("&user_id&", '"&user_username&"', '"&_
					user_nickname&"', '"&user_password&"', "&user_verify_hid&", '"&request("user_hid")&"', "&request("user_type")&", "&request("user_sex")&", "&request("user_protocol")&", '"&request("user_mailadd")&"', "&session("school_id")&")"
			cn.execute sql

			user_count=user_count+1
			userinfo=userinfo + ""&user_id&"|"&user_username&"|"&user_nickname&"|"&user_password&"|"&request("user_mailadd")&"|"&request("user_type")&"|"&request("user_sex")&"|"&request("user_protocol")&"|"&user_verify_hid&"|"&request("user_hid")&";"

			' CLASSUSER
			for i_cid=1 to request("class_id").count()
				cn.execute "insert into CLASSUSER (CID,UID) values("&request("class_id")(i_cid)&", "&user_id&")"

				cu_count=cu_count+1
				cuid=cuid + request("class_id")(i_cid)+"|"+cstr(user_id)+";"
			next
		end if
	next

	if user_count > 0 then 
		set acman=server.CreateObject("ACManCOM.ACMan")
		acman.AddUser "123456", "123456", IA_Server_IP(cn), IA_Server_PORT(cn), user_count, userinfo, 1
		set acman=nothing

		if clng(request("class_id"))<>0 then
			set acman=server.CreateObject("ACManCOM.ACMan")
			acman.AddClassUser "123456", "123456", IA_Server_IP(cn), IA_Server_PORT(cn), cu_count, cuid, 1
			set acman=nothing
	end if

		set acman=nothing
	end if

	cn.close
	set cn=nothing
	Response.Redirect "list.asp?sql=All"
%>