ADODB.Recordset error '800a0bb9'怎么解决 10
执行ASP出错如下错误:ADODB.Recordseterror'800a0bb9'Argumentsareofthewrongtype,areoutofacceptab...
执行ASP出错如下错误 :
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/check.asp, line 8
下面是页面代码:
<title>User Check</title><!--#include file="conn.asp"-->
<%
Dim Rs,Sql,Userid,Pwd
Userid=Request.form("Userid") '提取login.asp页面的用户名;
Pwd=Request.form("pwd") '提取login.asp页面的密码;
Set Rs=Server.Createobject("adodb.recordset")
Sql="select * from users where userid='"&Userid&"' "
Rs.open sql,conn,1,1
If rs.eof and rs.eof then '判断用户名是否存在
Response.write "<script language=javascript>alert('用户不存在');history.go(-1);</script>"
Response.End
Elseif Rs("pwd")<>pwd then '判断密码是否正确
Response.write "<script language=javascript>alert('密码错误');history.go(-1);</script>"
Response.End
Else
Session("userid")=userid '把用户名写入session
Response.redirect("index.asp")
End if
%> 展开
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/check.asp, line 8
下面是页面代码:
<title>User Check</title><!--#include file="conn.asp"-->
<%
Dim Rs,Sql,Userid,Pwd
Userid=Request.form("Userid") '提取login.asp页面的用户名;
Pwd=Request.form("pwd") '提取login.asp页面的密码;
Set Rs=Server.Createobject("adodb.recordset")
Sql="select * from users where userid='"&Userid&"' "
Rs.open sql,conn,1,1
If rs.eof and rs.eof then '判断用户名是否存在
Response.write "<script language=javascript>alert('用户不存在');history.go(-1);</script>"
Response.End
Elseif Rs("pwd")<>pwd then '判断密码是否正确
Response.write "<script language=javascript>alert('密码错误');history.go(-1);</script>"
Response.End
Else
Session("userid")=userid '把用户名写入session
Response.redirect("index.asp")
End if
%> 展开
2个回答
展开全部
认为有两点的可能性导致了改错误,
第一,可能是conn.asp文件没有include 进来,导致数据库执行操辩高大作时参数不足,发生错误。你可以确认conn对象打开了没。
第二,可能是你的垃圾程序代码出问题了,开头的
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_newsadd_STRING
Recordset1.Source = "SELECT * FROM news"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
这几行的参数设置可能有问题,我们写程序,一般不要使用机器自动产生的垃圾代码,因为他们的可读念铅性非常差,我看里面的参数,有些设置的不好。
你确携竖认你是用到它的?看了程序,它没啥用,直接去掉,然后把结尾的
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
也去掉,调试一下。呵呵,基本上程序出入不大,稍微调试一下就可以了。
第一,可能是conn.asp文件没有include 进来,导致数据库执行操辩高大作时参数不足,发生错误。你可以确认conn对象打开了没。
第二,可能是你的垃圾程序代码出问题了,开头的
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_newsadd_STRING
Recordset1.Source = "SELECT * FROM news"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
这几行的参数设置可能有问题,我们写程序,一般不要使用机器自动产生的垃圾代码,因为他们的可读念铅性非常差,我看里面的参数,有些设置的不好。
你确携竖认你是用到它的?看了程序,它没啥用,直接去掉,然后把结尾的
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
也去掉,调试一下。呵呵,基本上程序出入不大,稍微调试一下就可以了。
追问
麻烦别复制copy 看都不看直接复制别人的有什么用
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询