<%Session.CodePage=65001%> <%if session("adxclass")<>"超管" then response.Write"" response.End() end if%> <%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"" 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")%>