asp如何打开两个数据库

<%@ Language=VBScript %>
<%
    ' 连接第一个数据库
    Dim conn1
    Set conn1 = Server.CreateObject("ADODB.Connection")
    conn1.Open "Provider=SQLOLEDB;Data Source=Server1;Initial Catalog=DB1;Integrated Security=SSPI;"

    ' 连接第二个数据库
    Dim conn2
    Set conn2 = Server.CreateObject("ADODB.Connection")
    conn2.Open "Provider=SQLOLEDB;Data Source=Server2;Initial Catalog=DB2;Integrated Security=SSPI;"

    ' 执行一些数据库操作
    Dim rs1, rs2
    Set rs1 = conn1.Execute("SELECT * FROM Table1")
    Set rs2 = conn2.Execute("SELECT * FROM Table2")

    ' 处理结果集
    ' ...

    ' 关闭连接
    rs1.Close
    rs2.Close
    conn1.Close
    conn2.Close

    Set rs1 = Nothing
    Set rs2 = Nothing
    Set conn1 = Nothing
    Set conn2 = Nothing
%>