<% @LANGUAGE = VBScript %> <% conn.asp Option Explicit Response.Expires = 0 Dim Cnn, StrCnn Set Cnn = Server.CreateObject("ADODB.Connection") StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\webpub\bookstore.mdb" Cnn.Open StrCnn Response.Write Server.MapPath("\webpub") & "\bookstore.mdb;" & "<br>" Response.Write "数据库连接成功: " & Cnn.State & "<br>" Cnn.close Response.Write "数据库已经关闭: " & Cnn.State Set Cnn = Nothing %>

修改的那一行,还是出错,怎么办?

我再问一下,数据库mdb文件应放在虚拟目录下吗?谢谢版主

帮你改了一下

<%@LANGUAGE = VBScript %> <% Option Explicit

Response.Expires = 0 Dim Cnn, StrCnn ,DBPath Set Cnn = Server.CreateObject("ADODB.Connection")

DBPath=Server.MapPath("bookstore.mdb")

StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & DBPath Cnn.Open StrCnn Response.Write DBPath & "<br>" Response.Write "数据库连接成功: " & Cnn.State & "<br>" Cnn.close Response.Write "数据库已经关闭: " & Cnn.State Set Cnn = Nothing %>

另外,数据库文件可以放在任意目录