ASP与数据库链接的几种方法

一、MS Access 数据库
1、OLE[推荐]
Dim Conn,ConnStr,DBPath
DBPath = "DataBase.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(DBPath)
'当数据库设置过密码时用以下语句
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& Server.MapPath(DBPath) &";
Jet OLEDB:Database Password=Password"
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If Err Then
    Err.Clear
    Conn.Close
    Set Conn = Nothing
    Response.Write("数据库链接出错，请检查链接字符串。")
    Response.End()
Else
    Response.Write("数据库链接成功！")
End If

2、ODBC
Dim Conn,ConnStr,DBPath
DBPath = "DataBase.mdb"
ConnStr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath(DBPath) &"" 
'当数据库设置过密码时用以下语句，以下PWD也可写成Password
'ConnStr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath(DBPath) &";
PWD=Password" 
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If Err Then
    Err.Clear
    Conn.Close
    Set Conn = Nothing
    Response.Write("数据库链接出错，请检查链接字符串。")
    Response.End()
Else
    Response.Write("数据库链接成功！")
End If

3、DSN
Dim Conn
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=YourDSNName"
'当数据库设置过密码时可用以下语句，或在DSN中设置亦可
'Conn.Open "DSN=YourDSNName","UserName","Password"
'经测试UserName可以随便填[Win2KP+IIS5]测试通过
If Err Then
    Err.Clear
    Conn.Close
    Set Conn = Nothing
    Response.Write("数据库链接出错，请检查链接字符串。")
    Response.End()
Else
    Response.Write("数据库链接成功！")
End If

二、MS SQL Server
1、OLE[推荐]
Dim Conn,ConnStr
ConnStr="Provider=SQLOLEDB;Server=(local);UID=Username;PWD=Password;DataBase=DB;"
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If Err Then
    Err.Clear
    Conn.Close
    Set Conn = Nothing
    Response.Write("数据库链接出错，请检查链接字符串。")
    Response.End()
Else
    Response.Write("数据库链接成功！")
End If

2、ODBC
Dim Conn,ConnStr
ConnStr="DRIVER={SQL Server};SERVER=(local);UID=Username;PWD=Password;DATABASE=DB"
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If Err Then
    Err.Clear
    Conn.Close
    Set Conn = Nothing
    Response.Write("数据库链接出错，请检查链接字符串。")
    Response.End()
Else
    Response.Write("数据库链接成功！")
End If

3、DSN
Dim Conn
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=YourDSNName;UID=Username;PWD=Password;DATABASE=DB"
If Err Then
    Err.Clear
    Conn.Close
    Set Conn = Nothing
    Response.Write("数据库链接出错，请检查链接字符串。")
    Response.End()
Else
    Response.Write("数据库链接成功！")
End If