info_change_pwd.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp" -->
<!--#include file="inc/check.asp"-->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/md5.asp"-->
<!-- #include file="inc/myinc.asp" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: info_change_pwd.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:32:38
'Script Written by www.aspease.com 
'=========================================================
call activeonline()
stats=easeinfochgpwdstats
header
mytabletop
mynavtop easeinfochgpwdstats
if trim(rst("submit"))<>"" then
oldpass=rst("oldpass")
newpass=rst("newpass")
renewpass=rst("renewpass")
verifycode=replace(trim(Request("verifycode")),"'","")
err_msg=""
sql2="select * from users where regusername="&sqlstr(user)&" and regPassword="&sqlstr(md5(oldpass))
set rs2=conn.execute(sql2)
if rs2.eof then
err_msg=err_msg+"<B><LI>"&easeinfochgpwderr1&"</B><bR>"
end if
if len(newpass)<>len(renewpass) or newpass <>renewpass then
err_msg="<B><LI>"&easeinfochgpwderr2&"</B><BR>"
end if
if  len(newpass)<fval(easeinfochgpwdlen1) or len(newpass)>fval(easeinfochgpwdlen2) then
err_msg=err_msg+"<B><LI>"&easeinfochgpwderr3&"</B><BR>"
end if
if  cstr(verifycode)<>CStr(session("getCode")) then 
err_msg=err_msg+"<B><LI>"&easeinfochgpwderr4&"</B><bR>"
end if
if err_msg<>"" then
	response.write err_msg
else
conn.execute("update users set regPassword='"&md5(trim(sqlstr(newpass)))&"' where regusername='"&user&"'")
suc_msg=easeinfochgpwdokmsg
	response.write suc_msg
end if
else
response.Write(aspeasetablehopen & tr)
response.Write("<th height=25>（<font id=""f1"">*</font>）")
response.Write(easeness)
response.Write("</th>" & ctr & aspeasetableclose)
response.Write("<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""5"" id=border1b style=margin-top:3px>")
response.Write("<form name=""mainform"" action=""info_change_pwd.asp"" method=""post""> ")
response.Write(tr1&"      <td width=""24%"" align=""right"" nowrap>")
response.Write(easeinfochgpwd1)
response.Write("：</td>")
response.Write("    <td width=""27%"">")
response.Write("      <input type='password' name='oldpass'><font id=""f1"">*</font>")
response.Write("    </td>")
response.Write("  </tr>")
response.Write(tr1&"    <td colspan=""1"" align=""right"">")
response.Write(easeinfochgpwd2)
response.Write("：</td>")
response.Write("    <td align=""left"">")
response.Write("      <input type='password' name='newpass'><font id=""f1"">*</font>")
response.Write("    </td>")
response.Write("  </tr>")
response.Write(tr1&"    <td colspan=""1"" align=""right"">")
response.Write(easeinfochgpwd3)
response.Write("：</td>")
response.Write("    <td align=""left"">")
response.Write("      <input name=""renewpass"" type=""password"" id=""renewpass""><font id=""f1"">*</font>")
response.Write("    </td>")
response.Write("  </tr>")
response.Write(tr1&"    <td width=""24%"" align=""right"" nowrap>")
response.Write(easeinfochgpwd4)
response.Write("：</td>")
response.Write("    <td>")
response.Write("      <input name=""verifycode"" type=""text"" id=""verifycode"" size=""20""><font id=""f1"">*</font>&nbsp;")
response.Write("      <img src=""inc/verifycode.asp""></td>")
response.Write("  </tr>")
response.Write("  <tr align=""center"" class=tdbg1> ")
response.Write("    <td colspan=""2""> ")
response.Write("      <input type=""submit"" name=""Submit"" value=""")
response.Write(easesubmitbutton)
response.Write(""">")
response.Write("      <input type=""reset"" name=""Submit2"" value=""")
response.Write(easeresetbutton)
response.Write(""">")
response.Write("      &nbsp;&nbsp;&nbsp;&nbsp; " & ctdr)
response.Write("  </form>  " & aspeasetableclose)
end if
mynavfoot
mytablefoot
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: info_change_pwd.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:32:38
'Script Written by www.aspease.com 
'=========================================================%>