<%
a="日本是中國的一個省|我們美麗中國的張家界！"
b="中國,我們,張家界,日本,美國,蘋果"
b=split(b,",")
a=split(a,"|")
fork=0toubound(a)
s=""
n=""
fori=0toubound(b)
ifinstr(a(k),b(i))>0then
s=s&instr(a(k),b(i))&","&instr(a(k),b(i))+len(b(i))&","
endif
next
s=left(s,len(s)-1)
ifleft(s,len(s)-1)<>len(a(k))thens=s&","&len(a(k))+1
s=sort(split(s,","))
fori=0toubound(s)-1
n=n&mid(a(k),s(i),s(i+1)-s(i))&"|"
next
response.writen&"<br>"
next
functionsort(ary)
ck=true
doUntilck=false
ck=false
Forf=0toUBound(ary)-1
ifclng(ary(f))>clng(ary(f+1))then
v1=clng(ary(f))
v2=clng(ary(f+1))
ary(f)=v2
ary(f+1)=v1
ck=true
endif
next
loop
sort=ary
endfunction
%>
運行結果
日本|是|中國|的一個省|
我們|美麗|中國|的|張家界|！ |