asp 简单ubb代码转换程序

2015-08-12 16:02:39来源:作者:人点击

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

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台