asp下根据标题生成关键字的代码 日期：2020-05-13 栏目：程序人生 浏览：次 <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需刷新才能执行] 上一篇：Asp 操作Access数据库时出现死锁.ldb的解决方法 下一篇：asp HTTP_X_FORWARDED_FOR和REMOTE_ADDR 内容版权声明：除非注明，否则皆为本站原创文章。 转载注明出处：http://www.heiqu.com/2788.html 相关推荐 2021-04-091vue.js在标签属性中插入变量参数的方法 2021-04-092cli 打包时抽离项目相关配置文件详解 2021-04-093解决iview打包时UglifyJs报错的问题 2021-04-094Ubuntu 编译运行C笔记 2021-04-095Android 多线程断点续传下载器
