ASP 문자열 차단 기능
'************************************************ * *********
'함수: cutStr[str(strlen)]
'파라미터 : str, 처리할 문자열, strlen, 가로채는 길이
작가 : 무무
'날짜: 2007/7/12
'설명: 지정된 길이의 문자열을 가로챕니다.
'예: <%=cutStr("알릭시에 오신 것을 환영합니다",5)%>
'************************************************ * *********
함수 cutStr(str,strlen)
str = ""이면
cutStr = "cutStr 함수 예외: 문자열이 비어 있습니다."
종료 기능
종료 조건
'------------소스 길이 확인
strlen = ""이면
cutStr = "cutStr 함수 예외: 길이가 지정되지 않았습니다."
종료 기능
종료 조건
CInt(strlen) = 0이면
cutStr = "cutStr 함수 예외: 길이가 0입니다."
종료 기능
종료 조건
'----------소스 문자 길이 감지
희미한 l,t,c,i
l=길이(str)
티=0
'----------문자를 가로채는 루프
i=1에서 l까지
c=Abs(Asc(Mid(str,i,1)))
'------한자인지 판별
c>255이면
티=티+2
또 다른
티=티+1
endIf
'------지정된 길이에 도달했는지 확인
t>=strlen이면
cutStr=왼쪽(str,i)&".."
종료
또 다른
cutStr=str
종료하면
다음
cutStr=replace(cutStr,chr(10),"")
함수 종료
''************************************************ *********
'함수: strlen[str]
'매개변수: str, 처리할 문자열
작가 : 무무
'날짜: 2007/7/12
'설명: 문자열의 길이를 결정합니다. 한자의 길이는 2입니다.
'예: <%=strlen("알릭시에 오신 것을 환영합니다")%>
'************************************************ * *********
함수 strlen(str)
희미한 p_len
p_len=0
strlen=0
만약 Trim(str)<>""이면
p_len=len(트림(str))
xx=1에서 p_len까지
asc(mid(str,xx,1))<0이면
strlen=int(strlen) + 2
또 다른
strlen=int(strlen) + 1
종료하면
다음
종료하면
기능 종료
왼쪽의 n개 문자 '****************************************** 가로채기 * ****************
'함수: LeftTrue(str,n)
'파라미터 : str, 처리할 문자열, n, 가로채는 길이
작가 : 무무
'날짜: 2007/7/12
'설명 : n개의 문자를 왼쪽으로 표시(한자 자동인식) 기능
'예: <%=LeftTrue("알릭시에 오신 것을 환영합니다",6)%>
'************************************************ * *********
함수 LeftTrue(str,n)
len(str)<=n/2이면
LeftTrue=str
또 다른
희미한 TStr
희미한 l,t,c
나는 어둡다
l=길이(str)
t=l
TStr=""
티=0
i=1에서 l까지
c=asc(중간(str,i,1))
c<0이면 c=c+65536
c>255이면
티=티+2
또 다른
티=티+1
종료 조건
t>n이면 다음으로 종료합니다.
TStr=TStr&(mid(str,i,1))
다음
LeftTrue = TStr
종료 조건
기능 종료
관심을 가질 만한 기사: