edit2.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 ID,USERNAME from "&TBL_USER&" where username='"&request("user_username")&"' and ID<>"&request("user_id")&"", 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
	rs.close

	user_id=request("user_id")
	if user_id<>cstr(session("userid")) then 
		user_type=request("user_type")
	else
		user_type=UTP_SCHOOLADMIN ' if I'm admin, should not modify usertype!
	end if

	user_verify_hid=XFalse
	if request("user_verify_hid")<>"" then user_verify_hid=XTrue
	sql="update "&TBL_USER&" set USERNAME='"&request("user_username")&"', NICKNAME='"&request("user_nickname")&"', PASSWORD='"&_
			request("user_password")&"', VERIFY_HID="&user_verify_hid&", HID='"&request("user_hid")&"', TYPE="&_
			user_type&", SEX="&request("user_sex")&", PROTOCOL="&request("user_protocol")&", MAILADD='"&request("user_mailadd")&"' where ID="&user_id&""
	'response.write sql
	'response.end
	cn.execute sql

	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")&"|"&user_type&"|"&request("user_sex")&"|"&request("user_protocol")&"|"&user_verify_hid&"|"&request("user_hid")&";", 0
	set acman=nothing

	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 

	cn.close
	Response.Redirect "list.asp"
%>