<%
dim charend
charend =instr(charall,",")'起始位置
dim charall'全部字符
charall="进行,开始,最哈偶,才来的"
do while charend <> 0
charend =instr(charall,",")
response.Write(mid(charall,1,charend-1))
charall=mid(charall,charend+1)
response.Write(charall)
loop
response.Write("over")
%>