<!--#include file="../../p_inc/Include_func.asp"-->
<!--#include file="../inc/public.asp"-->
<!--#include file="../inc/openconn.asp"-->
<% 
act=true
id=clng(request.Form("id"))
username=Replace_Text(request.Form("username"))
password=Replace_Text(request.Form("password"))
'str_name=Replace_Text(request.Form("str_name"))
dns=Replace_Text(request.Form("dns"))

lev=Replace_Text(request.Form("lev"))
'str_tel=Replace_Text(request.Form("dd"))
'str_mail=trim(request.Form("str_mail"))
'remark=Replace_Text(request.Form("remark"))
remark=replace(remark,chr(32),"&nbsp;")
remark=replace(remark,chr(13)+chr(10),"<br>")
'str_level=clng(request.Form("str_level"))
'str_lock=clng(request.Form("str_lock"))

set rscheck=server.CreateObject("adodb.recordset")
sqlcheck="select * from [user] where id="&id&""
rscheck.open sqlcheck,conn,1,3,&H0001
if not rscheck.eof then
	if password<>"" then
		password=md5(password,16)
		rscheck("password")=password
	end if
	rscheck("dns")=dns
	rscheck("lev")=lev
	'rscheck("str_mail")=str_mail
	'rscheck("remark")=remark
	'rscheck("str_level")=str_level
	'rscheck("flag")=str_lock
	rscheck.update
	rscheck.close
	set rscheck=nothing
	Response.Redirect("../success.asp?ErrCodes="&Server.URLEncode("资料修改成功")&"&ErrorUrl=reg58119/list.asp&c=返回管理员列表")
	response.End()
end if



%>

