...VBScript 运行时错误 '800a01a8' 缺少对象: 'rs'

发布网友发布时间：2024-10-22 06:27

共4个回答

热心网友时间：3分钟前

<%response.buffer=true%>
<html>
<head>
<title>修改密码</title>
<link rel="stylesheet" type="text/css" href="forum.css">
</head>
<body topmargin=0 onload=this.document.input.old_pass.focus()>
<div align=center>
<table width=600><tr><td>

<%showtitle(title)%>
<form method=post action=chkpass.asp name=input>
<table align=center border='0' height='40' cellspacing='1' cellpadding='1' bordercolordark='#FFFFFF' bordercolorlight='#DADBFC' bordercolor='#00000'>
<tr><td align=right>原密码：</td><td><input class=smallinput type=password name=old_pass value=""></td></tr>
<tr><td align=right>新密码：</td><td><input class=smallinput type=password name=new_pass value=""></td></tr>
<tr><td align=right>校验密码：</td><td><input class=smallinput type=password name=confirm_pass value=""></td></tr>
<tr><td align=center colspan=2>
<br>
<input class=smallinput type=submit name=ok value= 确定 >
<input class=smallinput type=reset name=reset value= 清除 >
<input class=smallinput type=button name=retu onclick=history.go(-1) value=" 返回 ">
</td></tr>
</table>
</form>
</body>
</td></tr></table></DIV>
</html>
<%if Request.ServerVariables("REQUEST_METHOD")="POST" then
sql="select * from user where username='"&session("username")&"' and password='"&request.form("old_pass")&"'"
rs.open sql,conn,3,2
if not rs.eof then
if request.form("new_pass")=request.form("confirm_pass") then
rs("password")=request.form("new_pass")
rs.update
showsuccess "密码修改成功！"
else
showerror "新密码和检验密码不一致，请重新输入！"
end if
else
showerror "原密码错误！"
end if
rs.close
end if
%>

代码如上，但是运行后结果却
Microsoft VBScript 运行时错误 '800a01a8'

缺少对象: 'rs'

\chkpass.asp, line

热心网友时间：9分钟前

在conn.asp里面有定义。
在最前面加下面的代码，当然要连数据库。
代码如下：
dbpath="data/XXXX.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
'connstr="Driver={SQL Server};server=127.0.0.1;database=xxxx;uid=sa;pwd=111111;" ' 这个是连SQL SERVER
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr

热心网友时间：2分钟前

conn 呢？conn怎么丢了，在最前面加下面的代码，当然要连你的数据库。

dbpath="data/XXXX.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
'connstr="Driver={SQL Server};server=127.0.0.1;database=xxxx;uid=sa;pwd=111111;" ' 这个是连SQL SERVER
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr

热心网友时间：2分钟前

系统内的
Microsoft VBScript
rs的注册表被损坏了，重新修复下，用360可以修复的

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com