URL 자동링크 함수

프로그래밍/ASP

URL 자동링크 함수

백룡화검 2010. 4. 23. 21:20

해당 함수는 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>

출처 : 아이헬퍼스