UC知道ASP + ACCESS 浏览时出错
来源：百度知道 编辑：UC知道 时间：2024/06/08 21:12:10
提示错误是:
Microsoft JScript 运行时错误 (0x800A1391)
'server' 未定义
/Connections/conndate1.asp, 第 8 行
xonndate1.asp 代码如下
<%
// FileName="Connection_ado_conn_string.htm"
// Type="ADO"
// DesigntimeType="ADO"
// HTTP="true"
// Catalog=""
// Schema=""
var MM_conndate1_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("/data/chejian.mdb")
%>
Microsoft JScript 运行时错误 (0x800A1391)
'server' 未定义
/Connections/conndate1.asp, 第 8 行
xonndate1.asp 代码如下
<%
// FileName="Connection_ado_conn_string.htm"
// Type="ADO"
// DesigntimeType="ADO"
// HTTP="true"
// Catalog=""
// Schema=""
var MM_conndate1_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("/data/chejian.mdb")
%>
server.mappath("/data/chejian.mdb")
server.mappath("\data\chejian.mdb")
JScript语言的ASP程序区分大小写。
server.mappath("/data/chejian.mdb")
改成：
Server.MapPath("/data/chejian.mdb")
如果VBScript就随便大小写无所谓了。
“Microsoft JScript 运行时错误”，变量是用var声明。自然用的JScript语言。
kver2010给你答案是VBScript写法，IIS默认ASP环境支持这两种语言编写。
Dim Conn,ConnStr
Const Db="data/test.mdb"
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
Conn.Close:Set Conn=Nothing
Response.Write "数据库连接出错"
Response.End()
End If
Function CloseDatabase
Conn.Close:Set Conn=Nothing
End Function