站長資訊網
        最全最豐富的資訊網站

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

        復制代碼 代碼如下:
        <%
        Function SenFe_UbbCode(sContent)
            Dim TempReg
            Set TempReg = New RegExp
            With TempReg
                .IgnoreCase = True
                .Global = True
                ‘自動識別網址
                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等開頭的網址
                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需刷新才能執行]

        贊(0)
        分享到: 更多 (0)
        網站地圖   滬ICP備18035694號-2    滬公網安備31011702889846號
        主站蜘蛛池模板: 国产午夜精品一区二区三区小说| 日韩三级精品| 国产精品性爱| 成人精品一区二区三区中文字幕| 日韩欧美亚洲国产精品字幕久久久| 久久99精品国产| 精品少妇无码AV无码专区| 欧美精品色精品一区二区三区| 久久免费精品视频| 蜜国产精品jk白丝AV网站| 久久亚洲国产精品五月天婷| MM1313亚洲精品无码| 2021最新国产精品网站| 亚洲国产精品一区二区第一页| 国精品产露脸自拍| 国产激情精品一区二区三区| 久久99国产精品久久99| 成人精品一区二区三区中文字幕| 色婷婷在线精品国自产拍| 日韩精品一区二区三区中文字幕| 国产精品一区二区av不卡| 亚洲综合精品一二三区在线| 日韩精品在线一区二区| 欧洲精品视频在线观看| …久久精品99久久香蕉国产| 精品欧洲AV无码一区二区男男 | 亚洲精品二区国产综合野狼 | 四虎影视884a精品国产四虎| 99久久国产热无码精品免费| 国产午夜福利精品久久2021| 奇米精品视频一区二区三区| 亚洲国产精品国自产拍AV| 亚洲国产精品无码专区| 中文字幕日韩精品在线| 无码人妻精品一区二区三区久久 | 亚洲欧美精品AAAAAA片| 综合在线视频精品专区| 亚洲韩精品欧美一区二区三区| 日韩精品无码久久一区二区三| 伊人久久精品影院| 人妻少妇精品中文字幕AV|