<%

'字段内网址加上联接。

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'target=_blank>"+D(I)+"://$1</A>")

Next

'***************************************************************

EndWith

SetRE=Nothing

ToLink=strContent

EndFunction

%>