一个ASP中的数组

让我们看一下原始代码及其可能的问题：

1. 在使用 `split` 函数时，你没有指定分隔符之间的所有内容应该被分割。例如，当你使用 `split(str,"")` 时，它可能不会按你的预期工作。你可能需要使用正则表达式或其他方法来正确分割字符串。

2. 在循环中动态调整数组大小可能会导致问题。使用 `redim` 关键字时，需要谨慎处理数组的大小和维度。

3. 代码中的逻辑可能不是按照你的预期执行的。特别是，当你尝试访问 `myarry(i,j)` 时，如果 `myarry` 没有正确初始化或维度不匹配，可能会导致问题。

```vbscript

' 假设 str 是从数据库读取并转化为特定格式的字符串

str = "101211_13..." ' 你的字符串

' 使用更明确的分隔符来分割字符串

arrResult = Split(str, "")

ReDim myArray(UBound(arrResult)-1, ) ' 根据需要初始化二维数组

For i = 0 To UBound(arrResult)-1 ' 循环处理分割后的数组

arrTmp = Split(arrResult(i), "_") ' 使用 _ 作为分隔符进一步分割数据

For j = 0 To UBound(arrTmp)-1 ' 处理每个子数组的元素

myArray(i, j) = arrTmp(j) ' 将数据存入二维数组

response.Write myArray(i, j) & "
" ' 输出到界面

Next j

Next i

' 显示数组的第一列数据

For k = 0 To UBound(myArray, 1)-1 ' 注意这里也需要调整边界条件

response.Write myArray(k, 0) & "
" ' 输出第一列的数据到界面

Next k

```

关于你的问题，“怎么数组中的数据就没有了呢？”可能的原因包括：

数组初始化或维度管理不正确。

循环中的边界条件可能没有正确处理。特别是，当使用 `UBound` 函数时，需要考虑到数组的最后一个元素的索引。

可能存在逻辑错误或数据处理不当，导致数据丢失或错误地处理。

请注意，这个代码是基于你提供的片段和描述进行的推测。实际情况可能需要根据你的具体需求和数据库结构进行调整。