帮我将这个VBScript方法改成Javascript,谢谢!

[lingye]

是一个UBB转HTML的方法,找不到JS的,只好改VBScript的.如果哪位朋友已有JS的,那最好不过了,谢谢!!
function UBBCode(strContent)

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

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>")

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

set objRegExp=Nothing
UBBCode=strContent
end function

[是是非非]

function UBBCode(strContent){
var r1=/(\[URL\])(http:\/\/\S+?)(\[\/URL\])/gim;
var r2=/(\[URL\])(\S+?)(\[\/URL\])/gim;
var r3=/(\[IMG\])(\S+?)(\[\/IMG\])/gim;
strContent=strContent.replace(r1,'<A HREF="$2" TARGET=_blank>$2</A>');
strContent=strContent.replace(r2,'<A HREF="http://$2" TARGET=_blank>$2</A>');
strContent=strContent.replace(r3,'<IMG SRC=""$2"">');
return strContent;
}

[lingye]

谢谢!