1.檢測右側是否存在間隔字符串，如果存在則需要將數組最大下標值減一
2.如果不存在則直接返回原數組最大下標

 程序代碼
<%
Dim TempStr,TempArr,TempItem
TempStr="第一項1|第二項1|第三項|"
TempArr=Split(TempStr,"|")
Response.Write TempStr&"<br />"
For TempItem=0 To UBoundStrToArr(TempStr,UBound(TempArr),"|")
     Response.Write TempArr(TempItem)&"<br />"
Next
'*************************
'函數:UBoundStrToArr
'作用:檢測原字符串轉換為數組的最大下標值
'參數:cCheckStr(需要檢測的字符串)
'       cUBoundArr(生成數組的最大下標值)
'       cSpaceStr(間隔字符串)
'返回:數組的最大下標值
'************************
Public Function UBoundStrToArr(ByVal cCheckStr,ByVal cUBoundArr,ByVal cSpaceStr)
    If Instr(cCheckStr,cSpaceStr)=0 Then
         UBoundStrToArr=cUBoundArr
        Exit Function
    End If
    Dim TempSpaceStr,UBoundValue
     TempSpaceStr=Mid(cCheckStr,Len(cCheckStr)-Len(cSpaceStr)+1) '獲取字符串右側間隔字符
    If TempSpaceStr=cSpaceStr Then '如果字符串最右側存在間隔字符,則下標值需要-1
         UBoundValue=cUBoundArr-1
    Else
         UBoundValue=cUBoundArr
    End If
     UBoundStrToArr=UBoundValue
End Function
%>