ASP的ubb代码转换函数

<Script language=vbscript>  
Function ubbcode(str)  
dim Usc  
Usc=str  
dim re  
set re = New RegExp  
re.Global = True  
re.IgnoreCase = True  
re.Pattern="(\[\/color\])"  
USC=re.Replace(USC,"[/color]" & VbCrLf)  
re.Pattern="\[color=*(#*[a-z0-9]*)\](.*)\[\/color\]"  
USC=re.Replace(USC,"<font color=""$1"">$2</font>")  
USC = Replace(USC,VbCrLf,"")  
ubbcode=USC  
end function  
msgbox ubbcode("[color=#ffffff]代码转换[/color]")  
</script>