<% dim s,t,i s="zhong" redim t(len(s)-1) for i=1 to len(s) t(i-1)=mid(s,i,1) next '测试结果 for i=0 to ubound(t) response.write t(i) & "<br>" next %>
打印结果: z h o n g