자동 링크걸기 함수

<%

function AutoLink(text)

  Dim regEx

 

  Set regEx = New RegExp

  

  regEx.Pattern = "((http|ftp|https):\/\/[\w\-_]+(\.[\w\-_]+)+([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?)"

  regEx.IgnoreCase = True

 regEx.Global = True

 

  AutoLink = regEx.Replace(text, "<a href='$1'>$1</a>")

end function

 

dim txtTest

 

txtTest = "어쩌구 저쩌구...울랄라 http://www.naver.com 으로 보내주삼"

 

response.write AutoLink(txtTest)

%>