提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  数据库

当前栏目

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

文件数据库ASP连接解决方案 问题 使用 路径
2023-06-13 09:14:08 时间
啥都不说了，直接奉献原代码
复制代码代码如下:

"==========注意===============================================
"1、网站所在文件夹的名字不能为“root”
"2、网站所在文件夹的名字，物理路径中不允许出现重复此文件夹名，如F:\t\t,t为网站所在文件夹名，这种情况会出错
"=============================================================
DimdbPath,dbName,Db,ConnStr,WebSiteFolderName
onerrorresumenext

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()
"======================
Setconn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Db
Conn.OpenConnStr
IfErrThen
Err.Clear
SetConn=Nothing
Response.Write"数据库连接错误！"
Response.End
EndIf

SubCloseConn()
conn.close
setconn=nothing
endSub

"获取网站所在目录的绝对路径（带“\”号）
FunctionGetSitePhysicalPath(WSFN)
dimAPPL_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))
ifUCase(Path)="ROOT"then"判断网站是不是在独立的应用程序下运行
"再判断网站是不是在某个文件夹下运行
ifInStr(WSPP,WSFN)=0then"网站在根目录下的一个文件夹下运行
"根据受访页面的地址拼出网站所在文件夹的地址
dimCurrentUrl,NameArray
CurrentUrl=request.ServerVariables("URL")
NameArray=split(CurrentUrl,"/")
fori=LBound(NameArray)toUBound(NameArray)
ifUCase(NameArray(i))=UCase(WSFN)then
forj=0toi
WSPP=WSPP+NameArray(j)+"\"
next
exitfor
endif
next
else"表明网站是在根目录下运行
"什么都不必做，返回值已经初始化了
endif
else"表明网站是在虚拟目录下运行
"什么也不做，返回值已经初始化了
endif
WSPP=replace(WSPP,"\\","\")
GetSitePhysicalPath=WSPP
EndFunction

PS：以上只是针对Access数据库解决的包含路径不对的问题，使站点能公用一个数据库连接文件，任意一个文件包含它，数据库都能正常打开，并且不必理会网站是怎么运行的（根目录下运行，虚拟路径下运行，根目录+网站所在目录下运行）。

相关文章