<%
'***********************************
'Função: CheckQuery (Byvaltr)
'Argumentos: STR ----- String pesquisada
'Autor: Alixi
Data: 2007/7/15
'Descrição: palavras -chave que restringem a pesquisa
'Exemplo: CheckQuery (STR)
'***********************************
PublicFunctionCheckQuery (Byvaltr)
Dimfobwords, i, palavra -chave
palavra -chave = 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.1247.1248 0,12481.12482.12483.12485.12486.12487.12488.12489.12490.12496.12497.12498.1249.12500 12501.12502.12503.12504.12505.12506.12507.12508.12509.12510.12532.12533.65339.65340)
Fori = 1TOUBOUND (FOBWORDS, 1)
Ifinstr (palavra -chave, chrw (fobwords (i)))> 0hen
CheckQuery = false
Saída de saída
Endif
Próximo
FobWords=Array("~","!","@","#","$","%","^","&","*","(","),"_","+","+","=","`","[","]","{","}", "; "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", "only","or","other","our","out","over","say","some","should","since","some","still","such","take","than","that","the","their","them","then","there","these","they","this","this")
palavra -chave = esquerda (palavra -chave, 100)
palavra -chave = substituir (palavra -chave, "!", "")