<%
'*******************************
'기능 : checkstr (byvalchkst)
'매개 변수 : CHKSTR, 확인할 문자
'저자 : Alixi
'날짜 : 2007/7/15
'설명 : SQL 주입 위험 캐릭터를 다시 사용하십시오
'예 : checkstr ( "and1 = 1oSelect*from")
'*******************************
functioncheckstr (byvalchkst)
Dimstr : str = chkstr
str = trim (str)
그런 다음 ifisnull (str)
checkstr = ""
종료 기능
endif
딤 스
setre = newRegexp
re.ignorecase = true
re.global = true
re.pattern = "(/r/n) {3,}"
str = re.replace (str, "$ 1 $ $ 1")
setre = 아무것도
str = replace (str, " '", "' '")
str = replace (str, "select", "select")
str = replace (str, "join", "join")
str = replace (str, "Union", "Union")
str = replace (str, "여기서", "여기서")
str = replace (str, "삽입", "삽입")
str = replace (str, "delete", "delete")
str = replace (str, "update", "update")
str = replace (str, "like", "like")
str = replace (str, "drop", "drop")
str = replace (str ","create ","create ")
str = replace (str, "modify", "modify")
str = replace (str, "이름 바꾸기", "이름 바꾸기")
str = replace (str, "Alter", "Alter")
str = replace (str, "cast", "cast")
checkstr = str
최종 기능 장애
'위의 함수에 의해 처리 된 문자열을 디 컴파일하십시오
functionuncheckstr (str)
str = replace (str, "select", "select")
str = replace (str, "join", "join")
str = replace (str, "Union", "Union")
str = replace (str, "여기서", "여기서")
str = replace (str, "삽입", "삽입")
str = replace (str, "delete", "delete")
str = replace (str, "update", "update")
str = replace (str, "like", "like")
str = replace (str, "drop", "drop")
str = replace (str ","create ","create ")
str = replace (str, "modify", "modify")
str = replace (str, "이름 바꾸기", "이름 바꾸기")
str = replace (str, "Alter", "Alter")
str = replace (str, "cast", "cast")