| 发表于:2007-01-12 09:06:332楼 得分:0 |
这有个函数 function htmlencode(fstring) if not isnull(fstring) then fstring = replace(fstring, "> ", "> ") fstring = replace(fstring, " < ", "< ") fstring = replace(fstring, chr(32), " ") fstring = replace(fstring, chr(34), "" ") fstring = replace(fstring, chr(39), "' ") fstring = replace(fstring, chr(13), " ") fstring = replace(fstring, chr(10) & chr(10), " </p> <p> ") fstring = replace(fstring, chr(10), " <br> ") htmlencode = fstring end if end function 你用htmlencode(文章内容)调用看看! | | |
|