'==================================================
'： fphtmlencode
'： ： 标题过滤
'： fstring ------ 字符串
'==================================================
FunctionFphtmlencode (FSTRing)
ifisnull (fString) = falseorfstring <> "" orfstring <> "$ false $" ثم
fString = nohtml (fString)
fString = filterjs (fString)
fString = استبدال (fString ، "" ، "")
fString = استبدال (fString ، "" ، "")
fString = استبدال (fString ، "" "،" ")
fString = استبدال (fString ، ">" ، "")
fString = استبدال (fString ، "<" ، "")
fString = استبدال (fstring ، chr (9) ، "") ''
fString = استبدال (FSTRING ، CHR (10) ، "")
fString = استبدال (FSTRING ، CHR (13) ، "")
fString = استبدال (FSTRING ، CHR (34) ، "")
fString = استبدال (fString ، Chr (32) ، "") "الفضاء
fString = استبدال (FSTRING ، CHR (39) ، "")
fString = استبدال (FSTRING ، ChR (10) و CHR (10) ، "")
FSTRING = استبدال (FSTRING ، CHR (10) و CHR (13) ، "")
fString = trim (fString)
fphtmlencode = fString
آخر
fphtmlencode = "$ false $"
Endif
الوظيفية