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