'====================================================
'函数名 : fphtmlencode
'作用 : 标题过滤
'参数 : fString ------ 字符串
'====================================================
Functionfphtmlencode (fString)
Ifisnull (fString) = falseorfString <> "" orfstring <> "$ false $" Lalu
fString = nohtml (fString)
fString = filterjs (fString)
fstring = ganti (fstring, "", "")
fstring = ganti (fstring, "", "")
fString = ganti (fstring, "'", "")
fString = ganti (fstring, ">", "")
fstring = ganti (fstring, "<", "")
fString = ganti (fstring, chr (9), "") '
fString = ganti (fstring, chr (10), "")
fString = ganti (fstring, chr (13), "")
fString = ganti (fstring, chr (34), "")
fString = ganti (fstring, chr (32), "") 'space
fstring = ganti (fstring, chr (39), "")
fString = ganti (fstring, chr (10) & chr (10), "")
fString = ganti (fstring, chr (10) & chr (13), "")
fString = trim (fString)
Fphtmlencode = fString
Kalau tidak
Fphtmlencode = "$ false $"
Endif
Fungsi endfungsi