<%
'*******************************
'기능 : CheckQuery (byvalstr)
'인수 : str ----- 검색 문자열
'저자 : Alixi
'날짜 : 2007/7/15
'설명 : 검색을 제한하는 키워드
'예 : CheckQuery (str)
'*******************************
PublicFunctionCheckQuery (ByValStr)
DimfoBwords, i, 키워드
키워드 = str
onerrorresumenext
fobwords = 배열 (91,92,304,305,430,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 (키워드, chrw (fobwords (i))> 0then
CheckQuery = false
종료 기능
endif
다음
fobwords = array ( "~", "!", "@", "#", "$", "%", "^", "&", "*", "(", ","), "_", "+", "+", "=", "", "", "", "{", "}", ";", ",", "," "" "," "", "", "", "", "", "", ">", "/", "/", ","| ",", "?", "?", "aff", "All", "All", ",", ",", ",", ",", ",", ",", ",", ",", ",", " "다른", "a a a", "as", "as", "at", "be", "rec", "way", "be", "been", "been", "been", "been", "be", "by", "by", "cay", "can", "come", "can", "get", "get", "", "", "", "", "", "", "", "" HARD ","HADE ","HE ","HER ","HERE ","HERE ","HEM ","HESELF ","HIS ","HOW ","How ","IF ","IN ","IN ","IS ","IT ","LIKE ","MATE ","MATE ","MORLE ","MORLE ","MITH "" "," "," "," "," "," "," "," "," "," "," "," "," "," "," " "만", "또는", "기타", "우리", "아웃", "Over", "Say", "Say", "일부", "해야", "일부", "일부", "sule", "take", "to", "The", "The", "", "", "", "", "이것" ","이것 "").
키워드 = 왼쪽 (키워드, 100)
키워드 = 대체 (키워드, "!", "")