pjblog的ubbcodeasp文件

2020-03-16 21:23:25

字體：大中小

來源：轉載

供稿：網友

代碼如下:

<%

'===========PBlog2 UBB代碼轉換代碼==========

'      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

'-----------多媒體標簽----------------

   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動畫"

     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>")

'-----------常規標簽----------------

   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

'-----------特殊標簽----------------

  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=""只允許會員下載"" style=""margin:0px 2px -4px 0px""/> 該文件只允許會員下載! <a href=""login.asp"">登錄</a> | <a href=""register.asp"">注冊</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=""只允許會員下載"" style=""margin:0px 2px -4px 0px""/> 該文件只允許會員下載! <a href=""login.asp"">登錄</a> | <a href=""register.asp"">注冊</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=""引用內容""/> 引用內容</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=""引用來自 $1""/> 引用來自 $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=""顯示被隱藏內容""/> 顯示被隱藏內容</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=""隱藏內容""/> 隱藏內容</div><div class=""UBBContent"">該內容已經被作者隱藏,只有會員才允許查閱 <a href=""login.asp"">登錄</a> | <a href=""register.asp"">注冊</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=""顯示被隱藏內容 $1""/> 顯示被隱藏內容來自 $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=""隱藏內容 $1""/> 隱藏內容</div><div class=""UBBContent"">該內容已經被作者隱藏,只有會員才允許查閱 <a href=""login.asp"">登錄</a> | <a href=""register.asp"">注冊</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=""運行此代碼""/> <INPUT onclick=""doCopy('"&rndID&"')""  type=""button"" value=""復制此代碼""/><br/> [Ctrl+A 全部選擇提示：你可先修改部分代碼，再按運行]</div></div>",1,-1,0)

  Next

  Set strMatchs=nothing

'-----------List標簽----------------

   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>")

'-----------表情圖標----------------

  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

'-----------關鍵詞識別----------------

  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

%>