Microsoft VBScript 编译器错误 错误 '800a0401' 急急

来源：百度知道 编辑：UC知道 时间：2024/06/01 15:05:57
语句未结束

/stdExercise/040306/0403060418/Connections/cnnDB.asp，行 9

MM_cnnDB_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Sourse=" & Server.MapPath("DataBase/db1.mdb") cnnDB.Open strCon"
-------------------------------------------------------------------------------------------------------^

我的程序是：
Dim MM_cnnDB_STRING
MM_cnnDB_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Sourse=" & Server.MapPath("DataBase/db1.mdb") cnnDB.Open strCon

在线等答案 急急急急急
cnnDB.Open strCon 我是另起一行的

整个程序：
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_cnnDB_STRING
MM_cnnDB_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Sourse=" & Server.MapPath("DataBase/db1.mdb

MM_cnnDB_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Sourse=" & Server.MapPath("DataBase/db1.mdb") cnnDB.Open strCon

这句有问题啊
cnnDB.Open strCon

这句应该另起一行啊

还有 在前面定义这个变量了么

如果你上面的代码中没有建立cnnDB数据库链接对象

要先建立一下

Dim cnnDB

Set cnnDB=Server.Createobject("Adodb.Connection")

然后修改你的代码

Dim MM_cnnDB_STRING

MM_cnnDB_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Sourse="&Server.MapPath("DataBase/db1.mdb")

cnnDB.Open MM_cnnDB_STRING