在 ASP (Active Server Pages) 中，动态生成二维数组可以通过多种方式实现。以下是几种常见的方法：
方法一：使用嵌套的 `ReDim` 语句
1. 声明一个空的二维数组**
2. 动态调整数组的大小**
3. 填充数组**
<%
' 声明一个空的二维数组
Dim myArray()
ReDim myArray(0, 0)
' 动态调整数组的大小
Dim numRows, numCols
numRows = 3
numCols = 4
ReDim Preserve myArray(numRows - 1, numCols - 1)
' 填充数组
Dim i, j
For i = 0 To numRows - 1
For j = 0 To numCols - 1
myArray(i, j) = "Value(" & i & "," & j & ")"
Next
Next
' 输出数组内容
For i = 0 To numRows - 1
For j = 0 To numCols - 1
Response.Write "myArray(" & i & ", " & j & ") = " & myArray(i, j) & "<br>"
Next
Next
%>
方法二：使用 `Scripting.Dictionary` 动态生成二维数组
1. 创建一个 `Scripting.Dictionary` 对象
2. 动态添加行和列
<%
' 创建一个 Scripting.Dictionary 对象
Dim dict
Set dict = Server.CreateObject("Scripting.Dictionary")
' 动态添加行和列
Dim numRows, numCols
numRows = 3
numCols = 4
Dim i, j
For i = 0 To numRows - 1
Dim rowArray()
ReDim rowArray(numCols - 1)
For j = 0 To numCols - 1
rowArray(j) = "Value(" & i & "," & j & ")"
Next
dict.Add CStr(i), rowArray
Next
' 输出字典内容
For i = 0 To numRows - 1
Dim row
row = dict(CStr(i))
For j = 0 To numCols - 1
Response.Write "dict(" & i & ", " & j & ") = " & row(j) & "<br>"
Next
Next
' 清理
Set dict = Nothing
%>
方法三：使用嵌套的 `Array` 函数
1. 声明一个嵌套的数组**
2. 动态填充数组**
<%
' 声明一个嵌套的数组
Dim myArray()
ReDim myArray(0)
' 动态调整数组的大小
Dim numRows, numCols
numRows = 3
numCols = 4
ReDim myArray(numRows - 1)
' 填充数组
Dim i, j
For i = 0 To numRows - 1
Dim rowArray()
ReDim rowArray(numCols - 1)
For j = 0 To numCols - 1
rowArray(j) = "Value(" & i & "," & j & ")"
Next
myArray(i) = rowArray
Next
' 输出数组内容
For i = 0 To numRows - 1
Dim row
row = myArray(i)
For j = 0 To numCols - 1
Response.Write "myArray(" & i & ", " & j & ") = " & row(j) & "<br>"
Next
Next
%>