论坛UBB代码 推荐

if codeb then
for i=0 to ubound(code)
if code(i)="" then exit for
tcode=server.htmlencode(code(i))
content=replace(content,"{code"&i&"}",tcode)
next
end if
'-----处理[code] 中的[html]
re.pattern="[html](rn)?([sS]+?)[/html]"
Set Matches = re.Execute(content)   ' Execute search.
dim html2()
n=0
if re.test(content) then html2b=true
if html2b then
  For Each Match in Matches      ' Iterate Matches collection.
   redim Preserve html2(n)
    html2(n) =Match.Value
n=n+1
  Next
for i=0 to ubound(html2)
if html2(i)="" then exit for
content=replace(content,html2(i),"{html2"&i&"}")
next
end if

if param="full" then
if htmlb then
for i=0 to ubound(html)
if html(i)="" then exit for
thtml=server.htmlencode(html(i))
content=replace(content,"{html"&i&"}",thtml)
next
 end if
end if

re.Pattern="([code])(rn)?([sS]+?)([/code])"
content=re.Replace(content,"

$3

if param="full" then
re.Pattern="([html])(rn)?([sS]+?)([/html])"
content=re.Replace(content,"$3
 [Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]")
end if

if html2b then
for i=0 to ubound(html2)
if html2(i)="" then exit for
thtml2=html2(i)
content=replace(content,"{html2"&i&"}",thtml2)
next
end if

UBBCode=content
end function

function gmt(strContent)

 strContent=HTMLfilter(strContent) 

 dim re
 Set re=new RegExp
 re.IgnoreCase =true
 re.Global=True

if param="full" then
 if not smiles then                       '笑脸转换

 re.Pattern="([em(d{1,2})])"
 strContent=re.Replace(strContent,"")

 're.Pattern=":)"
 'strContent=re.Replace(strContent,"")
 're.Pattern=":("
 'strContent=re.Replace(strContent,"")
 're.Pattern=":o"
 'strContent=re.Replace(strContent,"")
 're.Pattern=":D"
 'strContent=re.Replace(strContent,"")
 're.Pattern=";)"
 'strContent=re.Replace(strContent,"")
 're.Pattern=":p"
 'strContent=re.Replace(strContent,"")
 're.Pattern=":cool:"
 'strContent=re.Replace(strContent,"")
 're.Pattern=":rolleyes:"
 'strContent=re.Replace(strContent,"")
 're.Pattern=":mad:"
 'strContent=re.Replace(strContent,"")
 're.Pattern=":eek:"
 'strContent=re.Replace(strContent,"")
 're.Pattern=":confused:"
 'strContent=re.Replace(strContent,"")
 're.Pattern=":cry:"
 'strContent=re.Replace(strContent,"")

 end if

 re.Pattern="([IMG])(.*?)([/IMG])"
 strContent=re.Replace(strContent,"document.body.clientWidth-300) {this.height=(document.body.clientWidth-300)*this.height/this.width;this.width=document.body.clientWidth-300}"" galleryImg=no>")

 're.Pattern="[DIR=*([0-9]*),*([0-9]*)](.*?)[/DIR]"
 'strContent=re.Replace(strContent,"")
 're.Pattern="[QT=*([0-9]*),*([0-9]*)](.*?)[/QT]"
 'strContent=re.Replace(strContent,"")
 re.Pattern="[MP=(d+),(d+)](.*?)[/MP]"
 strContent=re.Replace(strContent,"")

        'mp3
       re.Pattern="[MP3](.*?)[/MP3]"
 strContent=re.Replace(strContent,"")

 re.Pattern="[RM=(d+),(d+)](.*?)[/RM]"
 strContent=re.Replace(strContent,"
")

 re.Pattern="([FLASH])(.*?)([/FLASH])"
 strContent= re.Replace(strContent,"")
 re.Pattern="([FLASH=(d+),(d+)])(.*?)([/FLASH])"
 strContent= re.Replace(strContent,"")

'循环转换quote
 re.Pattern="([QUOTE])(.*?)([/QUOTE])"
 while re.test(strContent)
  strContent=re.Replace(strContent,"

引用:

---

$2

---

 re.Pattern="([w])(.*?)([/w])"
 strContent=re.Replace(strContent,"
页面：点这儿参观")

end if '大空间标签

 re.Pattern="([ATTACHMENT=(.*?)])(.*?)([/ATTACHMENT])"
 strContent= re.Replace(strContent,"

 $3

")

 re.Pattern="([URL])(.*?)([/URL])"
 strContent= re.Replace(strContent,"$2")
 re.Pattern="([URL=(http|https|ftp|rtsp|mms)(://)(.*?)])(.*?)([/URL])"
 strContent= re.Replace(strContent,"$5")

 re.Pattern="([EMAIL])(.*?)([/EMAIL])"
 strContent= re.Replace(strContent,"$2")
 re.Pattern="([EMAIL=(.*?)])(.*?)([/EMAIL])"
 strContent= re.Replace(strContent,"$3")

 re.Pattern = "(^|s|
|

)(http|https|ftp|rtsp|mms)(://)(S+)"
 strContent = re.Replace(strContent,"$1$4")
 re.Pattern = "(^|s|
|

)(www.)(S+)"
 strContent = re.Replace(strContent,"$1$2$3")

'文本效果
 re.Pattern="([list])(.+?)([/list])"
 strContent=re.Replace(strContent,"

$2

$4