'===================================================
'函数名 ： fphtmlencode
'作用 ： 标题过滤
'参数 ： fString ------ 字符串
'===================================================
Functionfphtmlencode (fstring)
IfisNull (fString) = falseFString <> "" OrfString <> "$ false $" então
fString = nohtml (fstring)
fString = filterjs (fString)
fString = substituir (fstring, "", "")
fString = substituir (fstring, "", "")
fString = Substituir (fstring, "'", "")
fString = substituir (fstring, ">", "")
fString = substituir (fstring, "<", "")
fString = substituir (fstring, chr (9), "") '
fString = Substituir (FString, Chr (10), "")
fString = substituir (fstring, chr (13), "")
fString = Substituir (fstring, Chr (34), "")
fString = Substituir (fString, Chr (32), "") '' Espaço
fString = Substituir (FString, Chr (39), "")
FString = Substituir (FString, Chr (10) & Ch (10), "")
FString = Substituir (FString, Chr (10) e Chr (13), "")
fString = Trim (FString)
Fphtmlencode = fString
Outro
Fphtmlencode = "$ false $"
Endif
Função final