'循环转换quote
re.Pattern="(\[QUOTE\])(.*?)(\[\/QUOTE\])"
while re.test(strContent)
strContent=re.Replace(strContent,"<blockquote>引用:<hr class=bordercolor><span>$2</span><hr class=bordercolor></blockquote>")
wend
re.Pattern="(\[w\])(.*?)(\[\/w\])"
strContent=re.Replace(strContent,"<IFRAME FRAMEBORDER=1 ALIGN=CENTER width=100% HEIGHT=400 SCROLLING=YES SRC=https://www.jb51.net/article/$2></iframe><br>页面：<A HREF=https://www.jb51.net/article/$2 target=_blank>点这儿参观</A>")
end if '大空间标签
re.Pattern="(\[ATTACHMENT=(.*?)\])(.*?)(\[\/ATTACHMENT\])"
strContent= re.Replace(strContent,"<p><img src=https://www.jb51.net/images/attachment.gif> <a href=""https://www.jb51.net/article/$2"" TARGET=_blank title=""提示："&chr(13)&"您可以单击右键另存为把该文件下载到本地机器"">$3</a><p>")
re.Pattern="(\[URL\])(.*?)(\[\/URL\])"
strContent= re.Replace(strContent,"<A HREF=""https://www.jb51.net/article/$2"" TARGET=_blank>$2</A>")
re.Pattern="(\[URL=(http|https|ftp|rtsp|mms)(:\/\/)(.*?)\])(.*?)(\[\/URL\])"
strContent= re.Replace(strContent,"<A HREF=""https://www.jb51.net/article/$2$3$4"" TARGET=_blank>$5</A>")
re.Pattern="(\[EMAIL\])(.*?)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"<A HREF=""https://www.jb51.net/mailto:$2"">$2</A>")
re.Pattern="(\[EMAIL=(.*?)\])(.*?)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"<A HREF=""https://www.jb51.net/mailto:$2"" TARGET=_blank>$3</A>")
re.Pattern = "(^|\s|<br>|<p>)(http|https|ftp|rtsp|mms)(:\/\/)(\S+)"
strContent = re.Replace(strContent,"$1<a target=_blank href=https://www.jb51.net/article/$2$3$4>$4</a>")
re.Pattern = "(^|\s|<br>|<p>)()(\S+)"
strContent = re.Replace(strContent,"$1<a target=_blank href=https://$2$3>$2$3</a>")
'文本效果
re.Pattern="(\[list\])(.+?)(\[\/list\])"
strContent=re.Replace(strContent,"<UL TYPE=SQUARE>$2</UL>")
re.Pattern="(\[list=)(A|1)(\])(.+?)(\[\/list\])"
strContent=re.Replace(strContent,"<OL TYPE=https://www.jb51.net/article/$2>$4</OL>")
re.Pattern="(\[\*\])"
strContent=re.Replace(strContent,"<LI>")
re.Pattern="(\[color=(.*?)\])(.*?)(\[\/color\])"
strContent=re.Replace(strContent,"<font color=https://www.jb51.net/article/$2>$3</font>")
re.Pattern="(\[#(.{6}?)\])(.*?)(\[\/#\])"
strContent=re.Replace(strContent,"<font color=#$2>$3</font>")
re.Pattern="(\[font=(.*?)\])(.*?)(\[\/font\])"
strContent=re.Replace(strContent,"<font face=https://www.jb51.net/article/$2>$3</font>")
re.Pattern="(\[align=(left|center|right)\])(.*?)(\[\/align\])"
strContent=re.Replace(strContent,"<div align=https://www.jb51.net/article/$2>$3</div>")
re.Pattern="(\[fly\])(.*?)(\[\/fly\])"
strContent=re.Replace(strContent,"<marquee width=90% behavior=alternate scrollamount=3>$2</marquee>")
re.Pattern="(\[move\])(.*?)(\[\/move\])"
strContent=re.Replace(strContent,"<MARQUEE scrollamount=3>$2</marquee>")
re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*?)\[\/GLOW]"
strContent=re.Replace(strContent,"<table width=https://www.jb51.net/article/$1filter:glow(color=https://www.jb51.net/article/$2, strength=https://www.jb51.net/article/$3)"">$4</table>")
re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*?)\[\/SHADOW]"
strContent=re.Replace(strContent,"<table width=https://www.jb51.net/article/$1filter:shadow(color=https://www.jb51.net/article/$2, strength=https://www.jb51.net/article/$3)"">$4</table>")
re.Pattern="(\[i\])(.*?)(\[\/i\])"
strContent=re.Replace(strContent,"<i>$2</i>")
re.Pattern="(\[u\])(.*?)(\[\/u\])"
strContent=re.Replace(strContent,"<u>$2</u>")
re.Pattern="(\[b\])(.*?)(\[\/b\])"
strContent=re.Replace(strContent,"<b>$2</b>")
re.Pattern="(\[sup\])(.*?)(\[\/sup\])"
strContent=re.Replace(strContent,"<sup>$2</sup>")
re.Pattern="(\[sub\])(.*?)(\[\/sub\])"
strContent=re.Replace(strContent,"<sub>$2</sub>")
re.Pattern="\[size=([+|-]?[0-7])\](.*?)(\[\/size\])"
strContent=re.Replace(strContent,"<font size=https://www.jb51.net/article/$1>$2</font>")
re.Pattern="(\[center\])(.*?)(\[\/center\])"
strContent=re.Replace(strContent,"<center>$2</center>")
set re=Nothing
gmt=strContent
end function