。

<% '===========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"" target='_blank'>图片</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"" target='_blank'>表情图标----------------   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 %> 。