ADODB.Recordset (0x800A0BB9) 参数类型不正确 或者与其他参数冲突

来源：百度知道 编辑：UC知道 时间：2024/07/04 06:51:29
<%
else

dim IntOrderNum
set rsvip=server.CreateObject("adodb.recordset")
rsvip.Open "select distinct(goods) from orders where username='"&strUserName&"' and state=2 ",conn,1,1
IntOrderNum = rsvip.recordcount
rsvip.Close

rsvip.open "select [User].grpid,username,GrpID,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1

strTitle = rsVip("GrpName")
bookzt=rsVip("bookzt")
LngDiscount = rsVip("Stars")
rsvip.close
set rsvip=nothing

if IntOrderNum=0 then %>
<%
dim conn,connstr,startime,Buy2Buy,rs,UserAgent
startime=timer()
Buy2Buy="Data/buy#2buy#cndata.asa"
UserAgent = Trim(Lcase(Request.Servervariables("HTTP_USER_AGENT")))
If InStr(UserAgent,&qu

我觉得程序可能没有错误，可能是你access数据库的问题，你检查一下你的数据库是否有损坏，是否放在该放的路径

另外，你把定义conn的语句贴出来看看，应该是在这个文件dbconnect/admin.inc.asp里

这是admin.inc.asp的代码：

<%
dim conn
dim connstr
'on error resume next

connstr = "DBQ=" + server.mappath("../db/1net.asp") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
else
if err then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
end if
end if

sub endConnection()
conn.close
set conn=nothing
end sub

%>

最重要的是这句“连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。 ”
你早把它贴出来就好了

这种错误我以前也碰到过，原因很简单，在执行第24行rs.open sql,conn,1,1时conn在之前还没有被open，解决办法很简单，在