个人中心
gpt4 book ai didi

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

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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  。

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

最后此篇关于ASP 包含文件中的路径问题和使用单一数据库连接文件的解决方案的文章就讲到这里了,如果你想了解更多关于ASP 包含文件中的路径问题和使用单一数据库连接文件的解决方案的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

26 4 0
文章推荐： asp 过滤非法字符函数
文章推荐： asp检测是否为中文字符函数
文章推荐： asp HTTP 500错误 常见问题分析
文章推荐： asp 关键词高亮显示(不区分大小写)
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com