การคัดลอกรหัสมีดังนี้:
functionhtmlencode (fstring)
ifnotisnull (fstring) จากนั้น
fstring = แทนที่ (fstring, ">", ">")
fstring = แทนที่ (fstring, "<", "<")
fstring = แทนที่ (fstring, chr (32), "")
fstring = แทนที่ (fstring, chr (9), "")
fstring = แทนที่ (fstring, chr (34), "")
fstring = แทนที่ (fstring, chr (39), "'")
fstring = แทนที่ (fstring, chr (13), "")
fString = แทนที่ (fstring, chr (10) & chr (10), "</p> <p>")
fstring = แทนที่ (fstring, chr (10), "<br>")
htmlencode = fstring
endif
endfunction
ฟังก์ชั่น FunctionSafe (Str) 'ฟังก์ชั่นนี้ใช้เพื่อตรวจสอบว่าตัวแปรที่ผ่านมีอักขระพิเศษหรือไม่และไม่กลับจริง
dims_badstr, n, i
s_badstr = "'& <>?%,; :()` ~!@#$^*{} [] | //+-= "& Chr (34) & Chr (9) & Chr (32)
n = len (s_badstr)
ปลอดภัย = จริง
fori = 1ton
ifinstr (str, mid (s_badstr, i, 1))> 0 แล้ว
ปลอดภัย = เท็จ
exitfunction
endif
ต่อไป
endfunction