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
위의 코드는 정규식을 이용해서 문자열이 패턴만으로 이뤄졌는지 확인하는 함수 입니다.
사용 방법은
response.write Word_check("문자열","패턴")
몇가지 패턴을 적어보자면
pattern0 = "[^가-힣]" '한글만
pattern1 = "[^-0-9 ]" '숫자만
pattern2 = "[^-a-zA-Z]" '영어만
pattern3 = "[^-가-힣a-zA-Z0-9/ ]" '숫자와 영어 한글만
pattern4 = "<[^>]*>" '태그만
pattern5 = "[^-a-zA-Z0-9/ ]" '영어 숫자만
Word_check(id,pattern5)..
true나false가 반환
출처 : http://blog.naver.com/hyanghee77/90016820574
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
위의 코드는 정규식을 이용해서 문자열이 패턴만으로 이뤄졌는지 확인하는 함수 입니다.
사용 방법은
response.write Word_check("문자열","패턴")
몇가지 패턴을 적어보자면
pattern0 = "[^가-힣]" '한글만
pattern1 = "[^-0-9 ]" '숫자만
pattern2 = "[^-a-zA-Z]" '영어만
pattern3 = "[^-가-힣a-zA-Z0-9/ ]" '숫자와 영어 한글만
pattern4 = "<[^>]*>" '태그만
pattern5 = "[^-a-zA-Z0-9/ ]" '영어 숫자만
Word_check(id,pattern5)..
true나false가 반환
출처 : http://blog.naver.com/hyanghee77/90016820574
'asp' 카테고리의 다른 글
레코드셋 읽어서 변수 자동 생성 (0) | 2010.03.03 |
---|---|
CAPTCHA(completely automated public Turing test to tell computers and humans apart) (0) | 2010.03.03 |
http://www.xx.xx/domain <ㅡ 이런식으로 주소 사용하기 (0) | 2010.03.03 |
Response 객체 (0) | 2010.02.24 |
Microsoft CAPICOM (0) | 2010.02.22 |