<%
'***********************************
'Fungsi: CheckQuery (BYVALSTR)
'Argumen: string ----- String yang dicari
'Penulis: Alixi
'Tanggal: 2007/7/15
'Deskripsi: Kata kunci yang membatasi pencarian
'Contoh: CheckQuery (str)
'***********************************
PublicFunctionCheckQuery (BYVALSTR)
Dimfobwords, I, kata kunci
kata kunci = 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 (kata kunci, chrw (fobwords (i)))> 0then
CheckQuery = false
Fungsi keluar
Endif
Berikutnya
Fobwords = array ("~", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")," _ ","+","+"," = "," `", "[", "] ";", ":", "" "" "," "", "'", "' ' "Yang lain", "any", "adalah", "sebagai", "at", "be", "karena", "pernah", "sebelumnya", "menjadi", "antara", "keduanya", "tetapi", "oleh", "datang", "Can", "Come," Can "," Do "," masing -masing, "untuk", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", ",", "," Get ",", " memiliki "," memiliki "," dia "," dia "," di sini "," di sini "," dia "," heself "," her "," how "," if "," in "," in "," is "," it "," like "," Make "," Many "," Me "," mungkin "," lebih banyak ",", "," ",", "", "," "," ",", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "NOT" OF "NOT" OF "" "Hanya", "atau", "lainnya", "milik kami", "keluar", "lebih", "katakan", "beberapa", "harus", "sejak", "beberapa", "masih", "seperti itu", "take", "daripada", "itu", "", "mereka", ",", "," di sana "," "," "," "" "" "" "
kata kunci = kiri (kata kunci, 100)
kata kunci = ganti (kata kunci, "!", "")