[ASP] 자동링크 소스
function AutoLink (content) dim re Set re = New RegExp ' First Pass for http re.Pattern = "(\w+):\/\/([^/:]+)(:\d*\b)?([^# \nhttp://$1") ' Second Pass for mail re.Pattern = "([_0-9a-zA-Z-]+(\.[_0-9a-zA-Z-]+)*)@([0-9a-zA-Z-]+(\.[0-9a-zA-Z-]+)*)" AutoLink = re.Replace(content,"$1@$3") end function
Website 세상/Web Program
2009. 12. 28.
최근댓글