'连接ACCESS数据库
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ABC.mdb"

'连接MSSQL数据库
connStr = "Driver={SQL Server};Server=127.0.0.1;uid=sa;pwd=;database=ABC"


<%
On Error Resume Next
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ABC.mdb")

Set conn = Server.CreateObject("Adodb.Connection")
conn.Open connStr
conn.Close
Set conn = Nothing

If Err Then
   err.Clear
   Set conn = Nothing
   Response.Write("数据库连接出错。")
   Response.End
End If
%>