set conn=server.createobject("adodb.connection")
connstr="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=bai;Password=bai;Data Source=dates"
conn.Open connstr
strSQLServerName = "(local)" '服务器名称或地址
strSQLDBUserName = "sa" '数据库帐号
strSQLDBPassword = "baijunyi" '数据库密码
strSQLDBName = "main" '数据库名称
-----------------------------------------------------------------------------------------------
SQL Server OLE Driver
Set conn = Server.CreateObject("ADODB.Connection")
strCon = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
conn.Open strCon