写的一个字符串折分函数，并将结果存于数组中

<%
dim id_array(20)
dim total_id
total_id=0
Sub InterceptString(txt,str)
txt=trim(txt)
x = len(txt)
y = 0
tempStr=""

if x >= 1 then
for ii = 1 to x
if mid(txt,ii,1)=str then
id_array(y)=tempStr
y=y+1
tempStr=""
else
tempStr=tempStr+mid(txt,ii,1)
end if
next
end if
id_array(y)=tempStr
total_id=y
End Sub
%>