1、trim(request.form("userpwd2")) then
userpwd=md5(userpwd,32)
end if
end if
admintype=trim(request.form("admintype"))
if admintype="" then
ErrMsg=ErrMsg+"
"+"操作失败，请选择管理员类型！"
Call Error(ErrMsg)
exit sub
end if
locked=request.form("locked")
if locked=1 then
locked=1
else
locked=0
end if
sql="update Fl_admin set UserPwd='"&userpwd&"',UserType='"&admintype&"',IsLocked="&locked&" where username='"&username&"'"
fl.execute(sql)
Call adminsuc("操作成功，成功修改管员理信息！","")
end sub
sub RemoveAdmin()
dim UserName,sql,rs
UserName=replace(trim(request("UserName")),"'","")
if UserName="" then
ErrMsg=ErrMsg+"
"+"操作失败，参数丢失！"
Call Error(ErrMsg)
exit sub
end if
sql="select username from Fl_admin where UserName='"&UserName&"'"
set rs=fl.execute(sql)
if rs.eof and rs.bof then
ErrMsg=ErrMsg+"
"+"操作失败！没有找到要进行操作的对象！"
Call Error(ErrMsg)
else
sql="delete from Fl_admin where UserName='"&UserName&"'"
fl.execute(sql)
response.redirect "admin_admin.asp"
end if
set rs=nothing
end sub
|
