密 码 修 改 问 题?????
一个密码修改程序。高手帮我改改看怎么实现。
前 台:
<form action="psw_op.asp" method=post name=form1>
旧密码::<input type="password" name="origin">
新密码:<input type="password" name="new_psw">
再输一次:<input type="password" name="cfm_psw
<input name="submit" type="submit" value="提 交"></form>
后 台:
<!--#include file="conn.asp"-->
<%
dim password
password=request.form("origin")
set rs_c=server.createobject("adodb.recordset")
ls_sql="select * from users where password='"&password&"'"
set rs_c=conn.Execute(ls_sql)
set rs=server.createobject("adodb.recordset")
ls_sql="select * from users"
rs.open ls_sql,conn,1,3
rs("password")=rsquest.form("new_psw")
if rs_c<>session("psw") then
response.write"原密码不正确"
else
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "修改成功"
end if
%>