<%
'**********************************
'Función: CheckQuery (Byvalstr)
'Argumentos: Str ----- String String
'Autor: Alixi
'Fecha: 2007/7/15
'Descripción: palabras clave que restringen la búsqueda
'Ejemplo: CheckQuery (STR)
'**********************************
PublicFunctionCheckQuery (Byvalstr)
Dimfobwords, yo, palabra clave
Palabra clave = 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 (palabra clave, chrw (fobwords (i)))> 0then
CheckQuery = falso
Extinción
Endif
Próximo
FobWords = array ("~", "!", "@" ","#"," $ ","%","^"," & ","*"," (")," _ ","+","+"," = "," `", "[", "]", "{", "}", ";", ":", "" "", "" "," "", "" "," "", ">", "/", "/", "|", "?"? "," Acerca de "," después "," todos "," también "," An "y", "y", " "another","any","are","as","at","be","because","been","before","being","between","both","but","by","came","can","come","could","did","each","for","from","get","got","had","had"," 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", "Solo", "o", "otro", "nuestro", "fuera", "sobre", "decir", "algunos", "deberían", "desde", "algunos", "todavía", "tal", "tomar", "que", "que", "el", "su", "," entonces "," allí ",", "," ellos ",", "esto")
Palabra clave = izquierda (palabra clave, 100)
Palabra clave = reemplazar (palabra clave, "!", "")