'============================================================================
': : Fphtmlencode
': : 标题过滤
': : Fstring ------ 字符串
'============================================================================
Functionfphtmlencode (fstring)
Ifisnull (fstring) = falseorfstring <> "" orfstring <> "$ false $" then
fstring = nohtml (fstring)
fstring = filterjs (fstring)
FSTRING = Заменить (FSTRING, "", "")
FSTRING = Заменить (FSTRING, "", "")
fstring = reply (fstring, "'", "")
fstring = reply (fstring, ">", "")
FSTRING = Заменить (fstring, "<", "")
fstring = reply (fstring, chr (9), "") '
FSTRING = Заменить (FSTRING, ChR (10), "")
FSTRING = Заменить (FSTRING, ChR (13), "")
fstring = reply (fstring, chr (34), "")
fstring = reply (fstring, chr (32), "") "пространство
fstring = reply (fstring, chr (39), "")
fstring = reply (fstring, chr (10) и chr (10), "")
FSTRING = reply (fstring, chr (10) и chr (13), "")
FSTRING = TRIM (FSTRING)
Fphtmlencode = fstring
Еще
Fphtmlencode = "$ false $"
Эндиф
Конечная функция