edit2.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")&"' and ID<>"&request("school_id")&"", 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
	
	'update the new record to user
	if clng(request("school_admin"))<>0 then 
		sql="update "&TBL_USER&" set SCHOOLID="&request("school_id")&" where ID="&request("school_admin")&""
		cn.Execute sql
	end if

	'update the new record to school
	sql="update SCHOOL set NAME='"&request("school_name")&"',SAID="&request("school_admin")&",MAX_CLASS="&_
		request("school_max_class")&",MAX_USER="&request("school_max_user")&", MAX_SRUSER="&_
		request("school_max_sruser")&", PUBLIC_IP='"&request("school_public_ip")&"', PUBLIC_PORT="&request("school_public_port")&" where ID="&request("school_id")&""
	'response.write sql
	'response.end
	cn.Execute sql

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