当前位置：首页 > 网络编程 > WEB编程 > ASP > ASP为字符串中的网址自动加上链接

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

点击次数：21 次 发布日期：2008-12-01 17:01:59 作者：源代码网
源代码网推荐 录入文章时，若内容中包含网址则自动为其加上链接，本例用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)
我也要写评论
会员中心
网络编程
本站推荐
网络编程之精华