function HTMLEncode(fString) if not isnull(fstring) then fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString, CHR(32), " ") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "</P><P>") fString = Replace(fString, CHR(10), "<BR>") fString = Replace(fString,"’","’’") HTMLEncode = fString end if end function
放入这个代码就OK了。去掉html |