함수 CheckTheChar(TheChar,TheString)
'TheChar="감지할 문자열입니다."
'TheString="감지할 문자열"
if inStr(TheString,TheChar) 그러면
n =1에서 Len(TheString)까지
Mid(TheString,n,Len(TheChar))=TheChar이면
CheckTheChar=CheckTheChar+1
다음과 같은 경우 종료
다음
CheckTheChar="이 문자"&CheckTheChar&"시간"
또 다른
CheckTheChar="0번"
종료하면
기능 종료
예:
프로그램 코드
Response.Write CheckTheChar("모두","a224everyone4a434a4everyone654arewr4a4a")
프로그램 코드
<%
'문자열 Str1이 문자열 Str2에 나타나는 횟수를 감지합니다.
공용 함수 SearchChar(Str1, Str2)
딤아이, 카운터
카운터 = 0
InStr(Str2, Str1)이면
I = 1에서 Len(Str2)으로
Mid(Str2, I, Len(Str1))=Str1이면
카운터 = 카운터 + 1
종료 조건
다음
다음과 같은 경우 종료
SearchChar=카운터
기능 종료
%>
<form name="form1" method="post" action="">
<p>두 개의 문자열을 입력하세요:</p>
<p> 문자열 1:
<입력 이름="text1" type="text" id="text">
</p>
<p> 문자열 2:
<입력 이름="text2" type="text" id="text">
<input type="submit" name="제출" value="제출">
</p>
</form>
<%
어둑한
X=Request.Form("텍스트1")
Y=요청.양식("텍스트2")
X<>"" 및 Y<>""인 경우
%>
<p>문자열 1: <%=X%></p>
<p>문자열 2: <%=Y%></p>
<p>문자열 1이 문자열 2에 나타나는 횟수<%=SearchChar(X,Y)%></p>
<%
종료 조건
%>
간단한 변환 후, 메시지 내용에 URL이 2개 이상 있을 경우 이를 감지하여 차단하는 기능으로 전환할 수 있습니다.