<%
'*******************************
'Fonction: CheckQuery (ByValStr)
'Arguments: Str ----- String recherché
'Auteur: Alixi
'Date: 2007/7/15
'Description: Mots-clés qui restreignent la recherche
'Exemple: CheckQuery (STR)
'*******************************
PublicFunctionCheckQuery (ByValStr)
Dimfobwords, i, mot-clé
mot-clé = str
Onerrorresumenext
FOBWORDS = Array (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 (mot-clé, chrw (FOBWORDS (i)))> 0THEN
CheckQuery = false
Sortie
Endire
Suivant
Fobwords = array ("~", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")," _ "," + "," + "," = "," "", "[", "]", "{", "}", ",", "", "", "]", "{", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", "," ";", ":", "" "" "," '","' "," '","' ","> "," / "," / ",", "|", "?"? "," à propos "," après "," all "," aussi "," an "," et ",", "Un autre", "n'importe quel", "sont", "comme", "à", "be", "parce que", "été", "avant", "être", "entre", "à la fois", "mais", "par", "est venu", "can", "Come", "pouvait", "DID", "chaque", "pour", "de" Get "," "", "" avait "" "" "" "" avé a "," avoir "," il "," elle "," ici "," ici "," him "," heself "," son "," comment "," if "," dans "," en "," est "," it "," comme "," faire ",", "," "," "," maintenant ",", ",", "," must "," "," "," "" "", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", " "seulement", "ou", "autre", "notre", "out", "over", "dire", "certains", "devraient", "puisque", "certains", "toujours", "tels", "prendre", "que", "this", "le", "leur", "ces" ")" alors "," là "," ces ",", "," ce ")") ")
Keyword = Left (mot-clé, 100)
Keyword = remplacer (mot-clé, "!", "")