dim CN as new ADODB.Connection
CN.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;Password=;Data Source=192.168.12.1;Initial Catalog=数据库名"
CN.CursorLocation = adUseClient
CN.CommandTimeout = 300
CN.Open
CN.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;Password=;Data Source=192.168.12.1;Initial Catalog=数据库名"
CN.CursorLocation = adUseClient
CN.CommandTimeout = 300
CN.Open
set cn =server.createobject("adodb.connection")
cn.open cnstr
set rec=server.createobject("adodb.recordset")
密码是必须的。