| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 586 人关注过本帖
标题:[求助]关于密码修改
取消只看楼主 加入收藏
zmyzzz
Rank: 1
等 级:新手上路
帖 子:145
专家分:0
注 册:2005-9-21
收藏
 问题点数:0 回复次数:1 
[求助]关于密码修改
请问我这个为什么总提示我:

ADODB.Recordset 错误 '800a0e78'

对象关闭时,不允许操作。

/mima/mmxiugai.asp,行 35

源代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>密码输入错误</title>
<style type="text/css">
<!--
.style1 {
font-family: "宋体";
font-size: 10pt;
}
body {
background-image: url(../img/beijing.gif);
margin-top: 0px;
}
-->
</style>
</head>

<body>
<%
dim conn,db,rs,sql,oldpasswd,newpasswd,username
db="/mdb/login.mdb"
username=Session("user")
oldpasswd=trim(request("textfield"))
newpasswd=trim(request("textfield2"))
if username="" then
response.redirect("/sorry.asp")
else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
sql="select * from name where login='"&username&"' and passwd='"&oldpasswd&"'"
Set rs = Server.CreateObject("ADODB.RecordSet")
if not rs.eof then
rs.open sql,conn,1,2
rs("passwd")=newpasswds
rs.update
rs.close
conn.close
set conn=nothing
response.Redirect("mmok.asp")
else
%>
<span class="style1">对不起,您输入的原密码不对,请<a href="mima.asp">返回</a>重新输入!</span>
<%
end if
end if
%>


</body>
</html>
35行为红字那一行,我的数据库这样关闭不对么??
望指教,谢谢!!!!

[此贴子已经被作者于2005-11-29 11:17:12编辑过]

搜索更多相关主题的帖子: 密码 源代码 title text 
2005-11-29 11:11
zmyzzz
Rank: 1
等 级:新手上路
帖 子:145
专家分:0
注 册:2005-9-21
收藏
得分:0 

不对哦....
我改了...可是还提示:

ADODB.Recordset 错误 '800a0e78'

对象关闭时,不允许操作。

/mima/mmxiugai.asp,行 35

是不是我不应该那么关闭数据库阿?


吾尝终日而思之,不如须臾之所学也
2005-11-29 13:34
快速回复:[求助]关于密码修改
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025034 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved