<% connect_db() check_admin_login() module = Request("module") Select Case module Case "showForm" showForm("") Case "updatePassword" updatePassword() Case Else showForm("") End Select Function showForm(strMessage) beginAdminHtml() %> <%alertMessage(strMessage)%> <%beginAdminTitle("修改密码")%>

" style="margin: 0px">

修改密码  旧密码:  新密码:  确认新密码:

<% Response.End End Function Function updatePassword() Dim strOldPassword, strNewPassword1, strNewPassword2 Dim strSql, objRs strOldPassword = Request("old_password") strNewPassword1 = Request("new_password1") strNewPassword2 = Request("new_password2") If strNewPassword1 = "" Then showForm("新密码不能为空，请重新输入！") End If If strNewPassword1 <> strNewPassword2 Then showForm("两次输入的新密码必须相同，请重新输入！") End If strSql = "select * from admins where admin_username = '" & replaceSQLString(Session("strUsername")) & "' and admin_password = '" & MD5(strOldPassword) & "'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSql, conn, 3 If rs.BOF And rs.EOF Then showForm("您输入的旧密码不正确，请重新输入！") End If strSql = "update admins set admin_password = '" & MD5(strNewPassword1) & "' where admin_username = '" & replaceSQLString(Session("strUsername")) & "'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSql, conn, 2, 1 showForm("恭喜您，密码修改成功！") End Function %>