一聚教程网:一个值得你收藏的教程网站

热门教程

asp 简单ubb代码转换程序

时间:2022-07-02 22:36:34 编辑:袖梨 来源:一聚教程网

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

热门栏目