'¡Resuelto el problema de la ruta de la base de datos ACCESS!
'Utilice DBType=0 o DBType=1 para distinguir la biblioteca AC o la biblioteca MSSQL
'Para cuestiones específicas a las que se debe prestar atención al utilizar la biblioteca AC, consulte la descripción del programa
----------------------- ----- ----------
Tipo DB tenue, Conn, StrConn
DBType=0 '0 es la base de datos de Access, 1 es la base de datos MSSQL
Si(DBType=0) Entonces
'******************ACCEDER A LA BASE DE DATOS******************
Dim DbFolderName,DbFolder_Path,SiteFolder
DbFolderName="ArticleData" 'Nombre de la carpeta donde se encuentra la base de datos
DbFolder_Path = Server.MapPath(DbFolderName) 'La ruta a la base de datos
SiteFolder="Article" 'El nombre del directorio raíz donde se encuentra el sistema. If
Session("RootDir") = "" Entonces
Sesión("RootDir") = Mid(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) & SiteFolder
terminar si
Establecer conexión = Server.CreateObject ("Adodb.Connection")
StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & ""& DbFolderName & "Data.mdb" 'Conectarse a la base de datos
Conn.Abrir StrConn
'************************************************ *
De lo contrario(DBType=1) Entonces
'******************Base de datos del SERVIDOR MSSQL******
Dim DBUserID,DBPassWord,DBName,DBIP
'Modifique la siguiente información para adaptarla a su sitio
DBUserID="sa" 'Nombre de inicio de sesión de la base de datos
DBPassWord="" 'Contraseña de la base de datos
DBName="dbname" 'Nombre de la base de datos
DBIP="local" 'La dirección de la base de datos, si es una base de datos local: (local)
Set Conn=Server.CreateObject("Adodb.Connection")
StrConn = "PROVIDER=SQLOLEDB.1;Fuente de datos="&DBIP&";Catálogo inicial="&DBName&";Información de seguridad persistente=True;ID de usuario="&DBUserID&";Contraseña="&DBPassWord&";Tiempo de espera de conexión=30"
Conn.Abrir StrConn
'************************************************ * ****
Demás
'************************Error de configuración de la base de datos******************
Response.Write "Error de configuración de la base de datos, ¡comuníquese con el administrador!"
Respuesta.Fin
Terminar si
'Respuesta.WriteStrConn