wm.admin_editpass.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="WM.Sys_Cook.asp"-->
<%
Select Case Request("Action")
  Case "Save"
    Dim PassWord,PassWord1,PassWord2
    PassWord = WRMPS.CheckStr(Request("PassWord"),0)
    PassWord1 = WRMPS.CheckStr(Request("PassWord1"),0)
    PassWord2 = WRMPS.CheckStr(Request("PassWord2"),0)
    If PassWord = "" Then Call WRMPS.ErrView("·请输入原始密码<meta http-equiv=refresh content='1;URL=WM.Admin_EditPass.asp'>",0)
    If PassWord1 = "" Or PassWord2 = "" Then Call WRMPS.ErrView("·请输入您的新密码及确认密码<meta http-equiv=refresh content='1;URL=WM.Admin_EditPass.asp'>",0)
    If PassWord1 <> PassWord2 Then Call WRMPS.ErrView("·您输入的新密码及确认密码不同，请重新输入<meta http-equiv=refresh content='1;URL=WM.Admin_EditPass.asp'>",0)
  
    Call DBConnBegin()
    Set Rs=server.createobject("adodb.recordset")
    Rs.Open"Select WM_PassWord From WM_admin Where WM_UserName='"&Request.Cookies("Admin")("Admin")&"'",Conn,1,3
    If Not rs.Eof Then
      If MD5(2,PassWord) <> Rs(0) Then Call WRMPS.ErrView("·您输入的原始密码有错误<meta http-equiv=refresh content='1;URL=WM.Admin_EditPass.asp'>",0)
	  Rs(0) = MD5(2,PassWord1)
      Rs.Update
    End If
    Rs.Close
    Set Rs = Nothing
    Call DBConnEnd()
    Call WRMPS.ErrView("·密码修改成功<meta http-equiv=refresh content='1;URL=WM.Admin_EditPass.asp'>",1)
    
  Case Else
    Content = "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
    Content = Content & "<form method=POST action='?Action=Save'>" & vbCrLf
    Content = Content & "<tr><td colspan=2 class=td4><strong>修改密码</strong></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td width='35%'><strong>用 户 名</strong></td>" & vbCrLf
    Content = Content & "<td width='65%'><input name=user readonly type=text style='width:150' value="&Request.Cookies("Admin")("Admin")&"></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td><strong>原始密码</strong></td>" & vbCrLf
    Content = Content & "<td><input name=PassWord type=PassWord style='width:150'></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td><strong>新 密 码</strong></td>" & vbCrLf
    Content = Content & "<td><input name=PassWord1 type=PassWord style='width:150'></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td><strong>确认密码</strong></td>" & vbCrLf
    Content = Content & "<td><input name=PassWord2 type=PassWord style='width:150'></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td></td>" & vbCrLf
    Content = Content & "<td><input type=submit value='确定修改'></td></tr>" & vbCrLf
    Content = Content & "</form>" & vbCrLf
    Content = Content & "</table>" & vbCrLf
End Select
Call ClassEnd()
Response.Write Content
Call GetBottom()
%>