dim strConn
dim conn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.mappath("data/isp.mdb")+";Persist Security Info=False"
set conn = Server.CreateObject("ADODB.Connection")

dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服務器名稱或IP地址;UID=sa;PWD=數據庫密碼;DATABASE=數據庫名稱

DataServer = "jb51" '數據庫服務器IP
DataUser = "jb51" '訪問數據庫用戶名
DataBaseName = "jb51" '數據庫名稱
DataBasePsw = "www.CuoXIn.com" '訪問數據庫密碼
Set conn = Server.CreateObject("ADODB.Connection")
ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databaseconn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "數據庫連接出錯，請檢查Conn.asp文件中的數據庫參數設置。":Response.End