<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Driver={SQL Server};Server=数据库IP地址;UID=数据库用户名;PWD=数据库密码;Database=haoniu;"
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If
%>
<%
dim conn
set conn=server.createobject("ADODB.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=数据库所在机器名;UID=sql数据库用户名;PWD=sql数据库密码;DATABASE=sql数据库名"
%>