1. <%  
2. a="四川是中國的一個省|我們美麗中國的張家界！"  
3. b="中國,我們,張家界,四川,美國,蘋果"  
4. b=split(b,",")  
5. a=split(a,"|")  
6. for k=0 to ubound(a)  
7. s=""  
8. n=""  
9.  for i=0 to ubound(b)  
10.   if instr(a(k),b(i))>0 then  
11.   s=s & instr(a(k),b(i)) & "," &instr(a(k),b(i))+len(b(i)) & ","  
12.   end if  
13.  next  
14.  s=left(s,len(s)-1)  
15.  if left(s,len(s)-1)<>len(a(k)) then s=s&","&len(a(k))+1  
16.  s=sort(split(s,","))  
17.  for i=0 to ubound(s)-1  
18.  n=n&mid(a(k),s(i),s(i+1)-s(i))& "|"  
19.  next  
20.  
21.  response.write n & "<br>"  
22. next  
23.  
24.  
25. function sort(ary)  
26. ck=true  
27. do Until ck = false   
28.  ck=false  
29.  For f = 0 to UBound(ary) -1  
30.   if clng(ary(f))>clng(ary(f+1)) then  
31.    v1=clng(ary(f))  
32.    v2=clng(ary(f+1))  
33.    ary(f)=v2  
34.    ary(f+1)=v1  
35.    ck=true  
36.   end if  
37.  next  
38. loop  
39. sort=ary  
40. end function  
41. %>  

運行結果

四川|是|中國|的一個省|

我們|美麗|中國|的|張家界|!|