conn.asp这里面如何找到数据库文件，想修改，找不到数据库文件，谢谢，还有个是主页的代码， 谢谢帮忙下

<%
DB="data/buyok30-mdb.mdb"
Response.Buffer=True
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(server.MapPath("include"))=false then
DB="../"&DB
end if
set fso=nothing
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
'connstr= "driver={Microsoft Access Driver(*.mdb)};dbq=" & Server.MapPath(DB)
conn.Open connstr
copycolor="#A9A9A9"
%>
<!--#include file="buyok.asp" -->
<!--#include file="functions.asp" -->

------------------------------------------------------------------
DB="data/buyok30-mdb.mdb" 我在data下没找到buyok30-mdb.mdb文件,但是连接正常

，这个是主页文件代码Set setuprs = conn.Execute("select * from bconfig")
adm_name= setuprs("adm_name")
adm_tel= setuprs("adm_tel")
adm_fax= setuprs("adm_fax")
adm_mob= setuprs("adm_mob")
adm_comp= setuprs("adm_comp")，想修改电话之类，但是找不到修改的文件，谢谢
但是在这个路径下 ，没有找到 该数据库文件呀，但是存在这个链接，其他都正确，那个电话和联系方式在数据库文件，但是找不到这个文件，但是主页的那个联系电话之类仍然存在，谢谢 ，查看了所有文件都没发现电话，联系方式之类

if fso.FolderExists(server.MapPath("include"))=false then //在本目录找include文件夹 如果不存在
DB="../"&DB //数据库的目录根目录就变为它的上一级目录
你自己找找吧
实在不行就按下F3 搜一下这个文件
如果还不行 就是你的判断错误 给出来的coon不是程序用的
如果这几样都不行的话 那你就喊一句：“上帝 ，救救我吧！”

信息在这个文件里 打开看下mdb实际路径，下载后查看admin表

" DB="data/buyok30-mdb.mdb" ... DB="../"&DB " 数据库路径："../data/buyok30-mdb.mdb"