Function RegExpContent(str)
Dim ptrn, repstr
ptrn = "((http|https|ftp|telnet|news):\/\/[a-z0-9-]+\.[][a-zA-Z0-9:&#@=_~%;\?\/
\.\+-]+)"
repstr = "<a href=""$1"" target=""_blank"">$1</a>"
RegExpContent = ReplaceEreg(ptrn, repstr, str)
End Function
Function ReplaceEreg(ptrn, repstr, str)
Dim regEx
Set regEx =
New RegExp
regEx.Pattern = ptrn
regEx.IgnoreCase =
True
regEx.Global = True
ReplaceEreg = regEx.Replace(str,
repstr)
End Function
content = "다음은 asprun 홈페이지 주소이다. http://www.naver.com/ 기억해주세요"
content = RegExpContent(content)
content = "<pre>"& content
&"</pre>"
response.write content
%>