코드 사본은 다음과 같습니다.
functionhtmlencode (fstring)
그런 다음 ifnotisnull (fstring)
fstring = replace (fstring, ">", ">")
fstring = replace (fstring, "<", "<")
fstring = replace (fstring, chr (32), "")
fstring = replace (fstring, chr (9), "")
fstring = replace (fstring, chr (34), "")
fstring = replace (fstring, chr (39), " '")
fstring = replace (fstring, chr (13), "" ")
fstring = replace (fstring, chr (10) & chr (10), "</p> <p>")
fstring = replace (fstring, chr (10), "<br>")
htmlencode = fstring
endif
최종 기능 장애
functionsafe (str) '이 함수는 전달 된 변수에 특수 문자가 포함되어 있는지 확인하는 데 사용되며 true를 반환하지 않습니다.
Dims_badstr, n, i
s_badstr = " '& <>%,; :()`~!@#$^*{} [] | //+-="& chr (34) & chr (32)
n = len (s_badstr)
안전 = 참
fori = 1ton
ifinstr (str, mid (s_badstr, i, 1))> 0then
SAFE = FALSE
종료 기능
endif
다음
최종 기능 장애