FpHtmlEnCode 函数之标题过滤特殊符号的代码

'==================================================
'函数名：fphtmlencode
'作  用：标题过滤
'参  数：fstring ------字符串
'==================================================
function fphtmlencode(fstring)
   if isnull(fstring)=false or fstring<>"" or fstring<>"$false$" then
       fstring=nohtml(fstring)
       fstring=filterjs(fstring)
       fstring = replace(fstring," "," ")
       fstring = replace(fstring,""","")
       fstring = replace(fstring,"'","")
       fstring = replace(fstring, ">", "")
       fstring = replace(fstring, "<", "")
       fstring = replace(fstring, chr(9), " ")' 
       fstring = replace(fstring, chr(10), "")
       fstring = replace(fstring, chr(13), "")
       fstring = replace(fstring, chr(34), "")
       fstring = replace(fstring, chr(32), " ")'space
       fstring = replace(fstring, chr(39), "")
       fstring = replace(fstring, chr(10) & chr(10),"")
       fstring = replace(fstring, chr(10)&chr(13), "")
       fstring=trim(fstring)
       fphtmlencode=fstring
   else
       fphtmlencode="$false$"
   end if
end function