'========================================================
'函数名:fphtmlencode
'作用:标题过滤
'参数:fstring ------字符串
'========================================================
functionfphtmlencode(fstring)
ifisnull(fstring)= falseorfstring <> "" orfstring <> "$ false $" then
fstring = nohtml(fstring)
fstring = filterjs(fstring)
fstring = falling(fstring、 ""、 "")
fstring = falling(fstring、 ""、 "")
fstring =置換(fstring、 "'"、 "")
fstring = falling(fstring、 ">"、 "")
fstring = cheplage(fstring、 "<"、 "")
fstring = cheplage(fstring、chr(9)、 "") '
fstring = ealling(fstring、chr(10)、 "")
fstring = ealling(fstring、chr(13)、 "")
fstring = cheplage(fstring、chr(34)、 "")
fstring = falling(fstring、chr(32)、 "") 'スペース
fstring = cheplage(fstring、chr(39)、 "")
fstring = cheplage(fstring、chr(10)&chr(10)、 "")
fstring = cheplage(fstring、chr(10)&chr(13)、 "")
fstring = trim(fstring)
fphtmlencode = fstring
それ以外
fphtmlencode = "$ false $"
endif
エンド機能