해당 함수는 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>
댓글 없음:
댓글 쓰기