Question

Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: '' /inc/conn.asp，行 2

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
<%
dim conn
dim connstr
dim db
dim sql
on error resume next
sql=1
if sql=1 then
db = "data/#database.mdb" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
'---------------------连接sql数据库-----------------
else
Set conn = Server.CreateObject("ADODB.Connection")
connstr = "driver={sql server};server=.;uid=sa;pwd=sa;database=D1279;"
conn.Open connstr
'---------------------
end if
sub CloseConn()
conn.close
set conn=nothing
end sub

Answer 1

response.write Server.MapPath(db)
response.end
在db = "data/#database.mdb" '数据库文件的位置 这个行之后加上面两行代码，看看db文件的路径对不对。