권장 : ASP 개발에서 유용한 기능 모음 (2) ASP 개발에서 유용한 기능 모음이 매우 유용합니다. 보관하십시오! '*************************************** 'Filtering hyperlink'********************************* Function checkURL(ByVal ChkStr) Dim str:str=ChkStr str=Trim(str) If IsNull(str) Then chec
ASP 개발에서 유용한 기능 모음이 매우 유용합니다! 나는 모두가 그것을 유지하기를 바랍니다!
<%
'**************************************
'외부 제출 방지
'**************************************
함수 chkpost ()
Dim Server_v1, Server_v2
chkpost = false
server_v1 = cstr (request.servervariables (http_referer))
server_v2 = cstr (request.servervariables (server_name))
MID (server_v1,8, len (server_v2)) <> server_v2입니다
chkpost = false
또 다른
chkpost = true
끝 If
엔드 기능
'**************************************
'IP 필터링
'**************************************
함수 matchip (IP)
다음에 오류가 재개됩니다
matchip = false
희미한 모금, 분할
Filterip의 각 모금마다
sip = 교체 (sip,*,/d*)
splitip = split (sip,.)
Dim Re, Strmatchs, 스트립
RE = New Regexp를 설정합니다
re.ignorecase = true
re.global = true
re.pattern = (& splitip (0) |). (& splitip (1) |). (& splitip (2) |). (& splitip (3) |)
strmatchs = re.Execute (IP)
Strip = strmatchs (0) .Submatches (0) &. & strmatchs (0) .Submatches (1) &. & strmatchs (0) .Submatches (2) &. & strmatchs (0) .Submatches (3)
Strip = ip 인 경우 matchip = true : Exit 함수입니다
strmatchs = 아무것도 설정하십시오
RE = 아무것도 설정하지 않습니다
다음
엔드 기능
'**************************************
'등록 코드를 받으십시오
'**************************************
함수 getCode ()
getCode = <img src = common/getcode.asp alt = style = 마진-오른쪽 : 40px;/>
엔드 기능
'**************************************
'파일 유형 제한
'**************************************
기능 isvalidfile (file_type)
isvalidfile = false
희미한 gname
UP_FILETYPE의 각 gname에 대해
파일 _type = gname이면
isvalidfile = true
종료
끝 If
다음
엔드 기능
'**************************************
'영어와 숫자 만 포함 되든 감지
'**************************************
기능 isvalidchars (str)
Dim Re, chkstr
RE = New Regexp를 설정합니다
re.ignorecase = true
re.global = true
re.pattern = [^_/. a-za-z/d]
isvalidchars = true
chkstr = re.replace (str,)
chkstr <> str이면 isvalidchars = false입니다
RE = 아무것도 설정하지 않습니다
엔드 기능
'**************************************
'영어와 숫자 만 포함 되든 감지
'**************************************
기능 isvalidValue (Arrayn, Str)
isvalidValue = false
희미한 gname
배열의 각 gname에 대해
str = gname이면
isvalidValue = true
종료
끝 If
다음
엔드 기능
'**************************************
'숫자가 유효한지 감지하십시오
'**************************************
기능 ISINTEGER (para)
isinteger = false
그렇지 않은 경우 (isnull (para) 또는 trim (para) = 또는 isnumeric (para))
isinteger = true
끝 If
엔드 기능
'**************************************
'사용자 이름 감지
'**************************************
기능 isvalidusername (byval username)
다음에 오류가 재개됩니다
Dim I, c
희미한 vusername
isvalidusername = true
i = 1 to len (사용자 이름)
c = lcase (MID (사용자 이름, i, 1))
악기 (! <>?#^%@~ ~ ~ ~ (); :+= ', c)> 0이면
isvalidusername = false
종료 기능
끝 If
다음
register_username의 각 vusername에 대해
username = vusername 인 경우
isvalidusername = false
종료
끝 If
다음
엔드 기능
'**************************************
'이메일 주소가 유효한지 확인하십시오
'**************************************
기능 isValidEmail (이메일)
희미한 이름, 이름, i, c
isvalideMail = true
names = split (이메일, @)
Ubound (names) <> 1 인 경우
isvalideMail = false
종료 기능
끝 If
이름의 각 이름에 대해
LEN (이름) <= 0이면
isvalideMail = false
종료 기능
끝 If
i = 1 to len (이름)
c = lcase (중간 (이름, i, 1))
인스턴트 (abcdefghijklmnopqrstuvwxyz_-., c) <= 0이고 isnumeric (c)가 아닌 경우
isvalideMail = false
종료 기능
끝 If
다음
남은 경우 (이름, 1) =. 또는 오른쪽 (이름, 1) =. 그 다음에
isvalideMail = false
종료 기능
끝 If
다음
악기 (names (1),.) <= 0 인 경우
isvalideMail = false
종료 기능
끝 If
i = len (names (1)) - instrev (names (1),.)
I <> 2와 I <> 3이라면 그럼
isvalideMail = false
종료 기능
끝 If
악기 (이메일, ..)> 0 인 경우
isvalideMail = false
끝 If
엔드 기능
'**************************************
'키워드를 강조합니다
'**************************************
기능 하이라이트 (Byval Strcontent, Byref Arraywords)
Dim Intcounter, strtemp, intpos, inttaglength, intkeywordlength, bupdate
LEN (Arraywords) <1 인 경우 하이라이트 = strcontent : Exit 함수
intpos = 1 to len (strcontent)의 경우
bupdate = false
MID (strcontent, intpos, 1) = <<그때
다음에 오류가 재개됩니다
inttaglength = (instr (intpos, strcontent,>, 1) - intpos)
그렇다면
하이라이트 = strcontent
err.clear
끝 If
strtemp = strtemp & mid (strcontent, intpos, inttaglength)
intpos = intpos + inttaglength
끝 If
배열 <>라면
intkeywordlength = len (배열)
lcase (mid (strcontent, intpos, intkeywordlength)) = lcase (배열) 인 경우
strtemp = strtemp & <span class = high1> & mid (strcontent, intpos, intkeywordlength) & </span>
intpos = intpos + intkeywordlength -1
bupdate = true
끝 If
끝 If
bupdate = false 인 경우
strtemp = strtemp & mid (strcontent, intpos, 1)
끝 If
다음
하이라이트 = strtemp
엔드 기능
공유 : ASP 개발에서 유용한 기능 모음 (3) ASP 개발에서 유용한 기능 모음이 매우 유용합니다. 보관하십시오! '*************************************** 'Slice content-Split by line'****************************** Function SplitLines(byVal Content,byVal ContentNums) Dim ts,i,l ContentNums=int(