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

        自動識別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一区二区| 精品精品国产理论在线观看| 久久精品国产亚洲网站| 99热门精品一区二区三区无码| 自拍偷自拍亚洲精品第1页| 人妻少妇精品久久| 精品国产黑色丝袜高跟鞋| 国产精品国产三级国产a| 99久久www免费人成精品| 久久精品国产福利国产秒| 97久久久久人妻精品专区| 久久久久久国产精品无码超碰| 亚洲愉拍99热成人精品热久久 | 久久久久99精品成人片欧美| 中文精品人人永久免费| 亚洲精品成人片在线观看| 亚洲国产精品日韩专区AV| 亚洲精品无码永久在线观看| 人妻一区二区三区无码精品一区| 欧美日韩国产精品| 亚洲国产精品日韩专区AV| 亚洲福利精品一区二区三区| 亚洲国产高清精品线久久 | 日韩蜜芽精品视频在线观看| 久草热久草热线频97精品| 久久精品国产99久久久香蕉| 国产线视频精品免费观看视频 | 国产成人亚洲精品| 久久久久久久99精品免费观看| 久久最新精品国产| 92国产精品午夜福利免费| 国产午夜亚洲精品国产成人小说| 欧美成人精品欧美一级乱黄码 | 99re只有精品8中文| 国产午夜精品理论片免费观看| 精品国产成人在线| 亚洲精品久久久www | 国产成人99久久亚洲综合精品|