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,USERNAME from "&TBL_USER&" where username='"&request("user_username")&"' and ID<>"&request("user_id")&"", 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=request("user_id")

	sql="update "&TBL_USER&" set USERNAME='"&request("user_username")&"', NICKNAME='"&request("user_nickname")&"', PASSWORD='"&request("user_password")&"', SEX="&request("user_sex")&", MAILADD='"&request("user_mailadd")&"' where ID="&user_id&""
	cn.execute sql

	sql="delete from TBL_ASADMIN_SCHOOL where UID="&user_id&""
	'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

	cn.close
	Response.Redirect "list.asp"
%>