转载自：http://218.66.59.245/blog/blogview.asp?logID=15 一、MS Access 数据库1、OLE[推荐]Dim Conn,ConnStr,DBPathDBPath = "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 NextSet Conn = Server.CreateObject("ADODB.Connection")Conn.Open ConnStrIf Err Then    Err.Clear    Conn.Close    Set Conn = Nothing    Response.Write("数据库链接出错，请检查链接字符串。")    Response.End()Else    Response.Write("数据库链接成功！")End If2、ODBCDim Conn,ConnStr,DBPathDBPath = "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 NextSet Conn = Server.CreateObject("ADODB.Connection")Conn.Open ConnStrIf Err Then    Err.Clear    Conn.Close    Set Conn = Nothing    Response.Write("数据库链接出错，请检查链接字符串。")    Response.End()Else    Response.Write("数据库链接成功！")End If3、DSNDim ConnOn Error Resume NextSet 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 Server1、OLE[推荐]Dim Conn,ConnStrConnStr="Provider=SQLOLEDB;Server=(local);UID=Username;PWD=Password;DataBase=DB;"On Error Resume NextSet Conn = Server.CreateObject("ADODB.Connection")Conn.Open ConnStrIf Err Then    Err.Clear    Conn.Close    Set Conn = Nothing    Response.Write("数据库链接出错，请检查链接字符串。")    Response.End()Else    Response.Write("数据库链接成功！")End If2、ODBCDim Conn,ConnStrConnStr="DRIVER={SQL Server};SERVER=(local);UID=Username;PWD=Password;DATABASE=DB"On Error Resume NextSet Conn = Server.CreateObject("ADODB.Connection")Conn.Open ConnStrIf Err Then    Err.Clear    Conn.Close    Set Conn = Nothing    Response.Write("数据库链接出错，请检查链接字符串。")    Response.End()Else    Response.Write("数据库链接成功！")End If3、DSNDim ConnOn Error Resume NextSet 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

评论