ASP中链接数据库时，需要获取数据库文件的路径，当数据库文件与当前文件在同一目录下，简单地用

DBPath1 = Server.MapPath("dbname.mdb")就可以了。

但是，如果当数据库文件与当前文件不在在同一目录下，就需要取得父目录的路径，当然，如果服务器启用了父目录功能，可以简单地用“../"获取父目录，甚至父目录的父目录(../../)......,但是有些免费空间，出于安全的考虑，关闭了父目录功能，不能简单地用“../"获取父目录，那怎么办呢，没关系，我们可以对当前路径进行字符串处理，获取父目录。

DBPath1 = Server.MapPath("./") '获取当前目录路径，不包括最后一个”\"
DBPath2=left(DBPath1,InstrRev(DBPath1,"\")-1) '获取父目录路径, 不包括最后一个”\"
DBPath3=left(DBPath2,InstrRev(DBPath2,"\")-1) '获取父目录的父目录路径, 不包括最后一个”\"

这样就可以用下面的语句来连接数据库了。

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1&"\dbname.mdb"

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath2&"\dbname.mdb"

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath3&"\dbname.mdb"

注意：这里获得的路径均不包括最后一个”\"，如果你最后结果要包括最后一个”\"，不要减1就行了。例如，你只需得到父目录，可用：

DBPath2=left(DBPath1,InstrRev(DBPath1,"\")) '获取父目录路径, 已包括最后一个”\"

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath2&"dbname.mdb"

如果你还想得到父目录的父目录路径；那么，父目录就不能要最后一个”\"，可以是

DBPath2=left(DBPath1,InstrRev(DBPath1,"\")-1) '获取父目录路径, 不包括最后一个”\"

DBPath3=left(DBPath2,InstrRev(DBPath2,"\")) '获取父目录的父目录路径, 已包括最后一个”\"

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath3&"dbname.mdb"