add2.asp

ASP原码

<!--#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 from TBL_SRUSER 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
	rs.close

	user_id=GetNewID(cn, "TBL_SRUSER", "ID")
	sql="insert into TBL_SRUSER(ID, USERNAME, PASSWORD, UID, SCHOOLID) values ("&user_id&", '"&request("user_username")&"', '"&request("user_password")&"', '"&_
			request("user_uid")&"', "&request("user_schoolid")&")"
	'response.write sql
	'response.end
	cn.execute sql

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

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