'===============================================================.
'函数名 ： fphtmlencode
'作用 ： 标题过滤
'参数 ： fstring ------ 字符串
'===============================================================.
FunctionfphtmLenCcode (fstring)
Ifisnull (fstring) = falseorfstring <> "" orfstring <> "$ false $" puis
fstring = nohtml (fstring)
fstring = filterjs (fstring)
fString = remplacer (fstring, "", "")
fString = remplacer (fstring, "", "")
fstring = remplacer (fstring, "'", "")
fString = remplacer (fstring, ">", "")
fString = remplacer (fstring, "<", "")
fString = remplacer (fstring, chr (9), "") '
fString = remplacer (fstring, chr (10), "")
fString = remplacer (fstring, chr (13), "")
fString = remplacer (fstring, chr (34), "")
fString = remplacer (fstring, chr (32), "") 'espace
fString = remplacer (fstring, chr (39), "")
fString = Remplace (FString, Chr (10) & Chr (10), "")
fString = remplacer (fstring, chr (10) & chr (13), "")
fstring = trim (fstring)
FphtmLencode = fstring
Autre
Fphtmlencode = "$ false $"
Endire
Finition de fin