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