ACTIVE SERVER PAGE

- 정규식 사용법

Dim objRegExp, strOutput
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True                               '// 대소문자 구분 여부
objRegExp.Global = True                                      '// 전체 검색여부
objRegExp.Pattern = 정규식패턴 

strOutput = objRegExp.Replace(검색문자열, 바꿀문자열)

Set objRegExp = Nothing


- 자주 사용하는 정규식
^가-힣                               '// 한글
[^-0-9 ]                             '// 숫자
[^-a-zA-Z]                         // 영문
<[^>]*>                             '// 태그이외

[^-가-힣a-zA-Z0-9/ ] '// 한글+영문+숫자
[^-a-zA-Z0-9/ ]                  '// 영문+숫자

\<(\/?)(script)([^<>]*)> '// 스크립트
 

Function Word_check(str,patrn)
		Dim regEx, match, matches

		SET regEx = New RegExp
		regEx.Pattern = patrn            ' 패턴을 설정합니다.
		regEx.IgnoreCase = True          ' 대/소문자를 구분하지 않도록 합니다.
		regEx.Global = True				 ' 전체 문자열을 검색하도록 설정합니다.
		SET Matches = regEx.Execute(str)

		if 0 < Matches.count then
			Word_check = false
		Else
			Word_check = true
		end if
	End Function

	


	pattern0 = "[^가-힣]"  '한글만
	pattern1 = "[^-0-9 ]"  '숫자만
	pattern2 = "[^-a-zA-Z]"  '영어만
	pattern3 = "[^-가-힣a-zA-Z0-9/ ]" '숫자와 영어 한글만 
	pattern4 = "<[^>]*>"   '태그만

	pattern5 = "[^-a-zA-Z0-9/ ]"    '영어 숫자만

	Response.write Word_check("최안규멋쟁이",pattern0)

이렇게 하시면 true나false가 반환 됩니다.