asp 的中文分词

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. %>  

运行结果

四川|是|中国|的一个省|

我们|美丽|中国|的|张家界|!|