用Dreamweaver做的ASP动态网页如何连接SQL数据库？
dim db
dim sqldatabasename,sqlpassword,sqlusername,sqlhostip
const bjxshopversion=2
const bjxshopdatabasetype="access"
db="access数据路径(根目录为基准)"
sqlusername = "bjxshop"
sqlpassword = "bjxshop888"
sqldatabasename = "bjxshop"
sqlhostip = "127.0.0.1"
on error resume next
dim connstr
dim conn,rs,errmsg,iserr
if bjxshopdatabasetype="sql" then
connstr = "provider = sqloledb; user id = " & sqlusername & "; password = " & sqlpassword & "; initial catalog = " & sqldatabasename & "; data source = " & sqlhostip & ";"
else
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(db)
end if
set conn = server.createobject("adodb.connection")
conn.open connstr
asp常用数据库连接字符串,access和sql server
不用解释了吧,这个应该明白吧
windows身份验证连接SQL2005字符串，使用Integrated Security=SSPI方法
'以下为建立connection对象连接数据库
Dim conn
Set conn=Server.CreateObject("ADODB.Connection")
sql="Provider=SQLoledb;data
source=WWW-2443D34E558\SQL2005;UID=;PWD=;Initial
Catalog=forum;Integrated Security=SSPI"
conn.Open sql
'以下为判断是否连接
If conn.state=2 Then
Response.Write("正在连接")
ElseIf conn.state=1 Then
Response.Write("连接已经打开")
Else
Response.Write("对不起，无法打开连接")
End If
SQL SERVER用户名身份验证连接方法,此例中SQL用户名为sa ,密码********
'以下为建立connection对象连接数据库
Dim conn
Set conn=Server.CreateObject("ADODB.Connection")
sql="Provider=SQLoledb;data
source=WWW-2443D34E558\SQL2005;UID=sa;PWD=********;Initial
Catalog=forum"
conn.Open sql
'以下为判断是否连接
If conn.state=2 Then
Response.Write("正在连接")
ElseIf conn.state=1 Then
Response.Write("连接已经打开")
Else
Response.Write("对不起，无法打开连接")
End If
以上两种方法也可以用以下方式
Dim
SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,ConnStr,Conn SqlDatabaseName = "forum" 'SQL数据库名
SqlUsername = "sa" 'SQL数据库用户名
SqlPassword = "**********" 'SQL数据库用户密码
SqlLocalName = "WWW-2443D34E558\SQL2005" 'SQL主机IP地址（服务器名）
ConnStr = " Password = "&SqlPassword&"; user id =" & SqlUsername&"; Initial Catalog ="&SqlDatabaseName&"; data source ="& SqlLocalName &";Provider = sqloledb;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If conn.state=2 Then
Response.Write("正在连接")
ElseIf conn.state=1 Then
Response.Write("连接已经打开")
Else
Response.Write("对不起，无法打开连接")
End If。