set cnn = server.createobject("ADODB.Connection")
　cnn.open "PROVIDER=SQLOLEDB;DATA SOURCE=WWW-BD1E83689B5\TEST;UID=sa;PWD=sa;DATABASE=test "

<%
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString="Driver={SQL Server};Server=server;Database=pubs;UID=sa;PWD=285214"
%>

试试上面的代码