<%
'***********************************
'Fungsi: htmlencode (pembatasan)
'Parameter: Membatasi, string yang akan dikodekan
'Penulis: Alixi
'Tanggal: 2007/7/15
'Deskripsi: Konversi kode HTML
'Contoh: htmlencode ("<p> Selamat datang di <br> Alixi </p>")
'***********************************
FunctionHtmlencode (pembatasan)
DIMSTR: STR = Batasan
IFNOTISNULL (STR) lalu
Str = unceckstr (str)
Str = ganti (str, "&", "&")
Str = ganti (str, ">", ">")
Str = ganti (str, "<", "<")
Str = ganti (str, chr (32), "")
Str = ganti (str, chr (9), "")
Str = ganti (str, chr (9), "")
Str = ganti (str, chr (34), "")
Str = ganti (str, chr (39), "'")
Str = ganti (str, chr (13), "")
Str = ganti (str, chr (10), "<br>")
Htmlencode = str
Endif
Fungsi endfungsi
'Kode HTML konversi terbalik
FunctionHtmldecode (pembatasan)
DIMSTR: STR = Batasan
IFNOTISNULL (STR) lalu
Str = ganti (str, "&", "&")
Str = ganti (str, ">", ">")
Str = ganti (str, "<", "<")
Str = ganti (str, "", chr (32))
Str = ganti (str, "", chr (9))
Str = ganti (str, "", chr (9))
Str = ganti (str, "", chr (34))
Str = ganti (str, "'", chr (39))
Str = ganti (str, "", chr (13))
Str = ganti (str, "<br>", chr (10))
Htmldecode = str
Endif
Fungsi endfungsi
%>