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 TBL_SRUSER 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_SRUSER set USERNAME='"&request("user_username")&"', PASSWORD='"&request("user_password")&"', UID='"&request("user_uid")&"' where ID="&user_id&""
	cn.execute sql

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