连接access数据时如何将路径定位到上一级目录的数据库??

mappath("/目录/文件名") 这样到哪层都能用

"../"

不行的吧?那样只是向下级目录定位而已.
假如说.
有一数据库 123 在目录 234  里,
而要连接数据库的文件 456  在目录 123/345 里.
 你要怎么连.能写出来吗?

server.mappath("../123.mdb")

不行的
../   不是asp支持的方式

...会吗????

是不是用<!--#include virtual="../111.asp" -->

那肯定不支持

正确用法
<!--#include virtual="/111/111.asp" -->
<!--#include file="../111/111.asp" -->

可是mappath怎么用都支持

强大的数据库连接 conn.asp <% Option Explicit Response.Buffer = True dim startime dim isSQL dim conn dim connstr isSQL=0 '(1为SQL数据库,0为Access数据库）注意修改这里 dim mydbpath,db MyDbPath = "database/" '数据库路径 Startime = Timer() sub open_database if not isobject(conn) then Set conn = Server.CreateObject("ADODB.Connection") if issql=1 then '----------------------------使用SQL数据库------------------- 'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、 '连接名(SqlLocalName)（本地用local，外地用IP） Const SqlDatabaseName = "数据库名" Const SqlPassword = "用户密码" Const SqlUsername = "用户名" Const SqlLocalName = "连接名" ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";" '----------------------------使用Access--------------------- else db="actdata.mdb" ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db) end if '------------------------------------------------------------ On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接出错，请检查连接字串。" Response.End End If else exit sub end if end sub

'关闭数据库 sub close_database conn.close set conn=nothing end sub

'显示执行时间 function webtimes() response.Write ("<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td align=center><font onmouseover=this.color='red' onmouseout=this.color='#000000'>页面执行时间为：") response.Write((closetime-starttime)*1000) response.Write("ms</font></td><tr></table>") end function %>