asp密码修改问题
我改写一个密码修改程序：<!--#includefile="admin_Checkuser.asp"--><!--#includefile="../Inc/md5.asp...
我改写一个密码修改程序：
<!--#include file="admin_Checkuser.asp"-->
<!--#include file="../Inc/md5.asp"-->
<HTML><HEAD><title>--管理页面</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<!--#include file="images/admin_main.css"-->
</HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<%
If AdminName="" or AdminFlag="" Then
Errmsg=Errmsg+"<br>"+"<li>请<a href=admin_login.asp target=_top>登陆</a>后进入！"
Call Error(ErrMsg)
Else
select case Request("action")
case "ChangeAccount"
Call SaveEdit()
case else
Call ModifyForm()
End select
End if
set fl=nothing
Call CloseDatabase()
sub ModifyForm()
dim sql,rs
sql="select UserName,[UserPwd] from Fl_admin where username='"&AdminName&"'"
set rs=fl.execute(sql)
%>
<form action="admin_mypassword.asp?action=ChangeAccount" method=post>
<table cellpadding="2" cellspacing="1" border="0" width="80%" class=TableBorder align=center>
<tr>
<th colspan=2 height=23>密码修改</th>
</tr>
<tr>
<td width="30%" align="right" height=23 Class=fl2>用户名：</td>
<td width="74%" Class=fl2> <%=rs(0)%></td>
</tr>
<tr>
<td width="30%" align="right" Class=fl1>登陆密码：</td>
<td width="74%" Class=fl1> <input type="password" name="userpwd" value="<%=rs(1)%>">
<input type="hidden" name="userpwd2" value="<%=rs(1)%>">
不修改密码请不要改动 </td>
</tr>
<td colspan="2" Class=fl2>
<p align="center"><input type="submit" value="提交" name="B1"><td colspan="2" Class=fl2></td>
</table>
</form>
<%
set rs=nothing
end sub
%>
</BODY></HTML>
运行时提示 变量未定义: 'SaveEdit' ，应该还差个SaveEdit()，这个程序还需要对密码进行md5加密，系统已经定义了个md5(userpwd,32)，请高手帮忙看下如何将程序写完，谢谢。
odouaa，你好，很高兴你能回答我的问题，但可能你的回答对我用处不是太大，谢谢。
xiuhoo，你好。
我把sub SaveEdit()
end sub 加上后，系统提示BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。 /Admin/admin_password.asp，行0 ,admin_password.asp是当前改密码的页面。
lct_36，你好。SaveEdit()这个就是空的，我想请高手帮忙完善下，谢谢 展开
<!--#include file="admin_Checkuser.asp"-->
<!--#include file="../Inc/md5.asp"-->
<HTML><HEAD><title>--管理页面</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<!--#include file="images/admin_main.css"-->
</HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<%
If AdminName="" or AdminFlag="" Then
Errmsg=Errmsg+"<br>"+"<li>请<a href=admin_login.asp target=_top>登陆</a>后进入！"
Call Error(ErrMsg)
Else
select case Request("action")
case "ChangeAccount"
Call SaveEdit()
case else
Call ModifyForm()
End select
End if
set fl=nothing
Call CloseDatabase()
sub ModifyForm()
dim sql,rs
sql="select UserName,[UserPwd] from Fl_admin where username='"&AdminName&"'"
set rs=fl.execute(sql)
%>
<form action="admin_mypassword.asp?action=ChangeAccount" method=post>
<table cellpadding="2" cellspacing="1" border="0" width="80%" class=TableBorder align=center>
<tr>
<th colspan=2 height=23>密码修改</th>
</tr>
<tr>
<td width="30%" align="right" height=23 Class=fl2>用户名：</td>
<td width="74%" Class=fl2> <%=rs(0)%></td>
</tr>
<tr>
<td width="30%" align="right" Class=fl1>登陆密码：</td>
<td width="74%" Class=fl1> <input type="password" name="userpwd" value="<%=rs(1)%>">
<input type="hidden" name="userpwd2" value="<%=rs(1)%>">
不修改密码请不要改动 </td>
</tr>
<td colspan="2" Class=fl2>
<p align="center"><input type="submit" value="提交" name="B1"><td colspan="2" Class=fl2></td>
</table>
</form>
<%
set rs=nothing
end sub
%>
</BODY></HTML>
运行时提示 变量未定义: 'SaveEdit' ，应该还差个SaveEdit()，这个程序还需要对密码进行md5加密，系统已经定义了个md5(userpwd,32)，请高手帮忙看下如何将程序写完，谢谢。
odouaa，你好，很高兴你能回答我的问题，但可能你的回答对我用处不是太大，谢谢。
xiuhoo，你好。
我把sub SaveEdit()
end sub 加上后，系统提示BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。 /Admin/admin_password.asp，行0 ,admin_password.asp是当前改密码的页面。
lct_36，你好。SaveEdit()这个就是空的，我想请高手帮忙完善下，谢谢 展开
3个回答
展开全部
把 SaveEdit()这个函数内容贴出来看看。你的代码不完整。。odouaa回答的思路是正确的。
SaveEdit()这个函数是你提交密码修改要执行的函数。没有内容怎么修改？
把你的“Call SaveEdit()”换成odouaa回答的所有内容，不过有部分需要修改一下。
补充：给你修改的如下。
<!--#include file="admin_Checkuser.asp"-->
<!--#include file="../Inc/md5.asp"-->
<HTML><HEAD><title>--管理页面</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<!--#include file="images/admin_main.css"-->
</HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<%
If AdminName="" or AdminFlag="" Then
Errmsg=Errmsg+"<br>"+"<li>请<a href=admin_login.asp target=_top>登陆</a>后进入！"
Call Error(ErrMsg)
Else
select case Request("action")
case "ChangeAccount"
Call SaveEdit()
case else
Call ModifyForm()
End select
End if
set fl=nothing
Call CloseDatabase()
sub SaveEdit() '认为你修改密码时不需要输入原密码。当然下面的代码是不严谨的。
Dim userpwd,newpsw,username,sql,rs
username=Request.Form("username")
userpwd=Request.Form("userpwd")
newpsw=Request.Form("userpwd2")
If userpwd=newpsw then
sql="select UserName,[UserPwd] from Fl_admin where username='"&AdminName&"'"
set rs=fl.execute(sql)
if userpwd=rs(1) then
response.write "<script>alert('你没有修改密码，请返回！');history.back();</script>"
set rs=nothing
else
set rs=Nothing
sql="update Fl_admin set [UserPwd] = '" &newpsw & "' where USERNAME='" & username& "'"
set rs=fl.execute(sql)
set rs=Nothing
response.write "<script>alert('修改密码成功，请返回！');history.back();</script>"
End If
Else
response.write "<script>alert('您输入的两次密码不一致，请返回重新输入！');history.back();</script>"
end if
End sub %>
<%sub ModifyForm()
dim sql,rs
sql="select UserName,[UserPwd] from Fl_admin where username='"&AdminName&"'"
set rs=fl.execute(sql)
%>
<form action="admin_mypassword.asp?action=ChangeAccount" method=post>
<table cellpadding="2" cellspacing="1" border="0" width="80%" class=TableBorder align=center>
<tr>
<th colspan=2 height=23>密码修改</th>
</tr>
<tr>
<td width="30%" align="right" height=23 Class=fl2>用户名：</td>
<td width="74%" Class=fl2> <input type=hidden name="UserName" value="<%=rs(0)%>"><%=rs(0)%></td>
</tr>
<tr>
<td width="30%" align="right" Class=fl1>登陆密码：</td>
<td width="74%" Class=fl1><input type="password" name="userpwd" value="<%=rs(1)%>">
确认密码：<input type="hidden" name="userpwd2" value="<%=rs(1)%>">
不修改密码请不要改动 </td>
</tr>
<td colspan="2" Class=fl2>
<p align="center"><input type="submit" value="提交" name="B1"><td colspan="2" Class=fl2></td>
</table>
</form>
<%
set rs=nothing
end sub
%>
</BODY></HTML>
SaveEdit()这个函数是你提交密码修改要执行的函数。没有内容怎么修改？
把你的“Call SaveEdit()”换成odouaa回答的所有内容，不过有部分需要修改一下。
补充：给你修改的如下。
<!--#include file="admin_Checkuser.asp"-->
<!--#include file="../Inc/md5.asp"-->
<HTML><HEAD><title>--管理页面</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<!--#include file="images/admin_main.css"-->
</HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<%
If AdminName="" or AdminFlag="" Then
Errmsg=Errmsg+"<br>"+"<li>请<a href=admin_login.asp target=_top>登陆</a>后进入！"
Call Error(ErrMsg)
Else
select case Request("action")
case "ChangeAccount"
Call SaveEdit()
case else
Call ModifyForm()
End select
End if
set fl=nothing
Call CloseDatabase()
sub SaveEdit() '认为你修改密码时不需要输入原密码。当然下面的代码是不严谨的。
Dim userpwd,newpsw,username,sql,rs
username=Request.Form("username")
userpwd=Request.Form("userpwd")
newpsw=Request.Form("userpwd2")
If userpwd=newpsw then
sql="select UserName,[UserPwd] from Fl_admin where username='"&AdminName&"'"
set rs=fl.execute(sql)
if userpwd=rs(1) then
response.write "<script>alert('你没有修改密码，请返回！');history.back();</script>"
set rs=nothing
else
set rs=Nothing
sql="update Fl_admin set [UserPwd] = '" &newpsw & "' where USERNAME='" & username& "'"
set rs=fl.execute(sql)
set rs=Nothing
response.write "<script>alert('修改密码成功，请返回！');history.back();</script>"
End If
Else
response.write "<script>alert('您输入的两次密码不一致，请返回重新输入！');history.back();</script>"
end if
End sub %>
<%sub ModifyForm()
dim sql,rs
sql="select UserName,[UserPwd] from Fl_admin where username='"&AdminName&"'"
set rs=fl.execute(sql)
%>
<form action="admin_mypassword.asp?action=ChangeAccount" method=post>
<table cellpadding="2" cellspacing="1" border="0" width="80%" class=TableBorder align=center>
<tr>
<th colspan=2 height=23>密码修改</th>
</tr>
<tr>
<td width="30%" align="right" height=23 Class=fl2>用户名：</td>
<td width="74%" Class=fl2> <input type=hidden name="UserName" value="<%=rs(0)%>"><%=rs(0)%></td>
</tr>
<tr>
<td width="30%" align="right" Class=fl1>登陆密码：</td>
<td width="74%" Class=fl1><input type="password" name="userpwd" value="<%=rs(1)%>">
确认密码：<input type="hidden" name="userpwd2" value="<%=rs(1)%>">
不修改密码请不要改动 </td>
</tr>
<td colspan="2" Class=fl2>
<p align="center"><input type="submit" value="提交" name="B1"><td colspan="2" Class=fl2></td>
</table>
</form>
<%
set rs=nothing
end sub
%>
</BODY></HTML>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
在set rs=server.CreateObject("adodb.recordset")
sql="update USERs set PASSWORD1 = '" &newpsw & "' where USERNAME='" & username&"'"
中间加上这样几句,并把sql语句换掉，如下：
exec="select * from users where password1='"&pws&"' and username='"&username&"'"
rs.open exec,conn,1,1
if rs.eof and rs.bof then
response.write "<script>alert('您输入的原密码错误，请返回！');history.back();</script>"
response.end
else
sql="update USERs set PASSWORD1 = '" &newpsw & "' where USERNAME='" & username& "'"
conn.execute sql
End If %>
<script language="vbscript">
alert("信息修改成功！！！！")
window.location.href = "psw.asp"
</script>
sql="update USERs set PASSWORD1 = '" &newpsw & "' where USERNAME='" & username&"'"
中间加上这样几句,并把sql语句换掉，如下：
exec="select * from users where password1='"&pws&"' and username='"&username&"'"
rs.open exec,conn,1,1
if rs.eof and rs.bof then
response.write "<script>alert('您输入的原密码错误，请返回！');history.back();</script>"
response.end
else
sql="update USERs set PASSWORD1 = '" &newpsw & "' where USERNAME='" & username& "'"
conn.execute sql
End If %>
<script language="vbscript">
alert("信息修改成功！！！！")
window.location.href = "psw.asp"
</script>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
End select
后边增加
sub SaveEdit()
end sub
后边增加
sub SaveEdit()
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
