密 码 修 改 问 题?????

etononline 2004-12-28 12:24:49
一个密码修改程序。高手帮我改改看怎么实现。

前 台:
<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
%>
...全文
59 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
yuyijw 2004-12-28
  • 打赏
  • 举报
回复
楼上的
错了
<%
dim origin,new_psw,cfm_psw
origin=request.form("origin")
new_psw=request.form("new_psw")
cfm_psw=request.form("cfm_psw")
if origin<>"" and new_psw<>"" and cfm_psw<>"" then
if new_psw=cfm_psw then
dim sql,rs
sql="select * from users where uid='"&session("admin")&"'"
set rs=conn.execute(sql)
if rs.eof or rs.bof then
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script language="vbscript">
<!--
msgbox("非法登陆!")
location.href="error.asp"
//-->
</script>
<%
elseif rs("password")=origin then
rs.close
rs.open sql,conn,1,3
rs("password")=cfm_psw
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script language="vbscript">
<!--
msgbox("密码修改成功!")
location.href="成功页面"
//-->
</script>
<%
end if
else
conn.close
set conn=nothing
%>
<script language="vbscript">
<!--
msgbox("两次输入密码不同!")
location.href="前台"
//-->
</script>
<%
end if
else
conn.close
set conn=nothing
%>
<script language="vbscript">
<!--
msgbox("您提交的信息不完整!")
location.href="前台"
//-->
</script>
<%
end if
%>
life360 2004-12-28
  • 打赏
  • 举报
回复
<%
dim password
password=request.form("origin")
set rs_c=server.createobject("adodb.recordset")
ls_sql="select * from users where password='"&password&"'"
rs.open ls_sql,conn,1,3
if rs.recordcount<>0 then
rs.update
rs("password")=password
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"修改成功"
response.end
else
response.write"错误"
response.end
end if
%>
无爱大叔 2004-12-28
  • 打赏
  • 举报
回复
真是混乱之极。不知道要干什么?
update users set password='"& password &"' where id="& id

session("psw") 是什么?
life360 2004-12-28
  • 打赏
  • 举报
回复
晕~~~~~~~~~~~~
etononline 2004-12-28
  • 打赏
  • 举报
回复
也太复杂了点:
我修改了一下:这样简洁多了。 感谢:yuyijw(恋之心) 结贴

<!--#include file="conn.asp"-->
<%
dim origin,new_psw,cfm_psw
origin=request.form("origin")
new_psw=request.form("new_psw")
cfm_psw=request.form("cfm_psw")
set rs=server.createobject("adodb.recordset")
sql="select * from users where password='"&session("psw")&"'"
set rs=conn.execute(sql)

if rs("password")=origin and rs("name")=session("name") then
rs.close
rs.open sql,conn,1,3
rs("password")=cfm_psw
rs.update
log_sql="insert into user_log(user_ip,user_name,action_memo)values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&session("name")&"','修改密码')"
conn.Execute(log_sql)

rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"修改密码成功"


else

conn.close
set conn=nothing
response.write"错 误"

end if
%>
NTing 2004-12-28
  • 打赏
  • 举报
回复
UP

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧