[求助]UBB转换成HTML函数问题 - ASP技术论坛

问题点数：0 回复次数：1

[求助]UBB转换成HTML函数问题

function UBBCode(strContent)

dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
'url
objRegExp.Pattern="(\[URL\])(http:\/\/\S+?)(\[\/URL\])"
strContent= objRegExp.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$2</A>")
objRegExp.Pattern="(\[URL\])(\S+?)(\[\/URL\])"
strContent= objRegExp.Replace(strContent,"<A HREF=""http://$2"" TARGET=_blank>$2</A>")

'email
objRegExp.Pattern="(\)(\S+\@\S+?)(\[\/EMAIL\])"
strContent= objRegExp.Replace(strContent,"<A HREF=""mailto:$2"">$2</A>")

objRegExp.Pattern="(\[IMG\])(\S+?)(\[\/IMG\])"
strContent=objRegExp.Replace(strContent,"<IMG SRC=""$2"">")

objRegExp.Pattern="(\[QUOTE\])(.+?)(\[\/QUOTE\])"
strContent=objRegExp.Replace(strContent,"<BLOCKQUOTE>quote:<HR>$2<HR></BLOCKQUOTE>")

objRegExp.Pattern="(\[i\])(.+?)(\[\/i\])"
strContent=objRegExp.Replace(strContent,"$2")

objRegExp.Pattern="(\[b\])(.+?)(\[\/b\])"
strContent=objRegExp.Replace(strContent,"$2")
set objRegExp=Nothing
UBBCode=strContent

end function

这个函数在运行的时候，提示strContent= objRegExp.Replace(strContent,"<A HREF=""mailto:$2"">$2</A>")这行的正则表达式有错，少了一个“）”，请各位帮忙看看是怎么回事。谢谢了。

搜索更多相关主题的帖子: objRegExp　UBB　函数　 HTML　