asp 簡單ubb代碼轉換程序

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