add2.asp

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

<!--#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")
	sql="insert into "&TBL_USER&"(ID, USERNAME, NICKNAME, PASSWORD, TYPE, SEX, PROTOCOL, MAILADD, SCHOOLID) values ("&user_id&", '"&request("user_username")&"', '"&_
			request("user_nickname")&"', '"&request("user_password")&"', "&UTP_ASADMIN&", "&request("user_sex")&", 0, '"&request("user_mailadd")&"', 0)"
	'response.write sql
	'response.end
	cn.execute sql

	' ASADMIN_SCHOOL
	for i_cid=1 to request("school_id").count()
		cn.execute "insert into TBL_ASADMIN_SCHOOL (SID,UID) values("&request("school_id")(i_cid)&", "&user_id&")"
	next

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