arrays - 数组范围错误 - 经典 ASP

Question

我是经典 ASP 的初学者。需要拆分一个由逗号分隔的许多电子邮件组成的字符串，并使用稍后生成的附加代码将结果插入(逐个电子邮件)到表格中。每条记录都应该有一个电子邮件地址。问题是我陷入了数组范围错误。消息是:

Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'WrdArray'

/NameOfFile.asp, line 3

任何提示将不胜感激。

Dim WrdArray()  
Dim txtToSplit 
WrdArray() = Split(txtToSplit,",")  
For i = LBound(WrdArray) To UBound(WrdArray)  
  strg = WrdArray(i)
  'CODE TO INSERT THE VALUE OF strg IN A RECORD OF THE TABLE
Next

Answer 1

这里不需要动态数组，只需要去掉()声明一个标准变量，在调用Split()时会变成变体数组。

Dim WrdArray
Dim txtToSplit 
WrdArray = Split(txtToSplit,",")  
For i = LBound(WrdArray) To UBound(WrdArray)  
  strg = WrdArray(i)
  'CODE TO INSERT THE VALUE OF strg IN A RECORD OF THE TABLE
Next

当您需要在运行时使用 ReDim 命令增加数组的大小时，将使用动态数组声明。在这种情况下，Split() 将始终返回固定数量的结果，因此无需使用动态数组，除非您计划稍后添加更多项目。