asp批量查询数据库

<%@ Language=VBScript %>
<%
    Dim conn, rs, sql, userIds, i

    ' 连接数据库
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;Integrated Security=SSPI;"

    ' 定义要查询的用户ID数组
    userIds = Array(1, 2, 3, 4, 5)

    ' 构建SQL查询语句
    sql = "SELECT * FROM Users WHERE UserID IN ("
    For i = 0 To UBound(userIds) - 1
        sql = sql & userIds(i) & ","
    Next
    sql = Left(sql, Len(sql) - 1) & ")"

    ' 执行查询
    Set rs = conn.Execute(sql)

    ' 输出查询结果
    Do While Not rs.EOF
        Response.Write "UserID: " & rs("UserID") & ", UserName: " & rs("UserName") & "<br>"
        rs.MoveNext
    Loop

    ' 关闭连接
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
%>