ASP高手请进,帮助看看修改密码

<html>



<%
dim password,newpassword,newpasswordtemp,userid
dim sql,rs
if Request.Form("submit")="提交" then
userid = session("userid")
password = Request("password")
newpassword = Request("newpassword")
newpasswordtemp = Request("newpasswordtemp")
if request.form("newpassword") = request.form("newpasswordtemp") then
if request.form("pass") = rs("pass") then
set rs = Server.CreateObject("ADODB.Recordset")
sql="update tb_Student set Pwd='" & newpassword & "' where UserID="& userid
rs.open sql,conn,1,3
Response.Write "<script language='javascript'>alert('修改成功！！');"
response.write"this.location.href='"&request.ServerVariables("HTTP_REFERER")&"';</SCRIPT>"
else
rs.Close()
set rs = Nothing
if request.form("password") <> session("PWD") then
sql="select * from T_B_WebUser where UserID = '"& UserID &"'"
Response.Write "<script language='javascript'>alert('对不起，旧密码错误！！');"
response.write"this.location.href='"&request.ServerVariables("HTTP_REFERER")&"';</SCRIPT>"
end if
end if
else
rs.Close()
set rs = Nothing
if request.form("newpassword") = request.form("newpasswordtemp") then
Response.Write "<script language='javascript'>alert('对不起，两次输入的新密码不一致！！');"
response.write"this.location.href='"&request.ServerVariables("HTTP_REFERER")&"';</SCRIPT>"
end if
end if
end if
%>

<HEAD>
<TITLE>password</TITLE>

</HEAD>
<BODY>
<BR><BR><CENTER>
<FONT SIZE="5" COLOR=#000000 FACE="宋体">修改密码</FONT>
</CENTER><BR><BR>
<FORM METHOD=POST ACTION="pwd.asp">
<TABLE align=center width="60%" border="1" cellspacing="0">
<tr>
<TD>当前用户名： <font color="#FF0000"><%=session("UserID")%></font>
<input name="UserID" type="hidden" value="<%=session("UserName")%>">
<TR>

<TD>您的旧密码:
<INPUT TYPE="password" NAME="password" size=20 maxlength=12>
<font color=red>*</font>
<FONT SIZE="" COLOR="">(长度不超过12位，下同)</FONT><BR>
<HR>
输入新密码：<INPUT TYPE="password" NAME="newpassword" size=20 maxlength=12>
<font color=red>*</font><BR>
新密码确认：<INPUT TYPE="password" NAME="newpasswordtemp" size=20 maxlength=12>
<font color=red>*</font><BR></TD>
</TR>
<TR>
<TD align=center>
<P><input type="submit" value="提交" name="submit">
<input type="reset" value="重写" name="B2">
</P></TD>
</TR>
</TABLE>
</FORM>
</body>
</html>
--------------------
错误类型：
ADODB.Recordset (0x800A0CC1)
在对应所需名称或序数的集合中，未找到项目。
/pwd.asp, 第 15 行

第15行--if request.form("pass") = rs("pass") then --

错误类型：
ADODB.Recordset (0x800A0E78)
对象关闭时，不允许操作。
/pwd.asp, 第 31 行

第31行--rs.Close()-- 展开

 我来答

2个回答

#热议# 生活中有哪些实用的心理学知识？

11489977
2007-01-25 · 超过12用户采纳过TA的回答

知道答主

回答量：45

采纳率：0%

帮助的人：0

我也去答题访问个人页

关注

展开全部

错误类型：
ADODB.Recordset (0x800A0CC1)
在对应所需名称或序数的集合中，未找到项目。
/pwd.asp, 第 15 行

第15行--if request.form("pass") = rs("pass") then --

错误类型：
ADODB.Recordset (0x800A0E78)
对象关闭时，不允许操作。
/pwd.asp, 第 31 行

第31行--rs.Close()--

15行是没有数据嘛..多数是数据库没有字段...

31行貌似前面没有相应的OPEN...CLOSE可免...

已赞过 已踩过<

评论收起

百度网友b0de127ac
2007-01-25 · 超过43用户采纳过TA的回答

知道答主

回答量：178

采纳率：0%

帮助的人：99.8万

我也去答题访问个人页

关注

展开全部

你这里根本就还没open怎么就用rs("pass")了，
set rs = Server.CreateObject("ADODB.Recordset") 
sql="update tb_Student set Pwd='" & newpassword & "' where UserID="& userid 
rs.open sql,conn,1,3 
放到if request.form("pass") = rs("pass") then 前面去
，上面的同胞说得对，31行的rs.close()和set rs=Nothing可以去掉

本回答被提问者采纳

已赞过已踩过<

你对这个回答的评价是？
评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

ASP高手请进,帮助看看修改密码

其他类似问题

为你推荐：