'ACCESSのデータベースパスの問題を解決しました！
'AC ライブラリと MSSQL ライブラリを区別するには DBType=0 または DBType=1 を使用します
'ACライブラリを使用する際の具体的な注意事項については、プログラムの説明を参照してください
----------------------------- ----- ----------
Dim DBType,Conn,StrConn
DBType=0 '0 は Access データベース、1 は MSSQL データベース
If(DBType=0) then
'******************データベースにアクセス******************
Dim DbFolderName、DbFolder_Path、SiteFolder
DbFolderName="ArticleData" 'データベースが配置されているフォルダーの名前
DbFolder_Path = Server.MapPath(DbFolderName) 'データベースへのパス
SiteFolder="Article" 'システムが配置されているルート ディレクトリの名前If
Session("RootDir") = "" then
Session("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
'************************************************ *
ElseIf(DBType=1) 次に
'****************MSSQL SERVER データベース******
Dim DBUserID、DBPassWord、DBName、DBIP
'サイトに合わせて次の情報を変更してください
DBUserID="sa" 'データベースのログイン名
DBPassWord="" 'データベースのパスワード
DBName="dbname" 'データベース名
DBIP="local" 'データベースのアドレス (ローカル データベースの場合): (local)
Set Conn=Server.CreateObject("Adodb.Connection")
StrConn = "PROVIDER=SQLOLEDB.1;データ ソース="&DBIP&";初期カタログ="&DBName&";永続セキュリティ情報=True;ユーザー ID="&DBUserID&";パスワード="&DBPassWord&";接続タイムアウト=30"
Conn.Open StrConn
'************************************************ * ****
それ以外
'************************データベース設定エラー*****************
Response.「データベース設定エラーです。管理者に連絡してください！」と書き込みます。
応答.終了
終了の場合
'Response.WriteStrConn