- <%
- '字段内网址加上联接。
- 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为字符串中的网址自动加上链接
2019-09-24 10:24asp代码网 ASP教程
asp下用正则实现字符串中的网址加链接的代码
延伸 · 阅读
- 2022-06-27Python截取字符串的简单方法实例
- 2022-04-21夸克怎么收藏网址 夸克网址禁止访问怎么处理
- 2022-04-19比正则快 M 倍以上!Python 替换字符串的新姿势
- 2022-04-14GO语言字符串处理Strings包的函数使用示例讲解
- 2022-04-12下班前几分钟,搞懂这六种 For 循环
- 2022-03-11C语言实现将double/float 转为字符串(带自定义精度
精彩推荐
- ASP教程
asp中一段防SQL注入的通用脚本
asp中一段防SQL注入的通用脚本...
- ASP教程
asp删除mssql数据库中没有记录的图片代码
asp删除没有记录的图片需要文件夹(存放图片的文件夹)中的每个图片和数据库中的所有记录进行比较...
- ASP教程
ASP 判断是否有中文的代码
其实我上一篇写的js判断中文才是最好的方法,这个是asp的一种,只要是双字节都是当作中文判断...
- ASP教程
ASP常用函数:HTMLDecode
ASP常用函数:HTMLDecode ...
- ASP教程
asp读取远程文件并保存到本地代码
asp读取远程文件并保存到本地代码 ...
- ASP教程
ASP GetRef 函数指针试探
近日在学习C++,看到函数指针,由于之前一直搞ASP,所以想ASP里面是否也有这个函数指针的东西,百度了一下,没有太多关于此方面的介绍,于是翻了翻...
- ASP教程
字符批量替换程序asp服务器版
字符批量替换程序asp服务器版,安装方法:直接把replace.asp文件放在任意的支持asp+FSO的环境中 ...
- ASP教程
ASP实现文件上传的方法
在基于浏览器/服务器的应用环境中,在浏览器中上传各种类型的文件一直是困扰用户文件管理应用的难题之一。常用的实现方法是利用在RFC1867中引入的一...