정규식을 사용하여 asp <% 아래 문자열의 URL에 링크를 추가하는 코드
'입력란에 URL에 대한 링크를 추가하세요.
함수ToLink(Str)
Dim RE '정규 표현식 객체 Dim strContent
IsNull(Str)이면 Str =
Set RE = New RegExp '정규식 객체 생성
RE와 함께
.Global = True '검색은 전체 문자열에 적용됩니다.
.IgnoreCase = True '대소문자를 구분하지 않고 검색합니다.
strContent = Str
'************************************************ * *****************
'이메일 주소 링크가 자동으로 설정됩니다.
'************************************************ * *****************
.패턴 = ([/w]*)@([/w/.]*)
strContent = .Replace(strContent, <A Href='mailto:$1@$2'>$1@$2</A> )
'************************************************ * *****************
'링크가 자동으로 설정됩니다.
'************************************************ * *****************
'======필요에 따라 프로토콜 이름을 추가하세요========
희미한 D(3), 나
D(0) = http
D(1) = FTP
D(2) = 뉴스
D(3) = mms
'====================================
I = 0에서 UBound(D)로
.패턴 = D(I) + :////([/w/.]*)
strContent = .Replace(strContent, <A Href=' + D(I) + ://$1' target=_blank> + D(I) + ://$1</A> )
다음
'************************************************ * *****************
끝
RE = 없음으로 설정
ToLink = strContent
기능 종료
%>