<!-- #Include File="Con_User.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

dim min_len
min_len=Format_Mid_Num(26)
tit="修改密码"
call DoWebHead(2,0)
'----------------------------左边 开始----------------------------
'----------------------------左边 结束----------------------------
'----------------------------中间 开始----------------------------
if Cls.chk() then
  call user_pass_chk()
else
  call user_pass_main()
End If
'----------------------------中间 结束----------------------------
call DoWebEnd()
sub user_pass_chk()
  dim password,password1,password2,passwd,found_err
  password=trim(request.form("password"))
  password1=trim(request.form("password1"))
  password2=trim(request.form("password2"))
  passwd=trim(request.form("passwd"))
  found_err=""
  if ChkPassWord(password)=false then
    found_err=found_err&"+您输入的 <font class=red>登陆密码</font> 为空或不符合相关规则！<br />"
  End If
  if ChkPassWord(password1)=false then
    found_err=found_err&"+您输入的 <font class=red>新 密 码</font> 为空或不符合相关规则！<br />"
  else
    if password1<>password2 then
      found_err=found_err&"+您输入的 <font class=red>新 密 码</font> 和 <font class=red>确认密码</font> 不一致！<br />"
    else
      if int(len(password1))<int(min_len) then
        found_err=found_err&"+您输入的 <font class=red>新 密 码</font> 长度不能少于 <font class=red>"&min_len&"</font> 位！<br />"
      End If
    End If
  End If
  if passwd<>"" then
    if ChkName(passwd)=false then
      found_err=found_err&"+您输入的 <font class=red>密码钥匙</font> 不符合相关规则！<br />"
    End If
  End If
  if Not Cls.CodeIsTrue() then
    found_err=found_err&"+您输入的 <font class=red>验 证 码</font> 为空或有错误！<br />"
  End If
  if found_err="" then
    sql="select top 1 password,passwd from AsaiMHUserData where id="&login_id&" and password='"&AsaiMHMd5(password,"short")&"'"
    rs.open sql,conn,1,3
    if rs.eof then
      found_err=found_err&"+您输入的 <font class=red>登陆密码</font> 在登陆验证时失败！<br />"
    End If
    rs.close
  End If
  if found_err<>"" then
  Cls.HtmlRcod "body",Found_Error(Found_Err,460)
  Cls.OutPage
    exit sub
  End If
  password1=AsaiMHMd5(password1,"short")
  sql="update AsaiMHUserData set password='"&password1&"'"
  if passwd<>"" then
    sql=sql&",passwd='"&AsaiMHMd5(passwd,"short")&"'"
  End If
  sql=sql&" where id="&login_id
  call Cls.exec(sql,0)
  call Cls.cookies_set("login_password",AsaiMHEncrypt(password1))
  'Call Cls.Session_Del(login_username)
  Call Cls.Out_Msg("您已成功修改了您密码信息！","Index.asp")
End Sub
sub user_pass_main()
  Cls.HtmlRcod "body",Cls.ReadTemplate ("user_Pass")
  Cls.HtmlRcod "tit",tit
  Cls.HtmlRcod "login_username",login_username
  Cls.HtmlRcod "GetCode",Cls.GetCode()
  Cls.OutPage
End Sub
%>
