<%
dim aaa
aaa="a,b,c,d,e,f,g,h,i,g"
response.write aaa & "<br>"

dim bbb,ccc
bbb=split(aaa,",")
ccc=ubound(bbb)  '得到bbb数组的下限
response.write ccc & "<br>"

for i=0 to ccc
response.write bbb(i) & "<br>"
next

%>