<%Session.CodePage=65001%>
BdeCMS网站后台管理登陆
<%call log_chk()%>
<%if request("act")="mod" then
dim user,pwd,Tname,tel
user=trim(request("UserName"))
olduser=trim(request("olduser"))
pwd=request("PassWord")
rpwd=request("rPassWord")
Tname=request("Tname")
tel=request("tel")
if pwd<>rpwd then
response.Write""
response.End()
end if
pwd=md5(trim(request("PassWord")))
xxx=trim(request("xxx"))
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_Tname")=Tname
rs("adx_tel")=tel
rs.update
rs.close
set rs=nothing
call GoUrl("PassMod.asp","修改成功！")
end if%>
后台管理：>> 管理员密码修改
<%Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from adminx where adx_name='"&session("adminxxx")&"'"
rs.open sql,conn,1,3
if rs.eof then response.Write("")%>
