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

代码如下:Function AutoLinkURLs(strString)       Dim match, matches, offset, url, email, link, relnkAutoLinkURL       relnkAutoLinkURL = “<a>[[%URLText%]]</a>”       If Not IsObject(regExp) Then Set regExp = New RegExp       regExp.Global = True       regExp.IgnoreCase = True       ‘Lo