为什么这个经典的 ASP 循环将文本区域拆分成行不起作用？

Question

我正在尝试将一个文本区域放入一个数组中，在有新行的地方拆分它。我知道 docnos 实际上确实包含在文本区域内找到的字符。谁能告诉我为什么这不起作用？由于某种原因，它没有将任何内容放入数组中。

docnos = dbencodeStr(Request.form("docnos"))
Dim myArray
myArray = Split(docnos, vbCrLf)

for i = 0 to UBound(myArray,2)
        tempstr = trim(myArray(0,i))
        strSQL = "insert into DocumentNumbers (queryid, documentnumber) values('"&queryid&"','"&tempstr&"');"
        Response.write(strSQL)
        Response.write(tempstr)
        Set rs = TransactionQueriesConn.Execute(strSQL, ,adCMdTExt)
next

Answer 1

给定 myArray = Split(docnos, vbCrLf)，UBound(myArray,2) 将抛出 "Subscript out of range" 错误（无第二维）。删除 "On Error Resume Next".

假设myArray包含一维线数组，循环需要UBound(myArray)或UBound(myArray,1)。

如果 docnos 包含 "234234234<BR>567567<BR>345345345"，您需要在 <BR> 上拆分。证据：

>> s = "234234234<BR>567567<BR>345345345"
>> WScript.Echo Split(s, "<BR>")(1)
>>
567567

为什么这个经典的 ASP 循环将文本区域拆分成行不起作用？

Why does this classic ASP loop to split a textarea into lines not work?

vbscript

asp-classic