如何连接sql数据库存

[geneliu]

我做网站使用的是ACCESS数据库存，如果我想使用SQL数据库，请大家告诉我如何连接。

[cshadow]

<%
dim conn
dim connstr

on error resume next
connstr="provider=sqloledb;driver={SQL SERVER};server=××;uid=××;pwd=×××;database=×××;"

set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>

[fangzhou]

<%
dim conn
set conn=server.createobject("ADODB.connection")
conn.open "PROVIDER=SQLOLEDB;DATA
SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>

[LIU_z]

定义一下，然后每次用时加载它就行！

Function GetSQLconnection(Db)
Dim conn

On Error Resume Next
Set GetSQLConnection = Nothing

'ODBC 连接
Set conn = GetSQLServerConnection("计算机名","sa","密码",db)
If Err.Number <> 0 Then Exit Function

Set GetSQLConnection = conn

End Function