admin_user_save.asp

新的简单易用的公司管理系统

<!--#include file=conn.asp-->
<!--#include file=admin_chkpass.asp-->
<!--#include file=inc/function.asp-->
<!--#include file=inc/md5.asp-->
<%
dim rs,sql,nusr,npwd
nusr=replacebadchar(trim(request("usr")))
npwd=trim(request("pwd"))
If nusr="" then
response.write"<script>alert('"&ewap_(38)&"');;this.location.href='admin_user.asp'</script>"
response.end
else
set rs=server.createobject("ADODB.Recordset")
sql="select * from com where usr='"&session("admin")&"'"
rs.open sql,cn,3,3
If npwd="" then
rs("usr")=nusr
else
rs("pwd")=md5(npwd)
rs("usr")=nusr
end if
rs.update
If err then
response.write"<script>alert('"&ewap_(34)&"');window.document.location.href='admin_user.asp'</script>"
else
session("admin")=""
	rs.close
	set rs=nothing
	cn.close
	set cn=nothing
response.write"<script>alert('"&ewap_(30)&"');window.document.location.href='admin_login.asp'</script>"
end if
end if

%>