在 ASP (Active Server Pages) 中使用 `Server.CreateObject("Scripting.Dictionary")` 来处理二维数组（或更准确地说，数组中的数组）时，可以通过以下步骤来实现：
1. 创建一个二维数组
首先，你需要创建一个二维数组。在 VBScript 中，可以使用嵌套的数组来表示二维数组。
Dim arr(2, 2) arr(0, 0) = "A1" arr(0, 1) = "B1" arr(0, 2) = "C1" arr(1, 0) = "A2" arr(1, 1) = "B2" arr(1, 2) = "C2" arr(2, 0) = "A3" arr(2, 1) = "B3" arr(2, 2) = "C3"
2. 创建一个 `Scripting.Dictionary` 对象
接下来，创建一个 `Scripting.Dictionary` 对象来存储和操作这些数据。
Dim dict
Set dict = Server.CreateObject("Scripting.Dictionary")
3. 将二维数组的数据存入字典
你可以将二维数组的数据逐行存入字典中。每一行可以作为一个键值对，其中键可以是行索引，值是一个包含该行所有元素的一维数组。
Dim i, j For i = 0 To UBound(arr, 1) Dim rowArray() ReDim rowArray(UBound(arr, 2)) For j = 0 To UBound(arr, 2) rowArray(j) = arr(i, j) Next dict.Add CStr(i), rowArray Next
4. 从字典中读取数据
你可以通过字典的键来访问存储的行数据。
' 读取第1行的数据
Dim row1
row1 = dict("0")
' 输出第1行的数据
For Each item In row1
Response.Write item & "<br>"
Next
完整示例代码
<%
Dim arr(2, 2)
arr(0, 0) = "A1"
arr(0, 1) = "B1"
arr(0, 2) = "C1"
arr(1, 0) = "A2"
arr(1, 1) = "B2"
arr(1, 2) = "C2"
arr(2, 0) = "A3"
arr(2, 1) = "B3"
arr(2, 2) = "C3"
Dim dict
Set dict = Server.CreateObject("Scripting.Dictionary")
Dim i, j
For i = 0 To UBound(arr, 1)
Dim rowArray()
ReDim rowArray(UBound(arr, 2))
For j = 0 To UBound(arr, 2)
rowArray(j) = arr(i, j)
Next
dict.Add CStr(i), rowArray
Next
' 读取第1行的数据
Dim row1
row1 = dict("0")
' 输出第1行的数据
Response.Write "Row 1:<br>"
For Each item In row1
Response.Write item & "<br>"
Next
' 读取第2行的数据
Dim row2
row2 = dict("1")
' 输出第2行的数据
Response.Write "Row 2:<br>"
For Each item In row2
Response.Write item & "<br>"
Next
' 读取第3行的数据
Dim row3
row3 = dict("2")
' 输出第3行的数据
Response.Write "Row 3:<br>"
For Each item In row3
Response.Write item & "<br>"
Next
%>
这个示例代码展示了如何将二维数组的数据存储到 `Scripting.Dictionary` 中，并从字典中读取和输出数据。希望这对你有帮助！