ASP为字符串中的网址自动加上链接
2018-09-06 11:26
<%
字段内网址加上联接。
FunctionToLink(Str)
DimRE正则表达式对象DimstrContent
IfIsNull(Str)ThenStr=
SetRE=NewRegExp创建正 则表达式对象
WithRE
.Global=True搜索应用于整个字符串
.IgnoreCase=True搜索不区分大小写的
strContent=Str
***************************************************************
邮件地址链接自动设置
***************************************************************
.Pattern=([\w]*)@([\w\.]*)
strContent=.Replace(strContent,<AHref=mailto:$1@$2>$1@$2</A>)
***************************************************************
链接自动设置
***************************************************************
======根据要求再添加协议名称=======
DimD(3),I
D(0)=http
D(1)=ftp
D(2)=news
D(3)=mms
===================================
ForI=0ToUBound(D)
.Pattern=D(I)+:\/\/([\w\.]*)
strContent=.Replace(strContent,<AHref=+D(I)+://$1>+D(I)+://$1</A>)
Next
***************************************************************
EndWith
SetRE=Nothing
ToLink=strContent
EndFunction
%>
下一篇：一个ASP版的图片浏览管理器