modifyuser.asp

来自「ASP原码」· ASP 代码 · 共 32 行

<%
' 参数列表
' server_ip, server_port
' user_id, user_type, user_username, user_nickname, user_password, user_sex, user_mailadd
'
'
%>

<!--#include file="Const.asp"-->

<%
	if WRITE_ACLASS_DB=true then
		set cn=server.CreateObject("ADODB.connection")
		cn.Open DSN_ACLASS

		user_id=request("user_id")
		user_type=request("user_type")

		sql="update "&TBL_USER&" set USERNAME='"&request("user_username")&"', NICKNAME='"&request("user_nickname")&"', PASSWORD='"&request("user_password")&"', TYPE="&_
				user_type&", SEX="&request("user_sex")&", MAILADD='"&request("user_mailadd")&"' where ID="&user_id&""
		'response.write sql
		'response.end
		cn.execute sql
		cn.close
		set cn=nothing
	end if

	set acman=server.CreateObject("ACManCOM.ACMan")
	acman.AddUser ADMIN_NAME, ADMIN_PASSWORD, request("server_ip"), clng(request("server_port")), 1, ""&user_id&"|"&request("user_username")&"|"&request("user_nickname")&"|"&request("user_password")&"|"&request("user_mailadd")&"|"&user_type&"|"&request("user_sex")&";", 0
	set acman=nothing
%>