将pass.asp文件上传到根目录
<!--#include file="inc/AspCms_SettingClass.asp" -->
<%
dim action : action=getForm("action","get")
if action="pass" then editPass
Sub editPass
dim GroupID,PassWord,rePassword
GroupID=getForm("GroupID","post")
PassWord=getForm("PassWord","post")
rePassword=getForm("rePassword","post")
if isnul(PassWord) then alertMsgAndGo "密码不能为空","-1"
if rePassword<>Password then alertMsgAndGo "两次输入密码不相同","-1"
conn.Exec "update {prefix}User set [Password]='"&md5(PassWord,16)&"' where GroupID="&GroupID&"","exe"
alertMsgAndGo "修改成功","-1"
End Sub
%>
<FORM name="form" action="?action=pass" method="post" >
<INPUT type="hidden" value="1" name="GroupID"/></TD>
新密码
<INPUT type="password" class="input" name="Password"/>
确认密码
<input type="password" class="input" name="rePassword"/>
<INPUT class="button" type="submit" value="修改"/>