快捷導(dǎo)航

自動識別HTML的標記替換連接

更新時間：2006年07月27日 00:00:00 作者：

<% 
Function SenFe_UbbCode(sContent) 
    Dim TempReg 
    Set TempReg = New RegExp 
    With TempReg 
        .IgnoreCase = True 
        .Global = True 
        '自動識別網(wǎng)址 
        If InStr(Lcase(sContent),"http://")>0 Then 
            .Pattern = "(^|[^<=""])(http:(\/\/|\\\\)(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|(&)|&)+)" 
            sContent = .Replace(sContent,"$1<a href=""$2"" target=""_blank"">$2</a>") 
        End If 
        '自動識別www等開頭的網(wǎng)址 
        If InStr(Lcase(sContent),"www.")>0 or InStr(Lcase(sContent),"bbs.")>0 Then 
            .Pattern = "(^|[^\/\\\w\=])((www|bbs)\.(\w)+\.([\w\/\\\.\=\?\+\-~`@\'!%#]|(&))+)" 
            sContent = .Replace(sContent,"$1<a href=""http://$2"" target=""_blank"">$2</a>") 
        End If 
    End With 
    Set TempReg = Nothing 
    SenFe_UbbCode = sContent 
End Function 
%> 

[Ctrl+A 全選注:引入外部Js需再刷新一下頁面才能執(zhí)行]

相關(guān)文章

正則表達式中的正向預(yù)查和負向預(yù)查
這篇文章主要介紹了正則表達式中的正向預(yù)查和負向預(yù)查，本文通過幾個場景給大家分析 ,需要的朋友可以參考下
2019-08-08
pjblog的ubbcodeasp文件
pjblog的ubbcodeasp文件...
2006-08-08
分享20個常用的正則表達
本文給大家分享的是20個平時非常常用的正則表達式,很多不太懂正則的朋友,在遇到需要用正則校驗數(shù)據(jù)時,往往是在網(wǎng)上去找很久,結(jié)果找來的還是不很符合要求。
2020-02-02
JS使用正則去除字符串最后的逗號
字符串最后的逗號怎么去除，方法有很多，本文為大家介紹下使用JS正則去除字符串最后逗號，具體實現(xiàn)如下，感興趣的朋友可以參考下
2013-08-08
在nest.js中通過正則表達式正確設(shè)置驗證的方法
這篇文章主要介紹了在nest.js中通過正則表達式正確設(shè)置驗證的方法,文末給大家補充介紹了js正則表達式驗證大全，本文給大家介紹的非常詳細，對大家的學習或工作具有一定的參考借鑒借鑒價值，需要的朋友可以參考下
2022-03-03
linux正則表達式awk詳解
這篇文章主要介紹了linux正則表達式awk的相關(guān)資料，需要的朋友可以參考下
2015-10-10
重溫JavaScript中的正則表達式 js學習筆記
創(chuàng)建正則表達式和創(chuàng)建字符串類似，創(chuàng)建正則表達式提供了兩種方法，一種是采用 new運算符，另一個是采用字面量方式
2012-07-07
正則表達式其實就是一個特殊的字符串
正則表達式其實就是一個特殊的字符串，如果需要對字符串的內(nèi)容進行分析匹配，正則表達式是一個不錯的選擇。簡單的用String也能實現(xiàn)該過程，但是那會相當?shù)姆爆?/div> 2012-10-10
取字和字符的長度
取字和字符的長度...
2006-07-07
8個你應(yīng)該了解的正則表達式提高你的工作效率
正則表達式也可以被當作是一門語言,入門時可能很吃力，不過一旦學會了就方便很多，在處理一些比較復(fù)雜的替換時，正則表達式就會發(fā)揮它的真正作用，本文整理了一些常用的正則，感興趣的朋友可以了解下，或許對你有所幫助
2013-01-01