<%
Dim i,arr(10,10),arr1,arr2,str1
str1="1,a1,b1,c1,d1|2,a2,b2,c2,d2|3,a3,b3,c3,d3"
arr1=split(str1,"|")
for i = 0 to Ubound(arr1)
arr2=split(arr1(i),",")
'装载
for j=1 to Ubound(arr2)
arr(arr2(0),j-1)=arr2(j)
Next
Next
for i= 1 to 3
for j = 0 to 3
Response.write("arr("&i&","&j&")="&arr(i,j)&"<br>")
next
next
%>