【下载文档:  asp下根据标题生成关键字的代码.txt 】

---

asp下根据标题生成关键字的代码
'Function CreateKeyWords(KeyWords)
'关键字生成系统
Dim i,L,TempStr
KeyWords_Temp=reReplace(KeyWords, "[\x00-\xff]|\n| |　|，|。|、|！|？|：|"|"|［|］|―|―|（|）|…", "")
L=Len(KeyWords_Temp)
For i=1 To L-1
TempStr=TempStr & "," & Mid(KeyWords_Temp,i,2)
Next
CreateKeyWords=KeyWords & TempStr
End Function
Function reReplace(Str, restrS, restrD)
'正则表达式写的替换
'Made by www.yongfa365.com
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = restrS
reReplace = re.Replace(Str, restrD)
End Function
MsgBox CreateKeyWords("hello 你好啊， 你知道 我是谁不？ ，呵呵，我是柳永法() yongfa365 知道不")
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]