admin_pwd.asp

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

<!--#include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/md5.asp"-->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_pwd.asp
'Version:2.0
'UpdateTime: 2004-10-6 22:10:00
'Script Written by www.aspease.com 
'=========================================================
admheader
dim admin,pwd,opwd,newadmin
if rst("submit")<>"" then
admin=rst("admin")
pwd=md5(trim(rst("pwd")))
opwd=md5(trim(rst("opwd")))
newadmin=rst("newadmin")
	if trim(rst("admin"))="" or trim(rst("pwd"))="" then
		response.write "请输入帐号密码"
		response.end
	end if
	if pwd<>md5(trim(rst("repwd"))) then
		response.write "两次输入的密码错误"
		response.end
	end if
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from admin where username="&sqlstr(admin)&" and password="&sqlstr(opwd)&"",conn,1,1
	if rs.eof then
	response.write("你输入的帐号或密码错误，请重新输入")
	response.end
	else
	set rs1=server.createobject("adodb.recordset")
	rs1.open "select * from admin",conn,1,3
	rs1("username")=newadmin
	rs1("password")=pwd
	rs1.update
	response.write "密码修改成功!!"
	admfooter
	response.end 
	end if
end if
response.Write("<table class=""tableBorder"" width=""95%"" align=""center"">")
response.Write("  <tr> ")
response.Write("    <th class=""Row"" colspan=""2"" height=""25"">修改管理密码</th>")
response.Write("  </tr>")
response.Write("  <form name=""form1"" method=""post"" action=""admin_pwd.asp"">")
response.Write("    <tr> ")
response.Write("      <td class=""Row"" width=""26%"">旧管理员：</td>")
response.Write("      <td class=""Row"" width=""74%""> ")
response.Write("        <input type=""text"" name=""admin"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=""Row"" width=""26%"">新管理员：</td>")
response.Write("      <td class=""Row"" width=""74%""> ")
response.Write("        <input type=""text"" name=""newadmin"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=""Row"" width=""26%"">旧密码：</td>")
response.Write("      <td class=""Row"" width=""74%""> ")
response.Write("        <input type=""password"" name=""opwd"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=""Row"" width=""26%"">新密码：</td>")
response.Write("      <td class=""Row"" width=""74%""> ")
response.Write("        <input type=""password"" name=""pwd"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=""Row"" width=""26%"">确认密码：</td>")
response.Write("      <td class=""Row"" width=""74%""> ")
response.Write("        <input type=""password"" name=""repwd"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td colspan=""2"" class=""Row""> ")
response.Write("        <input type=""submit"" name=""Submit"" value=""提交"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("  </form>")
response.Write("</table>")
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_pwd.asp
'Version:2.0
'UpdateTime: 2004-10-6 22:10:00
'Script Written by www.aspease.com 
'=========================================================%>