xuanjuAsp/xafch315/admag/adModSave.asp

<%Session.CodePage=65001%>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<%if session("adxclass")<>"超管" then
response.Write"<script language='javascript'>alert('您没有权限');history.go(-1);</script>"
response.End()
end if%>

<!--#include file="../bdcommx/connxyz.asp"-->

<!--#include file="../bdcommx/jsall.asp"-->

<%call log_chk()%>

<%dim user,pwd,rpwd,thec,Tname,tel
user=trim(request("UserName"))
olduser=trim(request("olduser"))
pwd=request("PassWord")
rpwd=request("rPassWord")
if pwd<>rpwd then
response.Write"<script language='javascript'>alert('两次密码输入不一致');history.go(-1);</script>"
response.End()
end if
pwd=md5(trim(pwd))
xxx=trim(request("xxx"))
thelm=trim(request("thelm"))
Tname=request("Tname")
tel=request("tel")
if user<>olduser then
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from adminx where adx_name='"&user&"'"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
Call backurl("帐号已存在！")
rs.close
set rs=nothing
end if
end if
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from adminx where adx_id="&xxx
rs.open sql,conn,1,3
rs("adx_name")=user
rs("adx_pass")=pwd
rs("adx_lm")=thelm
rs("adx_Tname")=Tname
rs("adx_tel")=tel
rs.update
session("adminxxx")=rs("adx_name")
session("adxclass")=rs("adx_lm")
rs.close
set rs=nothing
response.Redirect("admag.asp")%>