主頁(yè) > 知識(shí)庫(kù) > ASP為字符串中的網(wǎng)址自動(dòng)加上鏈接

ASP為字符串中的網(wǎng)址自動(dòng)加上鏈接
熱門(mén)標(biāo)簽：電子圍欄 服務(wù)器配置 科大訊飛語(yǔ)音識(shí)別系統(tǒng) Mysql連接數(shù)設(shè)置 阿里云 團(tuán)購(gòu)網(wǎng)站 Linux服務(wù)器 銀行業(yè)務(wù)
%
'字段內(nèi)網(wǎng)址加上聯(lián)接。
Function ToLink(Str)
    Dim RE '正則表達(dá)式對(duì)象     Dim strContent
    If IsNull(Str) Then Str = ""
    Set RE = New RegExp '創(chuàng)建正 則表達(dá)式對(duì)象
    With RE
        .Global = True '搜索應(yīng)用于整個(gè)字符串
        .IgnoreCase = True '搜索不區(qū)分大小寫(xiě)的
        strContent = Str
        '***************************************************************
        '郵件地址鏈接自動(dòng)設(shè)置
        '***************************************************************
        .Pattern = "([\w]*)@([\w\.]*)"
        strContent = .Replace(strContent, "A Href='mailto:$1@$2'>$1@$2/A> ")
        '***************************************************************
        '鏈接自動(dòng)設(shè)置
        '***************************************************************
        '======根據(jù)要求再添加協(xié)議名稱(chēng)=======
        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

%>

標(biāo)簽：江蘇 衡水 廣元 棗莊 萍鄉(xiāng) 蚌埠 衢州 大理

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《ASP為字符串中的網(wǎng)址自動(dòng)加上鏈接》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話(huà)咨詢(xún)

    • 400-1100-266