▒▒ ziwoo.net ▒▒ 지우넷 - 박명우 웹프로그램 관련 홈페이지

HTML

Javascript

Flash Actionscript

PHP

mySQL

ASP

MS-SQL

Linux

Others

Ziwoo Board

Portfolio

About

ASP

작성	2007-03-14 07:43:35 추천: 79 조회: 2145
제목	자동링크 함수
이름(ID)	지우 (ziwoo)

<%
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.asprun.co.kr 기억해주세요"

content = RegExpContent(content)
content = "<pre>"& content &"</pre>"

response.write content
%>


번호	제목	이름	날짜	추천	조회
13	배열이 진짜, 정말, 확실히 Null 인지 체크..	지우	2010-05-20	67	7638

12	에디트플러스 정규식 일괄 치환	지우	2010-03-21	63	3112

11	ASP용 md5 인코딩 함수입니다.	지우	2007-09-19	99	6869

10	에러발생을 무시하는 On Error Resume Next[1]	지우	2007-03-20	81	3842

9	Redim() 함수를 이용한 동적배열 사용[1]	지우	2007-03-19	86	11335

8	RegExp.Test() 메소드와 RegExp.Execute..	지우	2007-03-19	91	4687

7	쿠키 사용법	지우	2007-03-18	76	2560

6	ABC 업로드 컴퍼넌트 V4.1 파일 및 샘플	지우	2007-03-15	95	6874

5	Re: ABC 업로드 컴퍼넌트[2]	지우	2007-03-16	92	13974

4	자동링크 함수	지우	2007-03-14	79	2145

3	무료 이미지 리사이즈(GDI) - 나누미 컴퍼..	지우	2007-03-13	76	17370

2	Dictionnary 객체, Scripting 객체	지우	2007-03-08	79	3016

1	제3사 쿠키가 구워지지 않을때 강제 설정하..	지우	2006-05-11	94	6623

[1]

제목 내용 이름

ziwooboard v1.0

Contact Phone Number

Bank Account number

ns1.ziwoo.net (115.160.123.41)

ns2.ziwoo.net (115.160.123.41)