asp连接access数据库代码

常在做数据库连接代码时,会遇到不在同一个文件夹下,如果使用绝对路径/来链接,可以解决所有asp文件只使用一个连接代码。但是在不使用/的情况下，也可以使用一个连接文件，原理是先使用fso判断数据库所在目录的路径，然后根据这个路径去做连接，代码如下：
<%
DB="数据库.mdb"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(server.MapPath("include"))=false then
DB="../"&DB
end if
set fso=nothing
path=Server.MapPath(DB)
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source="&path
conn.Open connstr
%>