一个兢兢业业、无微不至的保姆。你用自己的一只手——雪，把那青绿的麦苗爱抚地搂在怀里，给他以温暖和关怀。麦苗在那层层棉被下静静地期待，期待着来春生长发育。蛇、鳝、熊等等，有的钻进了深泥，有的藏入树洞，休息一冬，养精蓄锐，方有新春来到时的精神振奋。你用自己的另一只手――寒风，举刀挥剑，把那些残害农作物的害虫，砍光杀尽，把那些残害人类、牲畜的虎豹豺豺狼驱赶进深山老林。冬呵！你严守阵地，不容侵犯；你，是一位最负责任的对友火热温情，对敌残忍无情的好保姆。
FunctionAutoLinkURLs(strString)
Dimmatch,matches,offset,url,email,link,relnkAutoLinkURL
relnkAutoLinkURL="<arel="nofollow noopener noreferrer" href=""[[%URL%]]"">[[%URLText%]]</a>"
IfNotIsObject(regExp)ThenSetregExp=NewRegExp
regExp.Global=True
regExp.IgnoreCase=True
'LookforURLs
regExp.Pattern="(((ht|f)tps?://)|(www\.))([\w-]+\.)+[\w-:]+(/[\w-./?%#;&=]*)?"
Setmatches=regExp.Execute(strString)
offset=0
ForEachmatchinmatches
url=match
IfLeft(url,4)="www."Thenurl="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
'Lookforemails
regExp.Pattern="[A-Za-z0-9_+-.']+@\w+([-.]\w+)*\.\w+([-.]\w+)*"
Setmatches=regExp.Execute(strString)
offset=0
ForEachmatchinmatches
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
EndFunction
本文asp下正则如何实现URL自动链接的一个函数到此结束。被嘲笑的梦想就越有实现的价值。小编再次感谢大家对我们的支持！