[@管理员验证]
{
#SAY
管理员验证系统\ \
┌─┬─┬─┬─────┬─┬─┬─┒\
├┬╆━┷━┷━━━━━┷━┷━╅┬┨\
├┬┨ <请输入管理密匙!/@@InPutString9> ┠┬┨\
├┬┺┯━┯━┯━━━┯━┯━┯┹┬┨\
┕┷━┷━┷━┷━━━┷━┷━┷━┷┛\ \
#ACT
#ELSEACT
SENDMSG 6 非法操作!
break
[@InPutString9]
#ACT
DELAYGOTO 1 ~@InPutString9
[~@InPutString9]
#IF
equal A98 <$STR(S9)>
#ACT
CHANGEPERMISSION 10
#CALL [\\GM管理功能\GM管理功能.txt] @管理
#ELSEACT
SENDMSG 6 密码错误!
CLOSE
[@设置管理密码]
#SAY
修改管理员密码\ \
┌─┬─┬─┬─────┬─┬─┬─┒\
copyright dedecms
├┬╆━┷━┷━━━━━┷━┷━╅┬┨\
├┬┨ <请输原管理密匙!/@@InPutString8> ┠┬┨\
├┬┺┯━┯━┯━━━┯━┯━┯┹┬┨\
┕┷━┷━┷━┷━━━┷━┷━┷━┷┛\ \
修改密码提示:请输入原管理员密码(范围:数字、字母、标点符号)\
#ACT
#ELSEACT
SENDMSG 6 非法操作!
break
[@InPutString8]
#ACT
DELAYGOTO 1 ~@InPutString8
[~@InPutString8]
#IF
equal A98 <$STR(S8)>
#ACT
goto @设置密码2
#ELSEACT
SENDMSG 6 密码错误!
CLOSE
[@设置密码2]
#IF
ISADMIN
#SAY
修改管理员密码\ \
┌─┬─┬─┬─────┬─┬─┬─┒\
├┬╆━┷━┷━━━━━┷━┷━╅┬┨\
├┬┨ <请输入新的密码!/@@InPutString6> ┠┬┨\
copyright dedecms ├┬┺┯━┯━┯━━━┯━┯━┯┹┬┨\
┕┷━┷━┷━┷━━━┷━┷━┷━┷┛\ \
修改密码提示:请输入新的管理密码(范围:数字、字母、标点符号)\
#ACT
#ELSEACT
SENDMSG 6 非法操作!
break
[@InPutString6]
#IF
ISADMIN
#SAY
修改管理员密码\ \
┌─┬─┬─┬─────┬─┬─┬─┒\
├┬╆━┷━┷━━━━━┷━┷━╅┬┨\
├┬┨ <请再输入新密码!/@@InPutString7> ┠┬┨\
├┬┺┯━┯━┯━━━┯━┯━┯┹┬┨\
┕┷━┷━┷━┷━━━┷━┷━┷━┷┛\ \
修改密码提示:请再输入一次新密码(范围:数字、字母、标点符号)\
[@InPutString7]
#IF
equal S7 <$STR(S6)>
#SAY
修改管理员密码\ \
织梦好,好织梦
┌─┬─┬─┬─────┬─┬─┬─┒\
├┬╆━┷━┷━━━━━┷━┷━╅┬┨\
├┬┨ <确定/@确定密码设置> <重新输入/@设置密码2> ┠┬┨\
├┬┺┯━┯━┯━━━┯━┯━┯┹┬┨\
┕┷━┷━┷━┷━━━┷━┷━┷━┷┛\ \
修改密码提示:两次新密码输入正确(确定修改请点确定)
#ACT
#ELSESAY
修改管理员密码\ \
┌─┬─┬─┬─────┬─┬─┬─┒\
├┬╆━┷━┷━━━━━┷━┷━╅┬┨\
├┬┨ <重新输入/@设置密码2> ┠┬┨\
├┬┺┯━┯━┯━━━┯━┯━┯┹┬┨\
┕┷━┷━┷━┷━━━┷━┷━┷━┷┛\ \
内容来自dedecms 修改密码提示:两次密码输入不一致(范围:数字、字母、标点符号)\
[@确定密码设置]
#ACT
DELAYGOTO 1 ~@InPutString7
[~@InPutString7]
#IF
ISADMIN
#ACT
mov A98 <$STR(S7)>
SENDMSG 6 设置密码成功!请牢记您的密码!由于重新设置了密码请重新验证
goto @管理员验证
#ELSEACT
SENDMSG 6 密码错误!
CLOSE
}