修改密码{求助} - ASP技术论坛

问题点数：0 回复次数：8

修改密码{求助}

<%if request.QueryString("action")="save" then%>

<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from member where username='"&session("admin")&"'",conn,1,3
if md5(trim(request("password")))<>rs("newpin") then
response.Write "<script language=javascript>alert('原密码错误，请返回重新输入');history.go(-1);</script>"
response.End
else
rs("newpin")=md5(trim(request("password2")))
rs.Update
rs.Close
set rs=nothing
session("admin")=""
session("flag")=""
response.Write "<script language=javascript>alert('更改成功，请用新密码重新登陆！');history.go(-1);</script>"
end if
response.End
end if
%>
这是一段修改密码的程序,表名member,密码字段名newpin,调试时每次都弹出对话框"原密码错误，请返回重新输入
为什么?怎么解决?

搜索更多相关主题的帖子: 密码　

第 2 楼

得分:0

就是你输错密码了

天津网站建设 http://www./

第 3 楼

得分:0

没有

第 4 楼

得分:0

把
if md5(trim(request("password")))<>rs("newpin") then
改成
if strcomp(md5(trim(request("password"))),rs("newpin"))=0 then
看看
我也遇到过几次，最后都是这样解决的！

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

第 5 楼

得分:0

把
if md5(trim(request("password")))<>rs("newpin") then
改成
if strcomp(md5(trim(request("password"))),rs("newpin"))=0 then就可以了,可是我发现改后的密码,并不是我要的密码,怎么办

第 6 楼

得分:0

那改
成什么了？？？？？？？？？？

[此贴子已经被作者于2005-11-19 13:50:29编辑过]

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

第 7 楼

得分:0

这是我以前用过的用来修改密码的一段程序，
<%
dim oldpassword,loginpassword,oldloginpassword
oldpassword=md5(trim(request.Form("oldpassword")))
loginpassword=md5(trim(request.Form("password")))
'读取原密码
set old_conn = server.CreateObject("adodb.connection")
old_conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&dataurl
old_sql="select * from classmate WHERE ID=" &session("classmateid")
set old_rs=server.createobject("adodb.recordset")
old_rs.open old_sql,old_conn,1,1
oldloginpassword=old_rs("loginpassword")
old_rs.close
set old_rs=nothing
old_conn.close
set old_conn=nothing
'验证用户输入的旧密码是否正确
if strcomp(oldpassword,oldloginpassword)="0" then
set chg_conn = server.CreateObject("ADODB.Connection")
chg_conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&dataurl
chg_conn.Execute "UPDATE classmate SET loginpassword = '"& loginpassword &"' WHERE ID =" & session("classmateid"),,adCmdText + adExecuteNoRecords
chg_conn.close
set chg_conn=nothing
response.redirect"mypage.asp?action=3"
response.End
else
response.redirect"error.asp?reserch=chgpsd"
response.End
end if
%>

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

第 8 楼

得分:0

我现在的问题是,可以实现密码的修改了,但在登录页面
每次输入正确的用户名和密码后,一直提示登录失败,怎么办?
这是我的登录页面程序:


<%
dim username,newpin
username=replace(trim(request("username")),"'","")
newpin=md5(replace(trim(request("newpin")),"'",""))
if username="" or newpin="" then
response.Write "<center><a href=../zhuce/zhuce03.asp><font color=red size=2>对不起，登陆失败，请检查您的登陆名和密码</font></a></center>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from member where username='"&username&"' and newpin='"&newpin&"' " ,conn,1,1
if not rs.eof then
session("username")=trim(rs("username"))
session("id")=int(rs("id"))
session.Timeout=20
rs.Close
set rs=nothing
response.Redirect "index.asp"
else
response.write "<script LANGUAGE='javascript'>alert('对不起，登陆失败！');history.go(-1);</script>"
end if
%>

第 9 楼

得分:0

这也是一段修改密码的程序,表名frank_pass,密码字段名frank_admin,数据库输入路径admin_2008.调试时每次都弹出对话框"原密码错误，请返回重新输入”
（有没有人能帮助我呢？我按上面方法操作了，有时候是可以改密码，可是改了的密码是没有加密的。所以后台根本就进不了。值得一提的是我明明看到后台里面有MD5.ASP这个文件，可是这下面完整的代码好像并没有发现有这个代码哦）
为什么?怎么解决
<%flag=request.cookies("flag")
if request.QueryString("action")="save" then
dim frank_admin
frank_admin=request.Form("frank_admin")
set rs=server.CreateObject("adodb.recordset")
rs.Open "select frank_pass from admin_2008 where frank_admin like'%"&frank_admin&"%'",conn,1,3
if request.Form("frank_pass")<>rs("frank_pass") then
response.Write "<script language=javascript>alert('原密码错误，请返回重新输入');window.location.reload('renpassword.asp')</script>"
else
rs("frank_pass")=request.Form("frank_pass1")
rs.Update
rs.Close
set rs=nothing
response.cookies("frank_admin")=""
response.cookies("flag")=""
response.Write "<script language=javascript>alert('更改成功，请用新密码重新登陆！');window.location.reload('login.asp')</script>"
end if
else
%>

下面是完整的源码





<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="generator" content="后台管理">
<title>后台管理</title>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">

</style></head>

</p>
<br>
<br>

<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%flag=request.cookies("flag")
if request.QueryString("action")="save" then
dim frank_admin
frank_admin=request.Form("frank_admin")
set rs=server.CreateObject("adodb.recordset")
rs.Open "select frank_pass from admin_2008 where frank_admin like'%"&frank_admin&"%'",conn,1,3
if request.Form("frank_pass")<>rs("frank_pass") then
response.Write "<script language=javascript>alert('原密码错误，请返回重新输入');window.location.reload('renpassword.asp')</script>"
else
rs("frank_pass")=request.Form("frank_pass1")
rs.Update
rs.Close
set rs=nothing
response.cookies("frank_admin")=""
response.cookies("flag")=""
response.Write "<script language=javascript>alert('更改成功，请用新密码重新登陆！');window.location.reload('login.asp')</script>"
end if
else
%>