asp 简单ubb代码转换程序
发布时间：2015-06-05 来源：查字典编辑
摘要：functionHTMLConvert(fString)ifnotisnull(fString)thenfString=replace(fS...
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]-","<br>")
HTMLConvert = fString
end if
end function