<%@ language="VBScript"%> <%response.Expires = 0%> <% pwd=md5(request.form("pwd")) set rs=server.createobject("adodb.recordset") sqltext="select * from admin where Id=" & request.querystring("uid")&" and PassWord='"&pwd&"'" rs.open sqltext,conn,3,3 '更新管理员密码到数据库 if not rs.eof then rs("UserName")=request.form("uid") rs("PassWord")=md5(request.form("pwd1")) rs.update rs.close response.redirect "Manage_Admin.asp" else response.Write("旧密码不正确！

返回") end if %>