function AutoLink (content)
dim re
Set re = New RegExp
' First Pass for http
re.Pattern = "(\w+):\/\/([^/:]+)(:\d*\b)?([^# \n<]*).*\n"
re.Pattern = "([0-9a-zA-Z./@:~?&=_-]+)"
re.Pattern = "http://([0-9a-zA-Z./@:~?&=_-]+)"
re.Global = True
re.IgnoreCase = True
' ASP seems to be not supporting .MultiLine method.
're.MultiLine = True
content = re.Replace(content,"<a target=_blank href='http://$1'>http://$1</a>")
' 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,"<a href='mailto:$1@$3'>$1@$3</a>")
end function
dim re
Set re = New RegExp
' First Pass for http
re.Pattern = "(\w+):\/\/([^/:]+)(:\d*\b)?([^# \n<]*).*\n"
re.Pattern = "([0-9a-zA-Z./@:~?&=_-]+)"
re.Pattern = "http://([0-9a-zA-Z./@:~?&=_-]+)"
re.Global = True
re.IgnoreCase = True
' ASP seems to be not supporting .MultiLine method.
're.MultiLine = True
content = re.Replace(content,"<a target=_blank href='http://$1'>http://$1</a>")
' 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,"<a href='mailto:$1@$3'>$1@$3</a>")
end function
'Website 세상 > Web Program' 카테고리의 다른 글
| persnal security 로인한클릭문제 (0) | 2010.03.10 |
|---|---|
| 무조건 다운로드 받기 (0) | 2009.11.23 |
| 동영상을 끝까지 봤는지 체크.. (0) | 2009.11.23 |
| 웹 개발자를 위한 Naming Rule 가이드 (0) | 2009.11.23 |
| 웹사이트 개발 체크리스트 (0) | 2009.11.23 |
