UC知道ASP数据库路径问题，急急急！
来源：百度知道 编辑：UC知道 时间：2024/07/04 08:06:55
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/web/Connections/luxian1.asp, line 9, column 111
MM_luxian1_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/SunShineTravel/myjob.mdb")";Persist Security Info=False"
出错页面代码如下：
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_luxian1_STRING
MM_luxian1_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/SunShineTravel/myjob.mdb")";Persist Security Info=False"
%>
语句未结束
/web/Connections/luxian1.asp, line 9, column 111
MM_luxian1_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/SunShineTravel/myjob.mdb")";Persist Security Info=False"
出错页面代码如下：
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_luxian1_STRING
MM_luxian1_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/SunShineTravel/myjob.mdb")";Persist Security Info=False"
%>
MM_luxian1_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./SunShineTravel/myjob.mdb")&";Persist Security Info=False"
dim db
db="SunShineTravel/myjob.mdb"
on error resume next
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<div align=""center"">数据库连接出错！</div>"
Response.End
End If
Connection_ado_conn_string.htm
这个页面你用的是 “.htm”的后缀？？？
太神奇了。
改成".ASP"