asp标题关键字 asp下根据标题生成关键字的代码 时间:2021-03-17 人气:0 想了解asp下根据标题生成关键字的代码的相关内容吗,在本文为您仔细讲解asp标题关键字的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:asp,标题,关键字,下面大家一起来学习吧。 <script language="vbs"> '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 知道不") </script> [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] 加载全部内容