<%

function AutoLink (content)

  dim link
  Set link = New RegExp

  ' First Pass for http
  link.Pattern = "(\w+):\/\/([^/:]+)(:\d*\b)?([^# \n<]*).*\n"
  link.Pattern = "([0-9a-zA-Z./@:~?&=_-]+)"
  link.Pattern = "http://([0-9a-zA-Z./@:~?&=_-]+)"
  link.Global = True
  link.IgnoreCase = True

  ' ASP seems to be not supporting .MultiLine method.
  'link.MultiLine = True

   content = link.Replace(content,"<a target=_blank href='http://$1'>http://$1</a>")

   ' 메일주소 자동링크
   link.Pattern = "([_0-9a-zA-Z-]+(\.[_0-9a-zA-Z-]+)*)@([0-9a-zA-Z-]+(\.[0-9a-zA-Z-]+)*)"
   AutoLink = link.Replace(content,"<a href='mailto:$1@$3'>$1@$3</a>")

end function

%>

 

<%=Autolink(contents)%>

<%

   Function UrlLink(content)
    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(content,"<a href='$1' target='_blank'>$1</a>")
End Function

%>

<%=UrlLink(contents)%>