asp 정규 표현 식 http 시작 함수 검출

'\#\##\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#'함수:ishttp[str]'매개 변수:str,처리 할 문자열'작성 자:나무'날짜:2007/7/12'설명:HTTP 연결 주소 나 주소 표시 줄 이 HTTP 로 시작 되 는 지 확인'예제:<%=ishttp(ishttp)http://www.alixixi.com)%> '#################################### Function ishttp(str) Dim regEx Set regEx = New RegExp regEx.Pattern = "^(http|HTTP)[A-Za-z]{0,1}\:\/\/" ishttp = regEx.Test(str) End function 메 일 주소 가 표준<%'***********************************'함수:isemail(strng)'매개 변수:strng,검 증 된 메 일 주소'작성 자:아 리 시'날짜:2007/7/13'설명:메 일 주소 가 표준 에 부합 되 는 지 검증'예시:<%=isemail([email protected])%> '****************************** Function isemail(strng)     isemail = false     Dim regEx, Match     Set regEx = New RegExp     regEx.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$"      regEx.IgnoreCase = True     Set Match = regEx.Execute(strng)     if match.count then isemail= true End 기능%>정규 표현 식 검 측 중국 이동 전화 번호'********************************************************'함수:mobilecheck[str]'파라미터:str,처리 할 문자열'작성 자:나무'날짜:2007/7/12'설명:휴대 전화 번호 검사'예시:<%=mobilecheck("13912345678")%>'****************************************************************기능 mobilecheck(str) Dim regEx Set regEx = New RegExp regEx.Pattern = "^(13[4-9]|15(8|9))\d{8}$" mobilecheck= regEx.Test(str) End Function