Function UBBEnCode(Content)

fString=Content
fString=replace(fString,"<","<")
fString=replace(fString,">",">")
fString=replace(fString,chr(13),"
")
fString = doCode(fString, "[b]", "[/b]", "", "")
fString = doCode(fString, "[s]", "[/s]", "", "")
fString = doCode(fString, "[strike]", "[/strike]", "", "")
fString = doCode(fString, "[u]", "[/u]", "", "")
fString = doCode(fString, "[i]", "[/i]", "", "")

fString = doCode(fString, "[font=Andale Mono]", "[/font=Andale Mono]", "", "")
fString = doCode(fString, "[font=Arial]", "[/font=Arial]", "", "")
fString = doCode(fString, "[font=Arial Black]", "[/font=Arial Black]", "", "")
fString = doCode(fString, "[font=Book Antiqua]", "[/font=Book Antiqua]", "", "")
fString = doCode(fString, "[font=Century Gothic]", "[/font=Century Gothic]", "", "")
fString = doCode(fString, "[font=Courier New]", "[/font=Courier New]", "", "")
fString = doCode(fString, "[font=Comic Sans MS]", "[/font=Comic Sans MS]", "", "")
fString = doCode(fString, "[font=Georgia]", "[/font=Georgia]", "", "")
fString = doCode(fString, "[font=Impact]", "[/font=Impact]", "", "")
fString = doCode(fString, "[font=Tahoma]", "[/font=Tahoma]", "", "")
fString = doCode(fString, "[font=Times New Roman]", "[/font=Times New Roman]", "", "")
fString = doCode(fString, "[font=Trebuchet MS]", "[/font=Trebuchet MS]", "", "")
fString = doCode(fString, "[font=Script MT Bold]", "[/font=Script MT Bold]", "", "")
fString = doCode(fString, "[font=Stencil]", "[/font=Stencil]", "", "")
fString = doCode(fString, "[font=宋体]", "[/font=宋体]", "", "")
fString = doCode(fString, "[font=Verdana]", "[/font=Verdana]", "", "")
fString = doCode(fString, "[font=Lucida Console]", "[/font=Lucida Console]", "", "")

fString = doCode(fString, "[red]", "[/red]", "", "")
fString = doCode(fString, "[green]", "[/green]", "", "")
fString = doCode(fString, "[blue]", "[/blue]", "", "")
fString = doCode(fString, "[white]", "[/white]", "", "")
fString = doCode(fString, "[purple]", "[/purple]", "", "")
fString = doCode(fString, "[yellow]", "[/yellow]", "", "")
fString = doCode(fString, "[violet]", "[/violet]", "", "")
fString = doCode(fString, "[brown]", "[/brown]", "", "")
fString = doCode(fString, "[black]", "[/black]", "", "")
fString = doCode(fString, "[pink]", "[/pink]", "", "")
fString = doCode(fString, "[orange]", "[/orange]", "", "")
fString = doCode(fString, "[gold]", "[/gold]", "", "")
fString = doCode(fString, "[beige]", "[/beige]", "", "")
fString = doCode(fString, "[teal]", "[/teal]", "", "")
fString = doCode(fString, "[navy]", "[/navy]", "", "")
fString = doCode(fString, "[maroon]", "[/maroon]", "", "")
fString = doCode(fString, "[limegreen]", "[/limegreen]", "", "")

fString = doCode(fString, "[h1]", "[/h1]", "

", "

")
fString = doCode(fString, "[h2]", "[/h2]", "

", "

")
fString = doCode(fString, "[h3]", "[/h3]", "

", "

")
fString = doCode(fString, "[h4]", "[/h4]", "

", "

")
fString = doCode(fString, "[h5]", "[/h5]", "

", "

")
fString = doCode(fString, "[h6]", "[/h6]", "

", "

")
fString = doCode(fString, "[size=1]", "[/size=1]", "", "")
fString = doCode(fString, "[size=2]", "[/size=2]", "", "")
fString = doCode(fString, "[size=3]", "[/size=3]", "", "")
fString = doCode(fString, "[size=4]", "[/size=4]", "", "")
fString = doCode(fString, "[size=5]", "[/size=5]", "", "")
fString = doCode(fString, "[size=6]", "[/size=6]", "", "")
fString = doCode(fString, "[list]", "[/list]", "

", "

")
fString = doCode(fString, "[list=1]", "[/list=1]", "

", "

")
fString = doCode(fString, "[list=a]", "[/list=a]", "

", "

")
fString = doCode(fString, "[*]", "[/*]", "

", "

")
fString = doCode(fString, "[left]", "[/left]", "")
fString = doCode(fString, "[center]", "[/center]", "", "")
fString = doCode(fString, "[centre]", "[/centre]", "", "")
fString = doCode(fString, "[right]", "[/right]", "")
fString = doCode(fString, "[code]", "[/code]", "

", "

")
fString = doCode(fString, "[quote]", "[/quote]", "

quote:

---

", "

---

")
fString = doCode(fString, "[url="", ""]", "[url=""", """]")
fString = doCode(fString, "[URL="", ""]", "[url=""", """]")
fString = doCode(fString, "[url", "[/url]", "", "")
fString = replace(fString, "[br]", "
", 1, -1, 1)
 
UBBEnCode=fString
End Function
%>