'Das Problem mit dem ACCESS-Datenbankpfad wurde gelöst!
'Verwenden Sie DBType=0 oder DBType=1, um zwischen AC-Bibliothek und MSSQL-Bibliothek zu unterscheiden
„Besondere Dinge, die bei der Nutzung der AC-Bibliothek beachtet werden sollten, entnehmen Sie bitte der Programmbeschreibung
----------------------------- ----- ----------
Dimmen Sie DBType,Conn,StrConn
DBType=0 '0 ist Access-Datenbank, 1 ist MSSQL-Datenbank
If(DBType=0) Then
'******************Zugang zur Datenbank******************
Blenden Sie „DbFolderName, DbFolder_Path, SiteFolder“ aus
DbFolderName="ArticleData" 'Name des Ordners, in dem sich die Datenbank befindet
DbFolder_Path = Server.MapPath(DbFolderName) 'Der Pfad zur Datenbank
SiteFolder="Article" 'Der Name des Stammverzeichnisses, in dem sich das System befindet. If
Session("RootDir") = "" Then
Session("RootDir") = Mid(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) & SiteFolder
Ende wenn
Setze Conn = Server.CreateObject("Adodb.Connection")
StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & ""& DbFolderName & "Data.mdb" 'Mit der Datenbank verbinden
Conn.Open StrConn
'************************************************** *
ElseIf(DBType=1) Then
'***************MSSQL SERVER-Datenbank******
Dimmen Sie DBUserID, DBPassWord, DBName, DBIP
„Ändern Sie die folgenden Informationen entsprechend Ihrer Website.“
DBUserID="sa" 'Datenbank-Anmeldename
DBPassWord="" 'Datenbankpasswort
DBName="dbname" 'Datenbankname
DBIP="local" 'Die Adresse der Datenbank, wenn es sich um eine lokale Datenbank handelt: (local)
Set Conn=Server.CreateObject("Adodb.Connection")
StrConn = "PROVIDER=SQLOLEDB.1;Data Source="&DBIP&";Initial Catalog="&DBName&";Persist Security Info=True;User ID="&DBUserID&";Password="&DBPassWord&";Connect Timeout=30"
Conn.Open StrConn
'************************************************** * ****
Anders
'***********************Datenbankeinstellungsfehler******************
Response.Write „Datenbankeinstellungsfehler, bitte wenden Sie sich an den Administrator!“
Antwort.Ende
Ende wenn
'Response.WriteStrConn