adduser.asp

ASP原码

<%
' 参数列表
' server_ip, server_port
' user_type, user_username, user_nickname, user_password, user_sex, user_mailadd
'
'
%>

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

<%
	if WRITE_ACLASS_DB=true then
		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")
		sql="insert into "&TBL_USER&"(ID, USERNAME, NICKNAME, PASSWORD, TYPE, SEX, MAILADD) values ("&user_id&", '"&request("user_username")&"', '"&_
				request("user_nickname")&"', '"&request("user_password")&"', "&request("user_type")&", "&request("user_sex")&", '"&request("user_mailadd")&"')"
		'response.write sql
		'response.end
		cn.execute sql
		rs.close
		cn.close
		set cn=nothing
	end if

	set acman=server.CreateObject("ACManCOM.ACMan")
	acman.AddUser ADMIN_NAME, ADMIN_PASSWORD, request("server_ip"), clng(request("server_port")), 1, ""&user_id&"|"&request("user_username")&"|"&request("user_nickname")&"|"&request("user_password")&"|"&request("user_mailadd")&"|"&request("user_type")&"|"&request("user_sex")&";", 1
	set acman=nothing
%>