ADODB.Recordset(0x800A0E78) 对象关闭时,不允许操作

sxzhaoxiaoyue 2007-04-15 10:08:23
<%
dim ObjConn,ConnStr,ObjRS,SqlStr
UserId = trim(request.form("UserId"))
UserPwd= trim(request.form("UserPwd"))

ConnStr= "provider=microsoft.jet.oledb.4.0;data source=" & _
server.mappath("../db/sysm.mdb")

set ObjConn= server.createObject("adodb.connection")
Objconn.open ConnStr
set ObjRS= server.createObject("adodb.Recordset")

SqlStr= "SELECT * FROM userifo where userid='" & userid & "' and userpwd='" & userpwd & "'"
Objrs.open SqlStr,Objconn,1,3

IF ObjRS.EOF THEN
Response.write "<center>不存在此用户或密码错误!</center>"
ELSE IF UserId="admin" then
session("userId")=UserId
session("userpwd")=UserPwd
session("Passed")=true
server.transfer("adimn.asp")
ELSE
session("userId")=UserId
session("userpwd")=UserPwd
session("Passed")=true
server.transfer("commuser.asp")

END IF
end if

ObjConn.close
ObjRs.close
'set Objconn = nothing
set ObjRS = nothing
加‘号的语句如果去掉’号之后,便会出现下面错误,请诸位大侠给看看。

错误类型:
ADODB.Recordset (0x800A0E78)
对象关闭时,不允许操作。
/myweb/log/app/logon.asp, 第 44 行

...全文
1232 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
bbdebb 2008-10-30
  • 打赏
  • 举报
回复
我也是同样错误,帮我看看吧..我是新人一个





<!--#include file="Connections/connection.asp"-->
<script language="javascript">
now = new Date()
var hours = now.getHours()

var timerID =null
var timerRunning = [0]
function t(){
if(timerRunning)
clearTimeout(timerID)
timerRunning = false
}
function k(){
t()
x()
}
function x(){
var now = new Date()

var year = now.getYear()
var month = now.getMonth()
var day = now.getDate()

var hours = now.getHours()
var minutes =now.getMinutes()
var seconds =now.getSeconds()

var timeValue = (hours+":"+minutes+":"+seconds)
var dayValue = (year+"-"+(month+1)+"-"+day)

document.clock.face.value = timeValue
document.clock.face1.value = dayValue

timerID=setTimeout("x()",1000)
timerRunning = true
}
</script>

<body onload="k()">
<script language="javascript">
now = new Date()
var hours = now.getHours()
function sb()
{
var name = document.clock.select.value
var ymd = document.clock.face1.value
var hms = document.clock.face.value
var employ = document.clock.S1.value
if(hours>9)
{
<%
set rs1 = server.CreateObject("ADODB.recordset")
sql="insert into employment(name,ymd,hms,employ)values('"&name&"','"&ymd&"','"&hms&"','"&employ&"')"
rs1.open sql,conn,1,3
if not rs1.eof Then
%>
<%
end if
%>
alert("登入成功!您今天迟到了哦~!")
}
else if(hours<9)
{
alert("登入成功!工作努力哦~!")
}
}
function xb()
{
var name = document.clock.select.value
var ymd = document.clock.face1.value
var hms = document.clock.face.value
var employ = document.clock.S2.value
if(hours<18)
alert("成功记录!您早退!")
else if(hours=18 || hours>18)
{
alert("下班走好啊!注意安全!")
}
}
</script>
<form id="clock" name="clock" method="post" action="">
<p>
<%
set rs = server.CreateObject("ADODB.recordset")
sql="select * from [name]"
rs.open sql,conn,1,3
if not rs.eof then
%>
姓名:
<select name="select">
<%
do while not rs.eof
username=rs("username")
userzhiwu=rs("id")
%>
<option value="<%=username%>"><%=username%></option>
<%
rs.movenext
loop
end if
%>
</select>
</p>
<p>年月日: </p>
<input type="text" name="face1" value="" id="face1" />
<p>当前时间:</p>
<p>
<input type="text" name="face" size="14" value="" id="face" />
</p>
<p>
<input type="submit" name="S1" value="上班" onclick="sb()" />
<input type="submit" name="S2" value="下班" onclick="xb()" />
</p>
</form>
</body>
bbdebb 2008-10-30
  • 打赏
  • 举报
回复
我也是同样错误,帮我看看吧..我是新人一个





<!--#include file="Connections/connection.asp"-->
<script language="javascript">
now = new Date()
var hours = now.getHours()

var timerID =null
var timerRunning = [0]
function t(){
if(timerRunning)
clearTimeout(timerID)
timerRunning = false
}
function k(){
t()
x()
}
function x(){
var now = new Date()

var year = now.getYear()
var month = now.getMonth()
var day = now.getDate()

var hours = now.getHours()
var minutes =now.getMinutes()
var seconds =now.getSeconds()

var timeValue = (hours+":"+minutes+":"+seconds)
var dayValue = (year+"-"+(month+1)+"-"+day)

document.clock.face.value = timeValue
document.clock.face1.value = dayValue

timerID=setTimeout("x()",1000)
timerRunning = true
}
</script>

<body onload="k()">
<script language="javascript">
now = new Date()
var hours = now.getHours()
function sb()
{
var name = document.clock.select.value
var ymd = document.clock.face1.value
var hms = document.clock.face.value
var employ = document.clock.S1.value
if(hours>9)
{
<%
set rs1 = server.CreateObject("ADODB.recordset")
sql="insert into employment(name,ymd,hms,employ)values('"&name&"','"&ymd&"','"&hms&"','"&employ&"')"
rs1.open sql,conn,1,3
if not rs1.eof Then
%>
<%
end if
%>
alert("登入成功!您今天迟到了哦~!")
}
else if(hours<9)
{
alert("登入成功!工作努力哦~!")
}
}
function xb()
{
var name = document.clock.select.value
var ymd = document.clock.face1.value
var hms = document.clock.face.value
var employ = document.clock.S2.value
if(hours<18)
alert("成功记录!您早退!")
else if(hours=18 || hours>18)
{
alert("下班走好啊!注意安全!")
}
}
</script>
<form id="clock" name="clock" method="post" action="">
<p>
<%
set rs = server.CreateObject("ADODB.recordset")
sql="select * from [name]"
rs.open sql,conn,1,3
if not rs.eof then
%>
姓名:
<select name="select">
<%
do while not rs.eof
username=rs("username")
userzhiwu=rs("id")
%>
<option value="<%=username%>"><%=username%></option>
<%
rs.movenext
loop
end if
%>
</select>
</p>
<p>年月日: </p>
<input type="text" name="face1" value="" id="face1" />
<p>当前时间:</p>
<p>
<input type="text" name="face" size="14" value="" id="face" />
</p>
<p>
<input type="submit" name="S1" value="上班" onclick="sb()" />
<input type="submit" name="S2" value="下班" onclick="xb()" />
</p>
</form>
</body>
mofengtt 2008-05-08
  • 打赏
  • 举报
回复
Function makeDefinedLengthStr(str,n)
'生成指定长度的字符串,长度不足,前几位用数字 0 填充
'如:makeDefinedLengthStr("1234",8) ==>返回:00001234
If Len(str) >= n Then
makeDefinedLengthStr=str
Else
For i =1 To n-Len(str)
makeDefinedLengthStr = "0" & makeDefinedLengthStr
Next
makeDefinedLengthStr = makeDefinedLengthStr & str
End If
End Function
mofengtt 2008-05-08
  • 打赏
  • 举报
回复

Function makeDefinedLengthStr(str,n)
'生成指定长度的字符串,长度不足,前几位用数字 0 填充
'如:makeDefinedLengthStr("1234",8) ==>返回:00001234
If Len(str) >= n Then
makeDefinedLengthStr=str
Else
For i =1 To n-Len(str)
makeDefinedLengthStr = "0" & makeDefinedLengthStr
Next
makeDefinedLengthStr = makeDefinedLengthStr & str
End If
End Function
sxzhaoxiaoyue 2007-04-16
  • 打赏
  • 举报
回复
luxu001207太谢谢您了,上一次您给指出问题,这一次您仍然解决了它。太厉害了。十分感谢!
Atai-Lu 2007-04-15
  • 打赏
  • 举报
回复
ObjConn.close
ObjRs.close
'set Objconn = nothing
set ObjRS = nothing
===============
你把位置搞反了...
这样写
ObjRs.close
set ObjRS = nothing
ObjConn.close
set Objconn = nothing
xie_yanke 2007-04-15
  • 打赏
  • 举报
回复
IF ObjRS.EOF or objRs.BOF THEN '不存在
.....
Else '存在
If UserId="admin" then
......
else
. ......
end if
End IF

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧