ASP为字符串中的网址自动加上链接
2007-04-19 10:52
190 查看
<%
'字段内网址加上联接。
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
%>
'字段内网址加上联接。
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
%>
相关文章推荐
- ASP为字符串中的网址自动加上链接
- ASP.NET中自动给URL加上超级链接的C#教程
- php自动给网址加上链接的方法
- 为字符串中的网址加上链接的程序例子
- 在ASP.NET中自动给URL加上超级链接
- 为字符串中的网址加上链接的程序例子
- 一个为字符串中的网址加上链接的程序例子
- js 使用正则 将字符串中的URL加上href链接 在页面点击
- asp.net--常用的数据库链接字符串
- 在ASP.NET中自动给URL地址加上超链接
- 右键复制自动加上网址信息
- JS之复制文章时自动在文章末尾加上来源网址
- 在ASP.NET中自动给URL加上超链接
- 在ASP.NET中自动给URL地址加上超链接
- 在无cookie模式中,会话话状态的ID将会自动保存在ASP.NET的查询字符串中
- asp.net 数据库字符串链接
- ASP.NET自动给URL加上超链接
- 关于ASP自动给文章中的关键词加链接的问题