ASP 陣列拆法

'=== 陣列拆法 已知或固定的陣列數 =============================
TradeCode_1 = ""
TradeCode_2 = ""
TradeCode_3 = ""
if( InStr(rs("TradeCorpType"), "|") > 0 ) then 
arrTradeType = split( rs("TradeCorpType"), "|" )
For i = 0 To UBound(arrTradeType)
if( i = 0 ) then 
TradeCode_1 = arrTradeType(0) 
TradeCode_1_Cname = fetchCorpTypeName (TradeCode_1)
elseif( i = 1 ) then 
TradeCode_2 = arrTradeType(1)
TradeCode_2_Cname = fetchCorpTypeName (TradeCode_2)
elseif( i = 2 ) then 
TradeCode_3 = arrTradeType(2) 
TradeCode_3_Cname = fetchCorpTypeName (TradeCode_3)
end if
Next
end if 

'=== 陣列拆法 未知或動態的陣列數 =============================
if( InStr(rs("TradeCorpType"), "|") > 0 ) then 
arrTradeType = split( rs("TradeCorpType"), "|" )
For i = 0 To UBound(arrTradeType)
TradeCode = arrTradeType(i) 
Next
end if