asp连接access数据库代码(2)

通常在做数据库连接代码时,会遇到不在同一个文件夹下,如果使用绝对路径/来链接,可以解决所有asp文件只使用一个连接代码。但是在不使用/的情况下，也可以使用一个连接文件，原理是先使用fso判断数据库所在目录的路径，然后根据这个路径去做连接，代码如下：
<
%
DB="
数据库.mdb"

Set 
fso 
= 
Server.CreateObject("
Scripting.FileSystemObject"
)
if 
fso.FolderExists(server.MapPath("
include"
))=false 
then
DB="
../"
&

#38
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="
&

#38
path
conn.Open 
connstr
%>