'ASP的ubb代码转换函数

yagamilong

<%


%>

<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,"" & 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("代码转换")   
</script>