当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下根据标题生成关键字的代码

技术文章搜索

关键字

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

---

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-13   浏览: 153 ::
收藏到网摘: n/a

透彻掌握ASP分页技术很详细的分析 asp取日期1月25日为0125的最简单方法

实现的功能是：标题+标题里除去非中文及中文标点外的字符的、相邻两个字符的集合 传说中这是采集文章处理keywords的最佳方式，呵呵，做了一个，用下试试

点击运行可以看到效果:<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) '<a href="http://www.ruanchen.com/" style="color: #000">正则</a>表达式写的替换 '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 全选 提示:你可先修改部分代码,再按运行]

透彻掌握ASP分页技术很详细的分析 asp取日期1月25日为0125的最简单方法

评论 (0) All

登陆 还没注册？

设为首页 | 加入收藏 | 关于我们 | 联系我们 | 广告服务 | 网站地图 | 友情链接 | 在线帮助 | 免责声明 Sitemap W3school

如果您觉得本站不错，别忘了告诉您的同学和同事哟 ^_^

欢迎各网站转载我们的原创，转载时请注明出处。

All copyright is reserved by 软晨网（RuanChen.com）