asp 簡單ubb代碼轉換程序

　　function  HTMLConvert(fString)
if not isnull(fString) then
fString = replace(fString   ">"   ">")
fString = replace(fString   "<"   "&lt;")
fString = Replace(fString   CHR()   "&quot;")
fString = replace(fString   CHR()"&nbsp;")
fString = Replace(fString   CHR()   "&#;")
Fstring = Replace(fString   "[ChangeLine]""<br>")
HTMLConvert = fString
end if  
end function

From:http://tw.wingwit.com/Article/program/net/201311/14077.html