<%
dim x,y
x="[a]有效部分1[/a]aj[a]有效部分2[/a]lk"
for i=1 to ubound(split(x,"[a]"))
y=split(x,"[a]")(i)
y=split(y,"[/a]")(0)
response.write y & "<br>"
next
%>
我就是传说中江湖上失散多年的vbs教父!!
<SCRIPT LANGUAGE=vbs>
dim x,y
x="[a]有效部分1[/a]aj[a]有效部分2[/a]lk"
for i=1 to ubound(split(x,"[a]"))
y=split(x,"[a]")(i)
y=split(y,"[/a]")(0)
msgbox y
next