Microsoft VBScript 运行时错误 (0x800A0005) 无效的过程调用或参数 /Books/conn.asp, 第 8 行

Question

conn.asp代码如下
<%
dim startime,conn,connstr,db,rs,rs_s,rs_s1
startime=timer()
db="data/nc_bookshop.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath'(""&db&"")
conn.Open connstr
%>

Answer 1

dim startime,conn,connstr,db,rs,rs_s,rs_s1
startime=timer()
db="data/nc_bookshop.asp"
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
Conn.open ConnStr

Answer 2

<%
dim startime,conn,connstr,db,rs,rs_s,rs_s1
startime=timer()
db="data/nc_bookshop.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 
Server.MapPath(db)                                      '去掉双引号试试。Server.MapPath(db)
conn.Open connstr
%>

本回答被网友采纳

Answer 3

db="/data/nc_bookshop.asp"