数组范围错误-经典ASP

Question

我是Classic ASP的初学者。 需要拆分一个字符串，该字符串由用逗号分隔的许多电子邮件组成，并将结果插入（使用电子邮件通过电子邮件）在表格中，该代码将在稍后使用。 每条记录应具有一个电子邮件地址。 问题是我陷入了数组范围错误。 消息是：

Microsoft VBScript运行时错误'800a0009'

下标超出范围：“ WrdArray”

/NameOfFile.asp，第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()将始终返回固定数量的结果，因此除非您打算稍后添加更多项，否则无需使用动态数组。