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

尹曦沫狂

尹曦沫狂

2016-02-19 13:14

今天图老师小编给大家介绍下asp下正则实现URL自动链接的一个函数,平时喜欢asp下正则实现URL自动链接的一个函数的朋友赶紧收藏起来吧!记得点赞哦~

代码如下:

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/webkaifa/)
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) = "www." Then url = "http://" & url
link = Replace(Replace(relnkAutoLinkURL, "[[%URLText%]]", match), "[[%URL%]]", url)
strString = Mid(strString, 1, match.FirstIndex + offset) & link & Mid(strString, match.FirstIndex + 1 + match.Length + offset, Len(strString))
offset = offset + Len(link) - Len(match)
Next
'Look for emails
regExp.Pattern = "[A-Za-z0-9_+-.']+@w+([-.]w+)*.w+([-.]w+)*"
Set matches = regExp.Execute(strString)
offset = 0
For Each match in matches
email = match
link = Replace(Replace(relnkAutoLinkURL, "[[%URLText%]]", match), "[[%URL%]]", "mailto:" & email)
strString = Mid(strString, 1, match.FirstIndex + offset) & link & Mid(strString, match.FirstIndex + 1 + match.Length + offset, Len(strString))
offset = offset + Len(link) - Len(match)
Next
AutoLinkURLs = strString
End Function

展开更多 50%)
分享

猜你喜欢

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

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

用Javascript正则实现url链接的解析类

Web开发
用Javascript正则实现url链接的解析类

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

一个高ai的分页函数和一个url函数

PHP
一个高ai的分页函数和一个url函数

asp中的一个奇怪的函数

ASP
asp中的一个奇怪的函数

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

用JS实现的一个include函数

Web开发
用JS实现的一个include函数

一个asp函数 解决SQL Injection漏洞

Web开发
一个asp函数 解决SQL Injection漏洞

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

JS与Java在网页设计中的区别

JS与Java在网页设计中的区别

QQ空间“本相册最近访客”功能

QQ空间“本相册最近访客”功能
下拉加载更多内容 ↓