asp連接遠程mssql數據庫代碼

當遠程MSSQL數據庫更改了端口號，所以連接的代碼也要相應的改一下
<%
dim conn,connstr
set conn = server.createobject("adodb.connection")
connstr="Provider=sqloledb;Data Source=*.*.*.*,端口號;Network Library=DBMSSOCN;Initial Catalog=數據庫名;User ID=用戶名;PassWord=密碼;" 
conn.open connstr
%>