'======================================================
'函数名 : fphtmlencode
'作用 : 标题过滤
'参数 : FString ------ 字符串
'======================================================
Functtmlencode (FString)
Ifisnull (fString) = falseorfstring <> "" orfstring <> "$ false $" entonces
fString = nohtml (fString)
FString = FilterJS (FString)
fString = reemplazar (fString, "", "")
fString = reemplazar (fString, "", "")
fString = reemplazar (fString, "'", "")
fString = reemplazar (fString, ">", "")
fString = reemplazar (fString, "<", "")
fString = reemplazar (fString, chr (9), "") '
fString = reemplazar (fString, chr (10), "")
fString = reemplazar (fString, chr (13), "")
fString = reemplazar (fString, chr (34), "")
fString = reemplazar (fString, chr (32), "") 'espacio
fString = reemplazar (fString, chr (39), "")
fString = reemplazar (fString, chr (10) y chr (10), "")
fString = reemplazar (fString, chr (10) y chr (13), "")
fString = TRIM (fString)
Fphtmlencode = fString
Demás
Fphtmlencode = "$ falso $"
Endif
Función final