asp下根据标题生成关键字的代码

1. <script language="vbs">  
2. 'Function CreateKeyWords(KeyWords)  
3. '关键字生成系统  
4.     Dim i,L,TempStr  
5.     KeyWords_Temp=reReplace(KeyWords, "[\x00-\xff]|\n| |　|，|。|、|！|？|：|"|"|［|］|—|—|（|）|…", "")  
6.     L=Len(KeyWords_Temp)  
7.     For i=1 To L-1  
8.         TempStr=TempStr & "," & Mid(KeyWords_Temp,i,2)  
9.     Next  
10.     CreateKeyWords=KeyWords & TempStr  
11. End Function  
12.  
13.  
14. Function reReplace(Str, restrS, restrD)  
15. '正则表达式写的替换  
16. 'Made by www.yongfa365.com  
17.     Set re = New RegExp  
18.     re.IgnoreCase = True  
19.     re.Global = True  
20.     re.Pattern = restrS  
21.     reReplace = re.Replace(Str, restrD)  
22. End Function  
23.  
24. MsgBox CreateKeyWords("hello 你好啊， 你知道 我是谁不？  ，呵呵，我是柳永法() yongfa365 知道不")  
25. </script>