Функция CheckTheChar(TheChar,TheString)
'TheChar="Строка, которую необходимо обнаружить"
'TheString="Строка, которую необходимо обнаружить"
если inStr(TheString,TheChar), то
для n = 1 до Len(TheString)
если Mid(TheString,n,Len(TheChar))=TheChar, то
CheckTheChar=CheckTheChar+1
Конец, если
Следующий
CheckTheChar="этот символ"&CheckTheChar&"times"
еще
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" метод="post" action="">
<p>Введите две строки:</p>
<p> Строка 1:
<input name="text1" type="text" id="text">
</p>
<p> Строка 2:
<input name="text2" type="text" id="text">
<input type="submit" name="Submit" value="Submit">
</p>
</форма>
<%
Дим
X=Запрос.Форма("текст1")
Y=Запрос.Форма("текст2")
Если X<>"" и Y<>"" Тогда
%>
<p>Строка 1: <%=X%></p>
<p>Строка 2: <%=Y%></p>
<p>Количество раз, когда строка 1 появляется в строке 2<%=SearchChar(X,Y)%></p>
<%
Конец, если
%>
После простого преобразования его можно превратить в функцию, которая определяет наличие в содержимом сообщения более двух URL-адресов и блокирует его.