内容显示页
 
类别:ASP+VBS | 浏览(277) | 2007-7-7 10:32:48
'关键字加链接,要处理的字符,关键字,要添加的链接地址
'名称:关键字加链接函数ADDURL
'作者:柳永法
'网址:http://www.yongfa365.com/item/Keywords-ADD-URL-yongfa365.html
'日期:2007-7-7
'调用方法:ADDURL("要处理的字符串","关键字","要添加的链接地址")
'关键字规则:以关键字开头,以关键字结尾,各关键字之间以"|"隔开

Function ADDURL(Str, Keywords, URL)
    Set regEx = New RegExp
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.Pattern = "(" & Keywords & ")"
    ADDURL = regEx.Replace(Str, "<a href="""&URL&"""  id=""cntKeywords"">$1</a>")
    Set regEx = Nothing
End Function

Keywords = "柳永法|柳|永|法|永法|yongfa365"
Str = "大家好,我是柳永法,柳是柳宗元的柳,永是永远的永,法是法律的法,永法是永远有办法的意思,我的blog名称是:柳永法(yongfa365)'blog,现在这个是测试关键字加链接的例子."
MsgBox(ADDURL(Str, Keywords, "http://www.yongfa365.com/"))



可修改代码后再运行


引用本页地址:http://www.yongfa365.com/item/Keywords-ADD-URL-yongfa365.html
 
 
相关链接
 
网友评论:
姓名: 记住我
网址:
邮箱:
内容:
验证码:  验证码图片 看不清? 换张图试试
 
     
 
 
文章分类
 
 
专题(3)
 
.Net + C#(41)
 
ASP+VBS(153)
 
 
 
Linux(10)
 
 
 
web 2.0(24)
 
 
 
 
 
心程(59)
 
生活(80)
 
 
     

Power by :柳永法(yongfa365)'Blog | Model by :hibaidu | CSS by:众网友 | 京ICP备07011491号  QQ:64049027  E-mail:64049027qq.com

本空间赞助商:北京中科兴联信息技术有限公司