해당 함수는 Content 중 URL을 자동으로 인식하여 링크를 시켜주는 함수 입니다.
<HTML>
<HEAD>
<TITLE>ASP 정규식</TITLE>
</HEAD>
<BODY>
<h1>ASP 정규식</h1><p>
<font size=2 face=굴림>
<%
Function UrlLink(strng)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "([^=""|='](http|https|ftp|telnet|news):\/\/[a-z0-9-]+\.[][a-zA-Z0-9:&#@=_~%;\?\/\.\+-]+)"
regEx.IgnoreCase = True
regEx.Global = True
UrlLink = regEx.Replace(strng,"<a href='$1' target='_blank'>$1</a>")
End Function
content = "홈페이지 : http://www.ihelpers.co.kr"
response.write "<b>Source : </b>" & content & "<br>"
response.write "<b>함수적용 : </b>" & UrlLink(content)
%>
</font>
</BODY>
</HTML>
출처 : 아이헬퍼스
'프로그래밍 > ASP' 카테고리의 다른 글
| ASP 고급기술? (0) | 2008.06.29 |
|---|---|
| [Ajax] ASP와 연동하여 우편번호 검색하기 (0) | 2008.06.29 |
| 코딩 규약 (HTML/ASP/JavaScript) (0) | 2008.06.29 |
| 다중 셀렉트 (0) | 2008.06.29 |
| ASP페이지를 정적인 HTML파일로 만들기 (0) | 2008.06.29 |
