ASP 包含文件中的路径问题和使用单一数据库连接文件的解决方案

　　'==========注意===============================================

　　' 1、网站所在文件夹的名字不能为“root”

　　' 2、网站所在文件夹的名字，物理路径中不允许出现重复此文件夹名，如F:\t\t,t为网站所在文件夹名，这种情况会出错

　　'=============================================================

　　Dim dbPath,dbName,Db,ConnStr,WebSiteFolderName

　　on error resume next

　　WebSiteFolderName="WeldSiteBuilder"

　　dbPath = "_sitedata\" '注意是反斜杠，且只有末尾有

　　dbName = "acteedata.mdb" '数据库名称

　　Db=GetSitePhysicalPath(WebSiteFolderName) & dbPath & dbName

　　'response.Write("当前数据库物理路径："&server.mappath(db))

　　'response.Write("<hr>")

　　'response.Write("当前请求访问的页面路径："&request.ServerVariables("URL"))

　　'response.Write("<hr>")

　　'response.Write("当前站点的根路径："&request.ServerVariables("APPL_PHYSICAL_PATH"))

　　'response.Write("<hr>")

　　'response.Write("当前站点的路径状况："&request.ServerVariables("APPL_MD_PATH"))

　　'response.Write(db)

　　'response.End()

　　'======================

　　Set conn=Server.CreateObject("ADODB.Connection")

　　ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Db

　　Conn.Open ConnStr

　　If Err Then

　　Err.Clear

　　Set Conn = Nothing

　　Response.Write "数据库连接错误！"

　　Response.End

　　End If

　　Sub CloseConn()

　　conn.close

　　set conn=nothing

　　end Sub

　　'获取网站所在目录的绝对路径（带“\”号）

　　Function GetSitePhysicalPath(WSFN)

　　dim APPL_MD_PATH,APPL_MD_PATHArray,Path,WSPP

　　WSPP=request.ServerVariables("APPL_PHYSICAL_PATH")'默认网站是在根目录下运行

　　APPL_MD_PATH=request.ServerVariables("APPL_MD_PATH")

　　APPL_MD_PATHArray=split(APPL_MD_PATH,"/")

　　Path=APPL_MD_PATHArray(UBound(APPL_MD_PATHArray))

　　if UCase(Path)="ROOT" then '判断网站是不是在独立的应用程序下运行

　　'再判断网站是不是在某个文件夹下运行

　　if InStr(WSPP,WSFN)=0 then '网站在根目录下的一个文件夹下运行

　　'根据受访页面的地址拼出网站所在文件夹的地址

　　dim CurrentUrl,NameArray

　　CurrentUrl=request.ServerVariables("URL")

　　NameArray=split(CurrentUrl,"/")

　　for i=LBound(NameArray) to UBound(NameArray)

　　if UCase(NameArray(i))=UCase(WSFN) then

　　for j=0 to i

　　WSPP=WSPP+NameArray(j)+"\"

　　next

　　exit for

　　end if

　　next

　　else '表明网站是在根目录下运行

　　'什么都不必做，返回值已经初始化了

　　end if

　　else '表明网站是在虚拟目录下运行

　　'什么也不做，返回值已经初始化了

　　end if

　　WSPP=replace(WSPP,"\\","\")

　　GetSitePhysicalPath=WSPP

　　End Function