麻烦说清楚点可好,要不你就把代码帖全点
if instr(1,strContent,"[/url]",1)>0 then
re.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"<a href=""$2"" >$2</a>")
re.Pattern="(\[URL=(.[^\]]*)\])(.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"<a href=""$2"" >$3</a>")
end if