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

也想出现在这里？点击联系我~

1. <scriptlanguage="vbs">
2. 'FunctionCreateKeyWords(KeyWords)
3. '关键字生成系统
4. Dimi,L,TempStr
5. KeyWords_Temp=reReplace(KeyWords,"[\\x00-\\xff]|\\n||　|，|。|、|！|？|：|"|"|［|］|—|—|（|）|…","")
6. L=Len(KeyWords_Temp)
7. Fori=1ToL-1
8. TempStr=TempStr&","&Mid(KeyWords_Temp,i,2)
9. Next
10. CreateKeyWords=KeyWords&TempStr
11. EndFunction
14. FunctionreReplace(Str,restrS,restrD)
15. '正则表达式写的替换
16. 'Madebywww.yongfa365.com
17. Setre=NewRegExp
18. re.IgnoreCase=True
19. re.Global=True
20. re.Pattern=restrS
21. reReplace=re.Replace(Str,restrD)
22. EndFunction
24. MsgBoxCreateKeyWords("hello你好啊，你知道我是谁不？，呵呵，我是柳永法()yongfa365知道不")
25. </script>