<%
CheckLogin()
dim action : action=getForm("action","get")
if action="editPass" then editPass
Sub editPass
dim LoginName,PassWord,rePassword
LoginName=getForm("LoginName","post")
PassWord=getForm("PassWord","post")
rePassword=getForm("rePassword","post")
if isnul(PassWord) then alertMsgAndGo "密碼不能為空","-1"
if rePassword<>Password then alertMsgAndGo "兩次輸入密碼不相同","-1"
'if isnul(RealName) then alertMsgAndGo "管理員姓名不能為空","-1"
conn.Exec "update {prefix}User set [Password]='"&md5(PassWord,16)&"' where LoginName='"&LoginName&"'","exe"
alertMsgAndGo "修改成功","editPass.asp"
End Sub
%>