'Решена проблема с путем к базе данных ACCESS!
'Используйте DBType=0 или DBType=1, чтобы отличить библиотеку AC от библиотеки MSSQL.
'По конкретным вопросам, на которые следует обратить внимание при использовании библиотеки AC, смотрите описание программы
----------------------------- ----- ----------
Тусклый тип DBType, Conn, StrConn
DBType=0 '0 — база данных Access, 1 — база данных MSSQL
If(DBType=0) Тогда
'******************ДОСТУП К БАЗЕ ДАННЫХ******************
Dim DbFolderName, DbFolder_Path, SiteFolder
DbFolderName="ArticleData" 'Имя папки, в которой находится база данных
DbFolder_Path = Server.MapPath(DbFolderName) 'Путь к базе данных
SiteFolder="Article" 'Имя корневого каталога, в котором расположена системаIf
Session("RootDir") = "" Тогда
Сеанс («RootDir») = Mid (DbFolder_Path, 1, InStr (1, DbFolder_Path, SiteFolder, 1) -1) & SiteFolder
Конец, если
Set Conn = Server.CreateObject("Adodb.Connection")
StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & ""& DbFolderName & "Data.mdb" 'Подключиться к базе данных
Conn.Open StrConn
'**********************************************
ИначеЕсли(DBType=1) Тогда
'****************База данных MSSQL SERVER******
Тусклый DBUserID,DBPassWord,DBName,DBIP
'Измените следующую информацию в соответствии с вашим сайтом
DBUserID="sa" 'Имя для входа в базу данных
DBPassWord="" 'Пароль базы данных
DBName="dbname" 'Имя базы данных
DBIP="local" 'Адрес базы данных, если это локальная база данных: (локальный)
Set Conn=Server.CreateObject("Adodb.Connection")
StrConn = "PROVIDER=SQLOLEDB.1;Источник данных="&DBIP&";Начальный каталог="&DBName&";Постоянная информация о безопасности=True;Идентификатор пользователя="&DBUserID&";Пароль="&DBPassWord&";Время ожидания соединения=30"
Conn.Open StrConn
'********************************************** ****
Еще
'************************Ошибка настройки базы данных******************
Ответ. Пишет "Ошибка настройки базы данных, обратитесь к администратору!"
Ответ.Конец
Конец, если
'Response.WriteStrConn