コードコピーは次のとおりです。
functionhtmlencode（fstring）
ifnotisnull（fstring）then
fstring = falling（fstring、 ">"、 ">"）
fstring = falling（fstring、 "<"、 "<"）
fstring = cheplage（fstring、chr（32）、 ""）
fstring = cheplage（fstring、chr（9）、 ""）
fstring = cheplage（fstring、chr（34）、 ""）
fstring = ealling（fstring、chr（39）、 "'"）
fstring = ealling（fstring、chr（13）、 ""）
fString = cheplage（fstring、chr（10）＆chr（10）、 "</p> <p>"）
fstring = cheplage（fstring、chr（10）、 "<br>"）
htmlencode = fstring
endif
エンド機能
functionsafe（str） 'この関数は、渡された変数に特殊文字が含まれていて、真実を返さないかどうかを判断するために使用されます
dims_badstr、n、i
s_badstr = "'＆<>？％,; :(）`〜！@＃$^*{} [] | //+ - = "＆chr（34）＆chr（9）＆chr（32）
n = len（s_badstr）
safe = true
fori = 1ton
ifinstr（str、mid（s_badstr、i、1））> 0then
safe = false
exitFunction
endif
次
エンド機能