add2.asp

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

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

<%
	set cn=server.CreateObject("ADODB.connection")
    cn.Open DSN_ACLASS
	set rs=server.CreateObject("ADODB.recordset")
	rs.Open "select * from "&TBL_USER&" where username='"&request("user_username")&"'", cn
	if not rs.EOF then
		Response.Write "<p align=center>用户名 "&request("user_username")&" 已经存在，请重新输入！</p>"
		Response.Write "<p align=center><a href='vbscript:history.back'>返回</a></p>"
		rs.close
		response.end
	end if

	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&", '"&request("user_username")&"', '"&_
			request("user_nickname")&"', '"&request("user_password")&"', "&user_verify_hid&", '"&request("user_hid")&"', "&request("user_type")&", "&request("user_sex")&", "&request("user_protocol")&", '"&request("user_mailadd")&"', "&session("school_id")&")"
	'response.write sql
	'response.end
	cn.execute sql

	' CLASSUSER
	cu_count=0
	cuid=""
	if IA_CanAssignClassUser(clng(request("user_type")))=true then
		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

	set acman=server.CreateObject("ACManCOM.ACMan")
	acman.AddUser "123456", "123456", IA_Server_IP(cn), IA_Server_PORT(cn), 1, ""&user_id&"|"&request("user_username")&"|"&request("user_nickname")&"|"&request("user_password")&"|"&request("user_mailadd")&"|"&request("user_type")&"|"&request("user_sex")&"|"&request("user_protocol")&"|"&user_verify_hid&"|"&request("user_hid")&";", 1
	set acman=nothing

	if IA_CanAssignClassUser(clng(request("user_type")))=true and cu_count>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

	xmailcontent=request("user_username")+", 您好！" + vbCrLf + vbCrLf 
	xmailcontent=xmailcontent + "欢迎使用远程交互式教学系统。您的用户名：" + request("user_username") + "  密码：" + request("user_password") + vbCrLf
	xmailcontent=xmailcontent + "您可以访问 "+session("HOME_DIR")+"system/verify.asp?username="+request("user_username")+"&password="+request("user_password")+" 登录系统。"+ vbCrLf + vbCrLf
	xmailcontent=xmailcontent + "系统管理员"
	IA_SendMail cn, false, request("user_mailadd")+";", "用户密码通知！", xmailcontent 

	rs.close
	cn.close
	set cn=nothing
	Response.Redirect "add.asp" '"list.asp"
%>