<% Dim strstr = "apple,orange,banana"Dim arr arr = Split(str, ",") Dim i For i = 0 To UBound(arr) Response.Write(arr(i) & " ") Next %>
输出结果将为：
appleorange banana
