Как реализовать функцию, которая фильтрует ключевые слова ASP? Я считаю, что это проблема для многих новых друзей, которые изучают ASP. Итак, давайте посмотрим на введение функций реализации ключевых слов фильтрации ASP. Я надеюсь, что это будет полезно для вас.
Фильтруя ключевые слова <%
'*********************************
'Функция: CHKKEYWORD (KeyVal Keyword)
'Параметр: ключевое слово, ключевое слово
Автор: Аликси
Дата: 2007/7/15
'Описание: Фильтруя ключевые слова
Пример: CHKKEYWORD ("SFSDFDF'8 & 5DDD")
'*********************************
Функция chkkeyword (ключевое слово Byval)
Dim Fobwords, я
При ошибке резюме следующим
FOBWORDS = массив (91, 92, 304, 305, 430, 431, 437, 438, 12460, 12461, 12462, 12463, 12464, 12465, 12466, 12467, 12468, 12469, 12470, 12471, 12472, 12473, 12474, 12474, 12474, 12474, 12474, 12474, 12474, 12474, 12474, 12474, 12474, 12474, 12474, 12474, 12474, 12474, 12474, 12474, 12469, 12470, 12471. 12476, 12477, 12478, 12479, 12480, 12481, 12482, 12483, 12485, 12486, 12487, 12488, 12489, 12490, 12496, 12497, 12498, 12499, 12500, 12501, 12502, 12503, 12504, 12505, 12506, 12507, 12508, 12509, 12510, 12521, 12532, 12533, 65339, 65340)
Для i = 1 до Ubound (Fobwords, 1)
Если instr (ключевое слово, chrw (fobwords (i)))> 0 тогда
Ключевое слово = заменить (ключевое слово, chrw (fobwords (i)), "")
Конец, если
Следующий
Ключевое слово = слева (ключевое слово, 100)
Fobwords = array ("~", "!", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "_", "+", ",", "" ",", "]", "", "", "", "", "", "", "", "," "", "" "," "", "", "", "", "", "", ",", "", "", "", ",", ",", ",", ",", "", "", "", "", "", ",", ",", ",", ",", ",", "" " ">", ".", "/", "/", "?", "?", "_")
Для i = 0 до ubound (Fobwords, 1)
Если instr (ключевое слово, fobwords (i))> 0 тогда
Ключевое слово = заменить (ключевое слово, fobwords (i), "")
Конец, если
Следующий
Chkkeyword = ключевое слово
Конечная функция%>
Выше всего содержание этой статьи. Я надеюсь, что это будет полезно для каждого обучения, и я надеюсь, что все будут поддерживать неправильный новый технологический канал.