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

%>

赞 (0)

相关推荐

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

    <% '字段内网址加上联接. Function ToLink(Str)     Dim RE '正则表达式对象     Dim strContent     If IsNull(Str) Then Str = ""     Set RE = New RegExp '创建正 则表达式对象     With RE         .Global = True '搜索应用于整个字符串         .IgnoreCase = True '搜索不区分大小写的         strCo

  • asp 标记字符串中指定字符变色不区分大小写

    普通的替换函数 复制代码 代码如下: public function HighLight(S,F) dim tL,tM,tR,k tL="" tM="" tR=S k=instr(1,tR,F,1) do while k>0 tL=tL & left(tR,k-1) tM=mid(tR,k,len(F)) tL=tL & "<span style='color:red'>" & tM & &quo

  • 在字符串中把网址改成超级链接

    $string = "连接http://www.phpx.com 站点"; //连接后需要有个空格或回车. $string =  eregi_replace("http://([^ ,\r\n]*)","<a href=\\0 target=_blank>\\0</a>",$string); $string =  eregi_replace("ftp://([^ ,\r\n]*)","<

  • php实现使用正则将文本中的网址转换成链接标签

    复制代码 代码如下: function text2links($str='') {     if($str=='' or !preg_match('/(http|www\.|@)/i', $str)) { return $str; }     $lines = explode("\n", $str); $new_text = '';     while (list($k,$l) = each($lines)) {         // replace links:         $l

  • 复制网页内容，粘贴之后自动加上网址的实现方法(脚本之家特别整理)

    没想到无心的一个功能,现在已经被大家传的如此猛烈,想当初我们发布出去以后,第二天就发现很多网站都加上了这个功能,有点后悔了,要不我们的外链就会更多了.当然也有反感的,工具是好的就看用的人了. 今天搜索发现还是有很多朋友喜欢这个功能的,这里我们小编继续为大家来个特色整理的版本,大家可以根据需要选择使用. 打开有些网站,当我们浏览某些文章的时候,觉得很好,因此,常常将这些网站的文章进行复制: 之后,粘贴到Word或记事本里面,保存起来,在贯彻落实"拿来主义"的同时,将其"占为己有

  • php自动给网址加上链接的方法

    本文实例讲述了php自动给网址加上链接的方法.分享给大家供大家参考.具体实现方法如下: 这里自动匹配页面里的网址,包含http,ftp等,自动给网址加上链接 function text2links($str='') { if($str=='' or !preg_match('/(http|www\.|@)/i', $str)) { return $str; } $lines = explode("\n", $str); $new_text = ''; while (list($k,$l

  • ASP.NET Core中修改配置文件后自动加载新配置的方法详解

    前言 在 ASP.NET Core 默认的应用程序模板中, 配置文件的处理如下面的代码所示: config.AddJsonFile( path: "appsettings.json", optional: true, reloadOnChange: true ); config.AddJsonFile( path: $"appsettings.{env.EnvironmentName}.json", optional: true, reloadOnChange: t

  • 在 ASP.NET Core 中自动启用 CAP 事务详情

    目录 一.发布端事务 二.消费端事务 1.创建一个 CAP 过滤器 2.配置过滤器 本篇文章旨在描述如何在 ASP.NET Core项目中并以一种简便的方式启用CAP事务,因为在我们的示例中都是直接演示比较直观的方式,没有进行封装,有些初学者同学不太会,找到问我如何封装,本篇文章主要是一个简单的演示. 在本示例中 ,我们主要是基于 Entity Framework 来进行演示,如果你使用其他 Orm 原理类似,大家参考即可. 一.发布端事务 由于大部分人都是在 Web 中使用,所以可以通过使用

  • asp.net中C#获取字符串中汉字的个数的具体实现方法

    asp.net中C#获取字符串中汉字的个数的具体实现方法

    符串可以包括数字,字母,汉字或者其他的字符.使用Char类型的IsDigit静态方法可以判断字符串中的字符是否为数字,使用Char类型中的IsLetter静态方法可以判断字符串中是否为字母.我们来实现一种方法来实现判断字符串中是否为汉字,通过此方法可以计算字符串中汉字的个数,运行效果如图: 首先根据效果图设置好Form的界面和内容,Box1.Text为输入的字符串,我们对该字符串的处理,来计算汉字的个数,双击Buton控件,编辑其单击事件代码. 我们看下汉字的Unicode范围,普遍给出了0x4

  • ASP.NET从字符串中查找字符出现次数的具体实现方法

    首先想到的方法当然是从头遍历字符串并统计: 复制代码 代码如下: c1=0;for(inti=0;i {if(str[i]=='A'){c1++;}} 第二种方法也很容易想到,将字符串中所有要查找的字符去除,然后比较去除前后的字符串长度即可.这种方法遭到了某人的鄙视,据说性能很差而且多占空间. 复制代码 代码如下: c2=str.Length-str.Replace("A",String.Empty).Length; 接下来某人又提出了第三种方法,是用要查找的字符为分隔符,将原字符串分

随机推荐