'แก้ไขปัญหาเส้นทางฐานข้อมูล 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" 'ชื่อของไดเร็กทอรีรากที่ระบบตั้งอยู่ถ้า
เซสชัน("RootDir") = "" จากนั้น
เซสชัน("RootDir") = กลาง(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) & SiteFolder
จบถ้า
ตั้งค่า Conn = Server.CreateObject("Adodb.Connection")
StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & ""& DbFolderName & "Data.mdb" 'เชื่อมต่อกับฐานข้อมูล
Conn.เปิด StrConn
'************************************************ *
ElseIf(DBType=1) จากนั้น
'******************ฐานข้อมูลเซิร์ฟเวอร์ MSSQL******
หรี่ DBUserID, DBPassWord, DBName, DBIP
'แก้ไขข้อมูลต่อไปนี้เพื่อให้เหมาะกับเว็บไซต์ของคุณ
DBUserID="sa" 'ชื่อล็อกอินฐานข้อมูล
DBPassWord="" 'รหัสผ่านฐานข้อมูล
DBName="dbname" 'ชื่อฐานข้อมูล
DBIP="local" 'ที่อยู่ของฐานข้อมูล หากเป็นฐานข้อมูลภายในเครื่อง: (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&";การเชื่อมต่อหมดเวลา=30"
Conn.เปิด StrConn
'************************************************ * ****
อื่น
'************************ ข้อผิดพลาดในการตั้งค่าฐานข้อมูล******************
ตอบกลับเขียน "ข้อผิดพลาดในการตั้งค่าฐานข้อมูล โปรดติดต่อผู้ดูแลระบบ!"
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
'การตอบสนอง WriteStrConn