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 SCHOOL where NAME='"&request("school_name")&"'", cn
	if not rs.EOF then
		Response.Write "<p align=center>公司: '"&request("school_name")&"' 已经存在，请重新输入！</p>"
		Response.Write "<p align=center><a href='vbscript:history.back'>返回</a></p>"
		rs.close
		cn.close
		response.end
	end if
	rs.close
	
	school_id=GetNewID(cn, "SCHOOL", "ID")
	sql="insert into SCHOOL(ID, NAME, SAID, MAX_CLASS, MAX_USER, MAX_SRUSER, PUBLIC_IP, PUBLIC_PORT) values ("&school_id&", '"&_
		request("school_name")&"', "&request("school_admin")&", "&request("school_max_class")&", "&request("school_max_user")&", "&_
		request("school_max_sruser")&", '"&request("school_public_ip")&"', "&request("school_public_port")&")"
	'response.write sql
	'response.end
	cn.execute sql

	'update the new record to user
	if clng(request("school_admin"))<>0 then 
		sql="update "&TBL_USER&" set SCHOOLID="&school_id&" where ID="&request("school_admin")&""
		cn.Execute sql
	end if

	cn.close
	response.redirect "list.asp"
%>