ASP如何得到字符串的每一位字符

如：str="123456"
a=str的第一位就是1
b=str的第二位就是2
c=str的第三位就是3
……
 
解决的方法
dim ak()
for i=1 to len(XXX)
 ak(i)=mid(XXX,i,1)
next