Salinan kode adalah sebagai berikut:
functionHtmlencode (FString)
IFNOTISNULL (FString) lalu
fString = ganti (fstring, ">", ">")
fString = ganti (fstring, "<", "<")
fstring = ganti (fstring, chr (32), "")
fstring = ganti (fstring, chr (9), "")
fString = ganti (fstring, chr (34), "")
fstring = ganti (fstring, chr (39), "'")
fString = ganti (fstring, chr (13), "")
fString = ganti (fstring, chr (10) & chr (10), "</p> <p>")
fstring = ganti (fstring, chr (10), "<br>")
Htmlencode = fString
endif
fungsi endfungsi
Functionsafe (str) 'Fungsi ini digunakan untuk menentukan apakah variabel yang dilewatkan berisi karakter khusus, dan tidak mengembalikan true
DIMS_BADSTR, n, i
s_badstr = "'& <>?%,; :()` ~!@#$^*{} [] | //+-= "& chr (34) & chr (9) & chr (32)
n = len (s_badstr)
Aman = benar
Fori = 1ton
Ifinstr (str, mid (s_badstr, i, 1))> 0then
Aman = false
Fungsi keluar
Endif
Berikutnya
Fungsi endfungsi