changepassword.asp

人才招聘系统,用asp做的

<!--#include file=../conn.asp-->
<!--#include file=cookies.asp-->
<!--#include file=md5.asp-->
<%
dim sql
dim rs
dim username,Password1
username=request.cookies("ijob")("username")
Password1=request("password1")
set rs=server.createobject("adodb.recordset")
sql="select UserName,Password,xgsj from [person] where UserName='"&UserName&"'"
rs.open sql,conn,1,3
if rs.eof or rs.bof then
response.write "用户不存在!"
response.end
end if
if password1=rs("password") then
response.write "错误!!你直接点击了提交按钮.."
response.write "<a href=""myaccount.asp"">返回</a>"
response.end
end if
rs("Password")=md5(Password1)
rs("xgsj")=now()
rs.update
rs.close
set rs=nothing
call closedb
response.write "<br>"+"<li><b><font color=""#ff0000"">修改密码成功</font></b>"
response.write "<br>"+"<li>正在返回管理系统....请稍等!!!!!"
response.write "<meta http-equiv=refresh content=""2;URL=index.asp"">"
%>