首页 相关文章 asp下正则实现URL自动链接的一个函数

asp下正则实现URL自动链接的一个函数

代码如下:


Function AutoLinkURLs(strString)
Dim match, matches, offset, url, email, link, relnkAutoLinkURL
relnkAutoLinkURL = "a href=""[[%URL%]]""[[%URLText%]]/a"
If Not IsObject(regExp) Then Set regExp = New RegExp
regExp.Global = True
regExp.IgnoreCase = True
'Look for URLs
regExp.Pattern = "(((ht|f)tps?://)|(www\.))([\w-]+\.)+[\w-:]+(/[\w- ./?%#;&=]*)?"
Set matches = regExp.Execute(strString)
offset = 0
For Each match in matches
url = match
If Left(url, 4) = "ww...[ 查看全文 ]

2016-02-19 标签:

asp下正则实现URL自动链接的一个函数的相关文章

手机页面
收藏网站 回到头部