ASP为字符串中的网址自动加上链接的代码

发布时间：2023-05-24 13:54:24 所属栏目：Asp教程来源：

导读：asp下用正则实现字符串中的网址加链接的代码

<%

'字段内网址加上联接。

Function ToLink(Str)

Dim RE '正则表达式对象 Dim strContent

If IsNull(Str) Then Str = ""

Set RE = New

asp下用正则实现字符串中的网址加链接的代码

<%

'字段内网址加上联接。

Function ToLink(Str)

Dim RE '正则表达式对象 Dim strContent

If IsNull(Str) Then Str = ""

Set RE = New RegExp '创建正则表达式对象

With RE

.Global = True '搜索应用于整个字符串

.IgnoreCase = True '搜索不区分大小写的

strContent = Str

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

'邮件地址链接自动设置

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

.Pattern = "([/w]*)@([/w/.]*)"

strContent = .Replace(strContent, "<A Href='mailto:$1@$2'>$1@$2</A> ")

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

'链接自动设置

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

'======根据要求再添加协议名称=======

Dim D(3), I

D(0) = "http"

D(1) = "ftp"

D(2) = "news"

D(3) = "mms"

'===================================

For I = 0 To UBound(D)

.Pattern = D(I) + ":////([/w/.]*)"

strContent = .Replace(strContent, "<A Href='" + D(I) + "://$1' target=_blank>" + D(I) + "://$1</A> ")

Next

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

End With

Set RE = Nothing

ToLink = strContent

End Function

%>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!