'========================================================
'函数名：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
エンド機能