ASP 包含文件中的路径问题和使用单一数据库连接文件的解决方案
来源:asp之家 发布时间:2011-04-07 10:35:00
啥都不说了,直接奉献原代码
代码如下:
'==========注意===============================================
' 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数据库解决的包含路径不对的问题,使站点能公用一个数据库连接文件,任意一个文件包含它,数据库都能正常打开,并且不必理会网站是怎么运行的(根目录下运行,虚拟路径下运行,根目录+网站所在目录下运行)。


猜你喜欢
- 什么是生产者消费者模型在 工作中,大家可能会碰到这样一种情况:某个模块负责产生数据,这些数据由另一个模块来负责处理(此处的模块是广义的,可以
- 阅读上一篇:W3C优质网页小贴士(一) 使用 alt 属性描述每幅图像alt 属性有什么用?alt 属性可以在一系列标签中使用(如
- 本文实例讲述了Python闭包实现计数器的方法。分享给大家供大家参考。具体实现方法如下:先来看看专业的解释:闭包(Closure)是词法闭包
- Python数据类型之间的转换函数描述int(x [,base])将x转换为一个整数long(x [,base] )将x转换为一个长整数fl
- 本文实例讲述了Python进程池Pool应用。分享给大家供大家参考,具体如下:当需要创建的子进程数量不多时,可以直接利用multiproce
- 1.首先在Pycharm Tools->Deployment->Configurations打开新建SFTP输入host: ip
- 使用MySql的窗口函数统计数据时,发现一个小的问题,与大家一起探讨下。环境配置:mysql-installer-community-8.0
- 前言:Redhat下安装Python2.7rhel6.4自带的是2.6, 发现有的机器是python2.4。 到python网站下载源代码,
- 利用 CSS 来实现对象的垂直居中有许多不同的方法,比较难的是选择那个正确的方法。我下面说明一下我看到的好的方法和怎么来创建一个好的居中网站
- Notebook 修改字体和大小原理很简单,就是更改CSS文件原本的字体很难看,尤其是 引号😡我推荐两款字体,Consolas 和 Fira
- 在使用Python的过程中难免会遇到不同的项目使用不通同的Python环境,这就引出Python环境的切换问题这篇文章以3.11.0与3.1
- 前言之前接触到的数据库死锁,都是批量更新时加锁顺序不一致而导致的死锁,但是上周却遇到了一个很难理解的死锁。借着这个机会又重新学习了一下mys
- 使用drop()方法删除pandas.DataFrame的行和列。在0.21.0版之前,请使用参数labels和axis指定行和列。从0.2
- tf.diag(diagonal,name=None) #生成对角矩阵import tensorflowas tf;diagonal=[1,
- 2009年2月24日,Safari 4.0 beta版正式发布,Safari从它的3.2版本开始就已经支持所有的CSS选择器(包括最新的CS
- 1.cv2.getStructuringElement(shape,ksize,anchor=(-1,-1))该函数构造并返回可进一步传递给
- 最近在学习Python3网络爬虫开发实践(崔庆才 著)刚好也学习到他使用代理爬取公众号文章这里,但是照着他的代码写,出现了一些问题。在这里我
- 前言最近补 Golang channel 方面八股的时候发现用 channel 实现一个优雅退出功能好像不是很难,之前写的 HTTP 框架刚
- 今天新能测试组的同事找我看一个奇怪的现象。一个tomcat应用,里面只有一个单纯的jsp页面,而且这个jsp页面没有任何java代码(想用这
- 一、属性的设置和获取1、属性的设置和获取主要有两种方式:<!DOCTYPE html><html lang="e