28,391
社区成员
发帖
与我相关
我的任务
分享
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,ConnStr,Conn
SqlDatabaseName = "xxxx" 'SQL数据库名
SqlUsername = "xxxxx" 'SQL数据库用户名
SqlPassword = "xxxxx" 'SQL数据库用户密码
SqlLocalName = "127.0.0.1" 'SQL主机IP地址(本地可用“127.0.0.1”或“(local)”,非本机请用真实IP)
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
'ConnStr = "Driver={SQL Server};server=127.0.0.1;uid=sa;pwd=82257649;database=xxx;"
'//On Error Resume Next
Set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.open ConnStr