如何把字符串写到数组中去，在线等待。急！ (150分)

小弟用的是ASP
------------------
问题 :
如何把字符串 "one,two,three,four" 分离出来并写到对应的数组[one,two,three,four]中，js,vbs实现均可。 多谢！

var
S: String;
Strings: TStrings;
Strings := TStringList.Create;
try
ExtractStrings([','], [' '], PChar(S), Strings);
finally
Strings.Free;
end;

使用SPLIT函数

以下是VB以“x”作为分隔符：
Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x", -1, 1)
' MyArray(0) contains "VBScript".
' MyArray(1) contains "is".
' MyArray(2) contains "fun!".
Msg = MyArray(0) &
" " &
MyArray(1)
Msg = Msg &
" " &
MyArray(2)
MsgBox Msg
以下是JScript的用法，空格为分隔符：
function SplitDemo(){
var s, ss;
var s = "The rain in Spain falls mainly in the plain.";
// Split at each space character.
ss = s.split(" ");
return(ss);
}

var:array:数组;
line:您所指的字符串;
i:=0;
while not eoflndo
begin
p：＝pos(',',line)；
array:=copy(line,1,p-1)
delete(line,1,p);
inc(i);
end;
这里只提供思路，具体的语法自己去写，这个方法很有效。

要是单纯的用ASP的话就得用楼上的方法了,做成FUNCTION掉用就可以了,如果利用较高的
话可以用REDIM定义数主,要是能用VB和JSP就简单的多了,

多谢各位仁兄。