<%
'*********************************
'Funktion: checkQuery (byvalstr)
'Argumente: str ----- durchsuchte Zeichenfolge
'Autor: Alixi
'Datum: 2007/7/15
'Beschreibung: Schlüsselwörter, die die Suche einschränken
Beispiel: checkQuery (str)
'*********************************
PublicFunctionCheckQuery (Byvalstr)
DimfObwords, i, Schlüsselwort
Keyword = 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.6539.65340))
Fei = 1toubund (fobwords, 1)
IfInstr (Schlüsselwort, chrw (fobwords (i)))> 0Then
CheckQuery = false
Ausgangsfunktion
Endif
Nächste
FobWords=Array("~","!","@","#","$","%","^","&","*","(","),"_","+","+","=","`","[","]","{","}", ";", ":", "" "", "',"' "," '","' ","> ","/","/",", "| "ein anderer", "irgendein", "," sind "," wie "," at "," be "," Wa hat "," haben "," er "," sie "," hier "," hier "," er "," his "nur", "oder", "andere", "unser", "out", "über", "sagen", "einige", "sollte", "seit", "einige", "still", "so", "take", "als", "das", "das", "sie", "sie", "dann", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",",
Keyword = links (Schlüsselwort, 100)
Keyword = Ersetzen (Schlüsselwort "!", "")