<%
' 数据库连接字符串
Dim connString
connString = "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;User ID=your_username;Password=your_password;"
' 创建连接和记录集对象
Dim conn, rs
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
' 打开数据库连接
conn.Open connString
' 执行查询
rs.Open "SELECT * FROM your_table", conn
' 定义空数组
Dim records()
Dim index
index = 0
' 动态填充数组
If Not rs.EOF Then
' 计算记录数
ReDim records(rs.RecordCount - 1) ' 初始化数组大小
Do While Not rs.EOF
' 将每条记录放入数组中
records(index) = rs("Field1") & " - " & rs("Field2") ' 可以根据需要选择字段
index = index + 1
rs.MoveNext
Loop
End If
' 显示数组内容
For i = LBound(records) To UBound(records)
Response.Write "Record " & (i + 1) & ": " & records(i) & "<br>"
Next
' 或者使用FOR语句循环显示
For j = 0 To UBound(records)
Response.Write(records(j) & "<br/>")
Next
' 关闭记录集和连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
连接字符串: 根据你的数据库配置替换 your_server、your_database、your_username 和 your_password。
创建对象: 使用 Server.CreateObject 创建连接 (ADODB.Connection) 和记录集 (ADODB.Recordset) 对象。
打开连接: 使用 conn.Open 方法打开数据库连接。
执行查询: 使用 rs.Open 执行 SQL 查询并将结果存储在记录集中。
定义空数组: 使用 Dim records() 定义一个动态数组。
初始化数组大小: 使用 ReDim 根据记录集的记录数初始化数组大小。
填充数组: 在 Do While Not rs.EOF 循环中，将每条记录的字段值放入数组中，并更新索引。
显示数组内容: 使用 For 循环遍历数组并输出记录。
关闭对象: 最后，关闭记录集和连接，释放资源。
确保已在服务器上安装并启用ADO组件。
根据需要选择要放入数组的字段。
对于生产环境，建议使用异常处理来处理潜在的错误。