asp 简单ubb代码转换程序

function  HTMLConvert(fString)
if not isnull(fString) then
fString = replace(fString,   ">",   ">")
fString = replace(fString,   "<",   "<")
fString = Replace(fString,   CHR(34),   """)
fString = replace(fString,   CHR(32)," ")
fString = Replace(fString,   CHR(39),   "'")
Fstring = Replace(fString,   "-[ChangeLine]-","
")
HTMLConvert = fString
end if  
end function