<%
'*********************************
'Function: CheckQuery (Byvalstr)
'Аргументы: str ----- Поиск строки
Автор: Аликси
Дата: 2007/7/15
'Описание: ключевые слова, которые ограничивают поиск
Пример: CheckQuery (Str)
'*********************************
PublicfunctionCheckquery (byvalstr)
Dimfobwords, I, ключевое слово
Ключевое слово = str
OnerRorResumenext
FOBWORDS = массив (91,92,304,305,430 431 437 438 12460 12461 12462 12463 12464 12465 124 66,12467,12468,12469,12470,12471,12472,12473,12474,12475,12476 12477,12478,12479,1248 0,12481,12482,12483,12485,12486 12487 12488,12489 12490 12496 12497,12498 12499,12500 , 12501,12502,12503,12504,12505,12506,12507,12508,12509,12510,12532,12533,65339,65340)
Fori = 1toubound (fobwords, 1)
Ifinstr (ключевое слово, chrw (fobwords (i)))> 0then
Checkquery = false
Выходная функция
Эндиф
Следующий
Fobwords = array ("~", "!", "@", "#", "$", "%", "^", "&", "" "," (","), "_", "+", "+", ",", "", ","] ",", ",", "=", "", ",", ",", ",", ",", "", ",", ",", ","+","? " ";", ":", "" "" "", "" "," "", "" "," "", ">", ",", "/", ",", ",", "", ">", ",", "/", ",", ","? "? «Еще один«, «любой», «есть», «как», «at», «be», «потому, что», «было« было »,« до »,« быть »,« между »,« оба »,« но »,« по «приходило», «может», «прийти», «мог», «Dod», «каждый», «для», «от», «Get», «получил», «имел», «имел», «имел», «имел», «имел», «имел», «имел», «имел», «имел», «имел», «имел», «был», «был», «был», «каждый», «для», «из -за», «Get». has","have","he","her","here","here","him","heself","his","how","if","in","into","is","it","like","make","many","me","might","more","most","must","my","never","now","of","on", «Только», «или», «другой», «наш», «Out», «Over», «Say», «Some», «должен», «с тех пор», «некоторые», «все еще», «такой», «взять», «чем«, «что», «», «их», «их», «тогда« там »,« эти »,« они »,« это »,« это »,« »,« их »,« тогда «там», «эти», «они», «их», «их»)
Ключевое слово = слева (ключевое слово, 100)
Ключевое слово = заменить (ключевое слово, "!", "")