コードコピーは次のとおりです。
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
次
エンド機能