Todo el sitio solo necesita usar un archivo de conexión de base de datos para implementar el código de función. No diré nada más, solo dedique el código original directamente.
Copie el código de código de la siguiente manera:
'==========Atención======================================== =========
' 1. El nombre de la carpeta donde se encuentra el sitio web no puede ser root.
' 2. El nombre de la carpeta donde se encuentra el sitio web. No se permiten nombres de carpeta repetidos en la ruta física. Por ejemplo, F:/t/t, t es el nombre de la carpeta donde se encuentra el sitio web. En este caso, se producirá un error.
'=================================================== ==============
Dim dbPath,dbName,Db,ConnStr,WebSiteFolderName
en caso de error reanudar siguiente
WebSiteFolderName=WeldSiteBuilder
dbPath = _sitedata/ 'Tenga en cuenta que es una barra invertida y solo al final
dbName = acteedata.mdb 'Nombre de la base de datos
Db=GetSitePhysicalPath(NombreCarpetaSitioWeb) & dbPath & dbName
'response.Write(ruta física de la base de datos actual: &server.mappath(db))
'respuesta.Escribir(<hora>)
'response.Write(Ruta de la página solicitada actualmente: &request.ServerVariables(URL))
'respuesta.Escribir(<hora>)
'response.Write(ruta raíz del sitio actual: &request.ServerVariables(APPL_PHYSICAL_PATH))
'respuesta.Escribir(<hora>)
'response.Write(estado de la ruta del sitio actual: &request.ServerVariables(APPL_MD_PATH))
'respuesta.Escribir(db)
'respuesta.Fin()
'=======================
Establecer conexión=Server.CreateObject(ADODB.Connection)
ConnStr=Proveedor=Microsoft.Jet.OLEDB.4.0;Fuente de datos=&Db
Conn.Abrir ConnStr
Si se equivoca entonces
Err.Borrar
SetConn=Nada
Respuesta. ¡Error de conexión a la base de datos!
Respuesta.Fin
Terminar si
SubCerrarConn()
con.cerrar
establecer conexión = nada
final sub
'Obtiene la ruta absoluta al directorio donde se encuentra el sitio web (con el signo /)
Función GetSitePhysicalPath(WSFN)
tenue APPL_MD_PATH,APPL_MD_PATHArray,Ruta,WSPP
WSPP=request.ServerVariables(APPL_PHYSICAL_PATH)'El sitio web predeterminado se ejecuta en el directorio raíz
APPL_MD_PATH=solicitud.ServerVariables(APPL_MD_PATH)
APPL_MD_PATHArray=dividir(APPL_MD_PATH,/)
Ruta=APPL_MD_PATHArray(UBound(APPL_MD_PATHArray))
si UCase(Path)=ROOT entonces 'Determina si el sitio web se ejecuta bajo una aplicación independiente
'Luego determine si el sitio web se está ejecutando en una carpeta determinada
si InStr(WSPP,WSFN)=0 entonces 'El sitio web se ejecuta en una carpeta en el directorio raíz
'Deletree la dirección de la carpeta donde se encuentra el sitio web según la dirección de la página visitada
dim URL actual, matriz de nombres
URL actual=solicitud.Variables del servidor(URL)
NameArray=split(CurrentUrl,/)
para i=LBound(NameArray) a UBound(NameArray)
si UCase(NameArray(i))=UCase(WSFN) entonces
para j=0 a i
WSPP=WSPP+NombreArray(j)+/
próximo
salida para
terminar si
próximo
else 'indica que el sitio web se está ejecutando en el directorio raíz
'No es necesario hacer nada, el valor de retorno se ha inicializado
terminar si
else 'indica que el sitio web se está ejecutando en un directorio virtual
'No hacer nada, el valor de retorno se ha inicializado
terminar si
WSPP=reemplazar(WSPP,//,/)
GetSitePhysicalPath=WSPP
Función final
PD: Lo anterior es solo una solución al problema de las rutas de inclusión incorrectas para la base de datos de Access, de modo que el sitio pueda compartir un archivo de conexión de base de datos. Si algún archivo lo contiene, la base de datos se puede abrir normalmente y no es necesario. Preocúpese por cómo se ejecuta el sitio web (ejecutar en el directorio raíz, ejecutar en la ruta virtual, ejecutar en el directorio raíz + el directorio donde se encuentra el sitio web).