主頁 > 知識庫 > pjblog的ubbcodeasp文件

pjblog的ubbcodeasp文件

熱門標簽:廣西智能外呼系統(tǒng)多少錢 外呼系統(tǒng)api對接 地圖標注與公司業(yè)務(wù)關(guān)系 福建微碼電話機器人 銷售電銷機器人詐騙 大學(xué)校門地圖標注 荊州智能電銷機器人 平?jīng)龈叩碌貓D標注商戶要收費嗎 提高電話機器人接通率
復(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,"$1a 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>") 
'-----------常規(guī)標簽----------------
   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=""引用內(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=""引用來自 $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=""顯示被隱藏內(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)被作者隱藏,只有會員才允許查閱 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=""顯示被隱藏內(nèi)容 $1""/> 顯示被隱藏內(nè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)被作者隱藏,只有會員才允許查閱 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=""復(fù)制此代碼""/>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

'-----------關(guān)鍵詞識別----------------
  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
%>

您可能感興趣的文章:
  • 如何準確定時運行ASP文件
  • 將首頁轉(zhuǎn)成靜態(tài)html頁的asp文件
  • ASP文件中的安全問題
  • IIS 運行ASP文件500內(nèi)部錯誤解決方法大全
  • asp是什么格式 asp文件用什么打開
  • asp文件如何打開
  • asp文件用什么軟件編輯

標簽:海南 邯鄲 樂山 德陽 婁底 黔東 內(nèi)江 衡陽

巨人網(wǎng)絡(luò)通訊聲明:本文標題《pjblog的ubbcodeasp文件》,本文關(guān)鍵詞  pjblog,的,ubbcodeasp,文件,pjblog,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《pjblog的ubbcodeasp文件》相關(guān)的同類信息!
  • 本頁收集關(guān)于pjblog的ubbcodeasp文件的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章