<% option explicit %>
<%
if session("purview")="" then
response.write "错误!!您没有权限或者连接超时,请重新登陆." %>
登陆
<% response.end
end if
if trim(request("oldpassword"))<>"" and trim(request("newpassword1"))<>"" and trim(request("newpassword2"))<>"" then
if len(trim(request("oldpassword")))>14 or len(trim(request("newpassword1")))>14 or len(trim(request("newpassword2")))>14 or trim(request("newpassword1"))<>trim(request("newpassword2"))then
response.write "错误!!密码长度大于14位或两次输入新密码不一致." %>
返回
<%response.end
end if
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from users where pwd ='" & request("oldpassword") & "' and name='" & session("name") & "'"
rs.open sql,conn,1,1
if err.number<>0 then
rs.close
set rs=nothing
response.write "数据库操作失败："&err.description %>
返回
<% err.clear
response.end
else
if rs.bof and rs.eof then
response.write "旧密码输入错误!" %>
返回
<% response.end
else
sql = "UPDATE users SET pwd = '" & request("newpassword1") & "' where name='" & session("name") & "'"
conn.execute sql
if not err.number<>0 then %>
<% end if
end if
end if
end if
%>
用户修改密码