ACCESS數據庫接接代碼：

dim db,Conn,ConnStr

db="您的ACCESS數據庫路徑"
set conn=Server.CreateObject("ADODB.Connection")
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
conn.open ConnStr

MS SQL Server數據庫接接代碼：

dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,Conn,ConnStr

SqlDatabaseName="SQL數據庫名稱"
SqlPassword="SQL數據庫登密碼"
SqlUsername="SQL數據庫登陸用戶名"
SqlLocalName="SQL服務器IP地址"

set conn=Server.CreateObject("ADODB.Connection")
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
conn.open ConnStr

或者ConnStr也可以用：ConnStr = "driver={SQL SERVER};database=" & SqlDatabaseName & "; uid=" & SqlUsername & "; pwd=" & SqlPassword & "; server=" & SqlLocalName & ""