- <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>
asp下根据标题生成关键字的代码
2019-09-24 10:33asp代码网 ASP教程
实现的功能是:标题+标题里除去非中文及中文标点外的字符的、相邻两个字符的集合 传说中这是采集文章处理keywords的最佳方式,呵呵,做了一个,用下试试
延伸 · 阅读
- 2022-03-10Java关键字之instanceof详解
- 2022-03-09详解C++中inline关键字的作用
- 2022-03-07教你轻松写好网站文章标题的三个方法
- 2022-03-03易语言更改窗口标题的方法
- 2022-02-28Android中BroadcastReceiver实现短信关键字自动回复功
- 2022-02-21WPS文字中如何使用编号及小标题以方便他人阅读
- ASP教程
asp 标记字符串中指定字符变色不区分大小写
今天遇到这种问题,单纯的使用replace函数不行,他会改变原有的字符串的大小写,在网上找到相关的代码,自己备份下...
- ASP教程
asp之基于adodb.stream的文件操作类
asp之基于adodb.stream的文件操作类...
- ASP教程
ASP常用函数:getpy()
ASP常用函数:getpy()...
- ASP教程
asp Access数据备份,还原,压缩类代码
asp Access数据备份,还原,压缩类实现代码,大家可以参考下。...
- ASP教程
asp+javascript实现404页的处理转换
asp+javascript实现404页的处理转换...
- ASP教程
asp 采集实战代码
最近实在是太流行采集了,本人是不喜欢采集的,但对采集的原理我却很有兴趣进行研究,拿到了网上采集常用函数,对其进行了一番研究,并实战,结果...
- ASP教程
JScript中遍历Request表单参数集合的方法
这篇文章主要介绍了JScript中遍历Request表单参数集合的方法,本文以遍历Request.QueryString集合为例给出了实现代码,需要的朋友可以参考下...
- ASP教程
ASP.NET 数据源
数据源 一个 data sourse 控件与数据绑定的控件相互作用,并隐藏了复杂的数据的联编过程。这些是提供数据给 data bound 控件的工具,并且支持如插入,删除...