久久久久久久视色,久久电影免费精品,中文亚洲欧美乱码在线观看,在线免费播放AV片

<center id="vfaef"><input id="vfaef"><table id="vfaef"></table></input></center>

    <p id="vfaef"><kbd id="vfaef"></kbd></p>

    
    
    <pre id="vfaef"><u id="vfaef"></u></pre>

      <thead id="vfaef"><input id="vfaef"></input></thead>

    1. 站長(zhǎng)資訊網(wǎng)
      最全最豐富的資訊網(wǎng)站

      pjblog的ubbcodeasp文件

      復(fù)制代碼 代碼如下:

      <%
      ‘===========PBlog2 UBB代碼轉(zhuǎn)換代碼==========
      ‘      Author:PuterJam
      ‘         Copryright PBlog2
      ‘         Update: 2005-12-29
      ‘===========================================
      Function UBBCode(ByVal strContent,DisSM,DisUBB,DisIMG,AutoURL,AutoKEY)
       If isEmpty(strContent) Or isNull(strContent) Then
              Exit Function
       Else
        Dim re, strMatchs, strMatch, rndID,tmpStr1,tmpStr2,tmpStr3,tmpStr4
        Set re=new RegExp
        re.IgnoreCase =True
        re.Global=True
        IF AutoURL=1 Then
         re.Pattern=”([^=]][s]*?|^)(http|https|rstp|ftp|mms|ed2k)://([A-Za-z0-9./=?%-_~`@’:+!]*)”
         Set strMatchs=re.Execute(strContent)
         For Each strMatch in strMatchs
          tmpStr1=strMatch.SubMatches(0)
          tmpStr2=strMatch.SubMatches(1)
          tmpStr3=checkURL(strMatch.SubMatches(2))
          strContent=replace(strContent,strMatch.Value,tmpStr1&”<a href=”””&tmpStr2&”://”&tmpStr3&””” target=””_blank””>”&tmpStr2&”://”&tmpStr3&”</a>”,1,-1,0)
         Next
         ‘re.Pattern=”(^|s)(www.S+)”
         ‘strContent=re.Replace(strContent,”$1<a href=””http://$2″” target=””_blank””>$2</a>”)
        End IF

        IF Not DisUBB=1 Then
         IF Not DisIMG=1 Then
                   re.Pattern=”([img])(.[^]]*)[/img]”
           Set strMatchs=re.Execute(strContent)
           For Each strMatch in strMatchs
            tmpStr1=(strMatch.SubMatches(1))
            strContent=replace(strContent,strMatch.Value,”<img src=”””&tmpStr1&””” border=””0″” alt=””””/>”,1,-1,0)
           Next

                   re.Pattern=”[img=(left|right|center|absmiddle|)](.[^]]*)([/img])”
           Set strMatchs=re.Execute(strContent)
           For Each strMatch in strMatchs
            tmpStr1=strMatch.SubMatches(0)
            tmpStr2=checkURL(strMatch.SubMatches(1))
            strContent=replace(strContent,strMatch.Value,”<img align=”””&tmpStr1&””” src=”””&tmpStr2&””” border=””0″” alt=””””/>”,1,-1,0)
           Next

                   re.Pattern=”[img=(d*|),(d*|)](.[^]]*)[/img]”
           Set strMatchs=re.Execute(strContent)
           For Each strMatch in strMatchs
            tmpStr1=strMatch.SubMatches(0)
            tmpStr2=strMatch.SubMatches(1)
            tmpStr3=checkURL(strMatch.SubMatches(2))
            strContent=replace(strContent,strMatch.Value,”<img width=”””&tmpStr1&””” height=”””&tmpStr2&””” src=”””&tmpStr3&””” border=””0″” alt=””””/>”,1,-1,0)
           Next

                   re.Pattern=”[img=(d*|),(d*|),(left|right|center|absmiddle|)](.[^]]*)([/img])”
           Set strMatchs=re.Execute(strContent)
           For Each strMatch in strMatchs
            tmpStr1=strMatch.SubMatches(0)
            tmpStr2=strMatch.SubMatches(1)
            tmpStr3=strMatch.SubMatches(2)
            tmpStr4=checkURL(strMatch.SubMatches(3))
            strContent=replace(strContent,strMatch.Value,”<img width=”””&tmpStr1&””” height=”””&tmpStr2&””” align=”””&tmpStr3&””” src=”””&tmpStr4&””” border=””0″” alt=””””/>”,1,-1,0)
           Next
          else
                   re.Pattern=”([img])(.[^]]*)[/img]”
           Set strMatchs=re.Execute(strContent)
           For Each strMatch in strMatchs
            tmpStr1=checkURL(strMatch.SubMatches(1))
            strContent=replace(strContent,strMatch.Value,”<a href=”””&tmpStr1&””” target=””_blank”” title=”””&tmpStr1&”””><img src=””images/image.gif”” alt=”””” style=””margin:0px 2px -3px 0px”” border=””0″”/>查看圖片</a>”,1,-1,0)
           Next

                   re.Pattern=”[img=(left|right|center|absmiddle|)](.[^]]*)([/img])”
           Set strMatchs=re.Execute(strContent)
           For Each strMatch in strMatchs
            tmpStr1=strMatch.SubMatches(0)
            tmpStr2=checkURL(strMatch.SubMatches(1))
            strContent=replace(strContent,strMatch.Value,”<a href=”””&tmpStr2&””” target=””_blank”” title=”””&tmpStr2&”””><img src=””images/image.gif”” alt=”””” style=””margin:0px 2px -3px 0px”” border=””0″”/>查看圖片</a>”,1,-1,0)
           Next

                   re.Pattern=”[img=(d*|),(d*|)](.[^]]*)[/img]”
           Set strMatchs=re.Execute(strContent)
           For Each strMatch in strMatchs
            tmpStr1=strMatch.SubMatches(0)
            tmpStr2=strMatch.SubMatches(1)
            tmpStr3=checkURL(strMatch.SubMatches(2))
            strContent=replace(strContent,strMatch.Value,”<a href=”””&tmpStr3&””” target=””_blank”” title=”””&tmpStr3&”””><img src=””images/image.gif”” alt=”””” style=””margin:0px 2px -3px 0px”” border=””0″”/>查看圖片</a>”,1,-1,0)
           Next

                   re.Pattern=”[img=(d*|),(d*|),(left|right|center|absmiddle|)](.[^]]*)([/img])”
           Set strMatchs=re.Execute(strContent)
           For Each strMatch in strMatchs
            tmpStr1=strMatch.SubMatches(0)
            tmpStr2=strMatch.SubMatches(1)
            tmpStr3=strMatch.SubMatches(2)
            tmpStr4=checkURL(strMatch.SubMatches(3))
            strContent=replace(strContent,strMatch.Value,”<a href=”””&tmpStr4&””” target=””_blank”” title=”””&tmpStr4&”””><img src=””images/image.gif”” alt=”””” style=””margin:0px 2px -3px 0px”” border=””0″”/>查看圖片</a>”,1,-1,0)
           Next    
         End IF

      ‘———–多媒體標(biāo)簽—————-
         re.Pattern=”[(swf|wma|wmv|rm|ra|qt)(=d*?|)(,d*?|)]([^<>]*?)[/(swf|wma|wmv|rm|ra|qt)]”
            Set strMatchs=re.Execute(strContent)
            dim strType,strWidth,strHeight,strSRC,TitleText
        For Each strMatch in strMatchs
         RAndomize
           strType=strMatch.SubMatches(0)
           if strType=”swf” then
            TitleText=”<img src=””images/flash.gif”” alt=”””” style=””margin:0px 2px -3px 0px”” border=””0″”/>Flash動(dòng)畫”
           elseif strType=”wma” then
            TitleText=”<img src=””images/music.gif”” alt=”””” style=””margin:0px 2px -3px 0px”” border=””0″”/>播放音頻文件”
           elseif strType=”wmv” then
            TitleText=”<img src=””images/mediaplayer.gif”” alt=”””” style=””margin:0px 2px -3px 0px”” border=””0″”/>播放視頻文件”  
           elseif strType=”rm” then
            TitleText=”<img src=””images/realplayer.gif”” alt=”””” style=””margin:0px 2px -3px 0px”” border=””0″”/>播放real視頻流文件”  
           elseif strType=”ra” then
            TitleText=”<img src=””images/realplayer.gif”” alt=”””” style=””margin:0px 2px -3px 0px”” border=””0″”/>播放real音頻流文件”  
           elseif strType=”qt” then
            TitleText=”<img src=””images/mediaplayer.gif”” alt=”””” style=””margin:0px 2px -3px 0px”” border=””0″”/>播放mov視頻文件”  
           end if
                    strWidth=strMatch.SubMatches(1)
                    strHeight=strMatch.SubMatches(2)
                    if (len(strWidth)=0) then
                      strWidth=”400″
                      else
                     strWidth=right(strWidth,(len(strWidth)-1))
                    end if
                    if (len(strHeight)=0) then
                     strHeight=”300″
                      else
                    strHeight=right(strHeight,(len(strHeight)-1))
                    end if
                    strSRC=checkURL(strMatch.SubMatches(3))
         rndID=”temp”&Int(100000 * Rnd)
         strContent= Replace(strContent,strMatch.Value,”<div class=””UBBPanel””><div class=””UBBTitle””>”&TitleText&”</div><div class=””UBBContent””><a id=”””+rndID+”_href”” href=””javascript:MediaShow(‘”+strType+”‘,'”+rndID+”‘,'”+strSRC+”‘,'”+strWidth+”‘,'”+strHeight+”‘)””><img name=”””+rndID+”_img”” src=””images/mm_snd.gif”” style=””margin:0px 3px -2px 0px”” border=””0″” alt=””””/><span id=”””+rndID+”_text””>在線播放</span></a><div id=”””+rndID+”””></div></div></div>”)
        Next
        Set strMatchs=nothing
        re.Pattern=”([mid])(.[^]]*)[/mid]”
        strContent= re.Replace(strContent,”<embed src=””$2″” height=””45″” width=””314″” autostart=””0″”></embed>”) 
      ‘———–常規(guī)標(biāo)簽—————-
         re.Pattern = “[url=(.[^]]*)](.[^[]*)[/url]”
         Set strMatchs=re.Execute(strContent)
         For Each strMatch in strMatchs
          tmpStr1=checkURL(strMatch.SubMatches(0))
          tmpStr2=strMatch.SubMatches(1)
          strContent=replace(strContent,strMatch.Value,”<a target=””_blank”” href=”””&tmpStr1&”””>”&tmpStr2&”</a>”,1,-1,0)
         Next

         re.Pattern = “[url](.[^[]*)[/url]”
         Set strMatchs=re.Execute(strContent)
         For Each strMatch in strMatchs
          tmpStr1=checkURL(strMatch.SubMatches(0))
          strContent=replace(strContent,strMatch.Value,”<a target=””_blank”” href=”””&tmpStr1&”””>”&tmpStr1&”</a>”,1,-1,0)
         Next

         re.Pattern = “[ed2k=([^r]*?)]([^r]*?)[/ed2k]”
         Set strMatchs=re.Execute(strContent)
         For Each strMatch in strMatchs
          tmpStr1=checkURL(strMatch.SubMatches(0))
          tmpStr2=strMatch.SubMatches(1)
          strContent=replace(strContent,strMatch.Value,”<img border=”””” src=””images/ed2k.gif”” alt=””””/><a target=””_blank”” href=”””&tmpStr1&”””>”&tmpStr2&”</a>”,1,-1,0)
         Next

         re.Pattern = “[ed2k]([^r]*?)[/ed2k]”
         Set strMatchs=re.Execute(strContent)
         For Each strMatch in strMatchs
          tmpStr1=checkURL(strMatch.SubMatches(0))
          strContent=replace(strContent,strMatch.Value,”<img border=”””” src=””images/ed2k.gif”” alt=””””/><a target=””_blank”” href=”””&tmpStr1&”””>”&tmpStr1&”</a>”,1,-1,0)
         Next

         re.Pattern = “[email=(.[^]]*)](.[^[]*)[/email]”
         Set strMatchs=re.Execute(strContent)
         For Each strMatch in strMatchs
          tmpStr1=checkURL(strMatch.SubMatches(0))
          tmpStr2=strMatch.SubMatches(1)
          strContent=replace(strContent,strMatch.Value,”<a href=””mailto:”&tmpStr1&”””>”&tmpStr2&”</a>”,1,-1,0)
         Next

         
         re.Pattern = “[email](.[^[]*)[/email]”
         Set strMatchs=re.Execute(strContent)
         For Each strMatch in strMatchs
          tmpStr1=checkURL(strMatch.SubMatches(0))
          strContent=replace(strContent,strMatch.Value,”<a href=””mailto:”&tmpStr1&”””>”&tmpStr1&”</a>”,1,-1,0)
         Next

      ‘———–字體格式—————-
            re.Pattern=”[align=(w{4,6})]([^r]*?)[/align]”
         strContent=re.Replace(strContent,”<div align=””$1″”>$2</div>”)
              re.Pattern=”[color=(#w{3,10}|w{3,10})]([^r]*?)[/color]”
         strContent=re.Replace(strContent,”<span style=””color:$1″”>$2</span>”)
            re.Pattern=”[size=(d{1,2})]([^r]*?)[/size]”
         strContent=re.Replace(strContent,”<span style=””font-size:$1pt””>$2</span>”)
            re.Pattern=”[font=([^r]*?)]([^r]*?)[/font]”
         strContent=re.Replace(strContent,”<span style=””font-family:$1″”>$2</span>”)
         re.Pattern=”[b]([^r]*?)[/b]”
         strContent=re.Replace(strContent,”<strong>$1</strong>”)
            re.Pattern=”[i]([^r]*?)[/i]”
         strContent=re.Replace(strContent,”<i>$1</i>”)
            re.Pattern=”[u]([^r]*?)[/u]”
         strContent=re.Replace(strContent,”<u>$1</u>”)
            re.Pattern=”[s]([^r]*?)[/s]”
         strContent=re.Replace(strContent,”<s>$1</s>”)
            re.Pattern=”[sup]([^r]*?)[/sup]”
         strContent=re.Replace(strContent,”<sup>$1</sup>”)
            re.Pattern=”[sub]([^r]*?)[/sub]”
         strContent=re.Replace(strContent,”<sub>$1</sub>”)
            re.Pattern=”[fly]([^r]*?)[/fly]”
         strContent=re.Replace(strContent,”<marquee width=””90%”” behavior=””alternate”” scrollamount=””3″”>$1</marquee>”)

        End IF

      ‘———–特殊標(biāo)簽—————-
        re.Pattern = “[down=(.[^]]*)](.[^[]*)[/down]”
        Set strMatchs=re.Execute(strContent)
        For Each strMatch in strMatchs
         tmpStr1=checkURL(strMatch.SubMatches(0))
         tmpStr2=strMatch.SubMatches(1)
         strContent=replace(strContent,strMatch.Value,”<img src=””images/download.gif”” alt=””下載文件”” style=””margin:0px 2px -4px 0px””/> <a href=”””&tmpStr1&””” target=””_blank””>”&tmpStr2&”</a>”,1,-1,0)
        Next  

        re.Pattern = “[down](.[^[]*)[/down]”
        Set strMatchs=re.Execute(strContent)
        For Each strMatch in strMatchs
         tmpStr1=checkURL(strMatch.SubMatches(0))
         strContent=replace(strContent,strMatch.Value,”<img src=””images/download.gif”” alt=””下載文件”” style=””margin:0px 2px -4px 0px””/> <a href=”””&tmpStr1&””” target=””_blank””>下載此文件</a>”,1,-1,0)
        Next

        re.Pattern = “[mDown=(.[^]]*)](.[^[]*)[/mDown]”
        Set strMatchs=re.Execute(strContent)
        For Each strMatch in strMatchs
         tmpStr1=checkURL(strMatch.SubMatches(0))
         tmpStr2=strMatch.SubMatches(1)
         if len(memName)>0 then
          strContent=replace(strContent,strMatch.Value,”<img src=””images/download.gif”” alt=””下載文件”” style=””margin:0px 2px -4px 0px””/> <a href=”””&tmpStr1&””” target=””_blank””>”&tmpStr2&”</a>”,1,-1,0)
          else
          strContent=replace(strContent,strMatch.Value,”<img src=””images/download.gif”” alt=””只允許會(huì)員下載”” style=””margin:0px 2px -4px 0px””/> 該文件只允許會(huì)員下載! <a href=””login.asp””>登錄</a> | <a href=””register.asp””>注冊(cè)</a>”,1,-1,0)
         end if
        Next

        re.Pattern = “[mDown](.[^[]*)[/mDown]”
        Set strMatchs=re.Execute(strContent)
        For Each strMatch in strMatchs
         tmpStr1=checkURL(strMatch.SubMatches(0))
         if len(memName)>0 then
          strContent=replace(strContent,strMatch.Value,”<img src=””images/download.gif”” alt=””下載文件”” style=””margin:0px 2px -4px 0px””/> <a href=”””&tmpStr1&””” target=””_blank””>下載此文件</a>”,1,-1,0)
          else
          strContent=replace(strContent,strMatch.Value,”<img src=””images/download.gif”” alt=””只允許會(huì)員下載”” style=””margin:0px 2px -4px 0px””/> 該文件只允許會(huì)員下載! <a href=””login.asp””>登錄</a> | <a href=””register.asp””>注冊(cè)</a>”,1,-1,0)
         end if
        Next

       

        re.Pattern=”[code](.*?)[/code]”
        strContent= re.Replace(strContent,”<div class=””UBBPanel””><div class=””UBBTitle””><img src=””images/code.gif”” style=””margin:0px 2px -3px 0px”” alt=””程序代碼””/> 程序代碼</div><div class=””UBBContent””>$1</div></div>”)

        re.Pattern=”[quote](.*?)[/quote]”
        strContent= re.Replace(strContent,”<div class=””UBBPanel””><div class=””UBBTitle””><img src=””images/quote.gif”” style=””margin:0px 2px -3px 0px”” alt=””引用內(nèi)容””/> 引用內(nèi)容</div><div class=””UBBContent””>$1</div></div>”)
        re.Pattern=”[quote=(.[^]]*)](.*?)[/quote]”
        strContent= re.Replace(strContent,”<div class=””UBBPanel””><div class=””UBBTitle””><img src=””images/quote.gif”” style=””margin:0px 2px -3px 0px”” alt=””引用來(lái)自 $1″”/> 引用來(lái)自 $1</div><div class=””UBBContent””>$2</div></div>”)

        re.Pattern=”[hidden](.*?)[/hidden]”
        if len(memName)>0 then  
         strContent= re.Replace(strContent,”<div class=””UBBPanel””><div class=””UBBTitle””><img src=””images/quote.gif”” style=””margin:0px 2px -3px 0px”” alt=””顯示被隱藏內(nèi)容””/> 顯示被隱藏內(nèi)容</div><div class=””UBBContent””>$1</div></div>”)
         else
         strContent= re.Replace(strContent,”<div class=””UBBPanel””><div class=””UBBTitle””><img src=””images/quote.gif”” style=””margin:0px 2px -3px 0px”” alt=””隱藏內(nèi)容””/> 隱藏內(nèi)容</div><div class=””UBBContent””>該內(nèi)容已經(jīng)被作者隱藏,只有會(huì)員才允許查閱 <a href=””login.asp””>登錄</a> | <a href=””register.asp””>注冊(cè)</a></div></div>”)
        end if

        re.Pattern=”[hidden=(.[^]]*)](.*?)[/hidden]”
        if len(memName)>0 then  
         strContent= re.Replace(strContent,”<div class=””UBBPanel””><div class=””UBBTitle””><img src=””images/quote.gif”” style=””margin:0px 2px -3px 0px”” alt=””顯示被隱藏內(nèi)容 $1″”/> 顯示被隱藏內(nèi)容來(lái)自 $1</div><div class=””UBBContent””>$2</div></div>”)
         else
         strContent= re.Replace(strContent,”<div class=””UBBPanel””><div class=””UBBTitle””><img src=””images/quote.gif”” style=””margin:0px 2px -3px 0px”” alt=””隱藏內(nèi)容 $1″”/> 隱藏內(nèi)容</div><div class=””UBBContent””>該內(nèi)容已經(jīng)被作者隱藏,只有會(huì)員才允許查閱 <a href=””login.asp””>登錄</a> | <a href=””register.asp””>注冊(cè)</a></div></div>”)
        end if

        re.Pattern=”[html](.*?)[/html]”
        Set strMatchs=re.Execute(strContent)
        For Each strMatch in strMatchs
         RAndomize
         rndID=”temp”&Int(100000 * Rnd)
         strContent=Replace(strContent,strMatch.Value,”<div class=””UBBPanel””><div class=””UBBTitle””><img src=””images/html.gif”” style=””margin:0px 2px -3px 0px””> HTML代碼</div><div class=””UBBContent””><TEXTAREA rows=””8″” id=”””&rndID&”””>”&UBBFilter(HTMLDecode(strMatch.SubMatches(0)))& “</TEXTAREA><br/><INPUT onclick=””runEx(‘”&rndID&”‘)””  type=””button”” value=””運(yùn)行此代碼””/> <INPUT onclick=””doCopy(‘”&rndID&”‘)””  type=””button”” value=””復(fù)制此代碼””/><br/> [Ctrl+A 全部選擇 提示:你可先修改部分代碼,再按運(yùn)行]</div></div>”,1,-1,0)
        Next
        Set strMatchs=nothing
      ‘———–List標(biāo)簽—————-
         strContent = Replace(strContent,”[list]”,”<ul>”)
         re.Pattern = “[list=(.[^]]*)]”
         strContent = re.Replace(strContent,”<ul style=””list-style-type:$1″”>”)
         re.Pattern = “[*](.[^[]*)(n|)”
         strContent = re.Replace(strContent,”<li>$1</li>”)
         strContent = Replace(strContent,”[/list]”,”</ul>”)

      ‘———–表情圖標(biāo)—————-
        IF Not DisSM=1 Then
         dim log_Smilies,log_SmiliesContent
         For Each log_Smilies IN Arr_Smilies
          log_SmiliesContent=Split(log_Smilies,”|”)
          strContent=Replace(strContent,log_SmiliesContent(2),” <img src=””images/smilies/”&log_SmiliesContent(1)&””” border=””0″” style=””margin:0px 0px -2px 0px”” alt=””””/>”)
         Next
        End IF

      ‘———–關(guān)鍵詞識(shí)別—————-
        IF AutoKEY=1 Then
         dim log_Keywords,log_KeywordsContent
         For Each log_Keywords IN Arr_Keywords
          log_KeywordsContent=Split(log_Keywords,”$|$”)
          IF log_KeywordsContent(3)<>”None” Then
           strContent=Replace(strContent,log_KeywordsContent(1),”<a href=”””&log_KeywordsContent(2)&””” target=””_blank””><img src=””images/keywords/”&log_KeywordsContent(3)&””” border=””0″” alt=””””/> “&log_KeywordsContent(1)&”</a>”)
          Else
           strContent=Replace(strContent,log_KeywordsContent(1),”<a href=”””&log_KeywordsContent(2)&””” target=””_blank””>”&log_KeywordsContent(1)&”</a>”)
          End IF
         Next
        End IF

        Set re=Nothing

        UBBCode=strContent
       End IF
      End Function
      %>

      贊(0)
      分享到: 更多 (0)
      網(wǎng)站地圖   滬ICP備18035694號(hào)-2    滬公網(wǎng)安備31011702889846號(hào)