키워드 ASP를 필터링하는 함수를 구현하는 방법은 무엇입니까? 나는 이것이 ASP를 배우고있는 많은 새로운 친구들에게 문제라고 생각합니다. ASP 필터링 키워드의 구현 기능 도입을 살펴 보겠습니다. 나는 그것이 당신에게 도움이되기를 바랍니다.
필터 키워드 <%
'*******************************
'기능 : Chkkeyword (Byval 키워드)
'매개 변수 : 키워드, 키워드
'저자 : Alixi
'날짜 : 2007/7/15
'설명 : 필터 키워드
'예 : Chkkeyword ( "SFSDFDF'8 & 5DDD")
'*******************************
함수 chkkeyword (byval 키워드)
희미한 fobwords, i
다음에 오류가 재개됩니다
fobwords = 배열 (91, 92, 304, 305, 430, 431, 437, 438, 12460, 12461, 12462, 12463, 12464, 12465, 12466, 12467, 12468, 12469, 12470, 12471, 12472, 12473, 12474, 12472 12476, 12477, 12478, 12479, 12480, 12481, 12482, 12483, 12485, 12486, 12487, 12488, 12489, 12490, 12496, 12497, 12498, 12499, 12500, 12501, 12502, 12503, 12504, 12507, 12508, 12509, 12510, 12521, 12532, 12533, 65339, 65340)
i = 1 to ubound (fobwords, 1)
IF DESS (키워드, chrw (fobwords (i))> 0
키워드 = 대체 (키워드, chrw (fobwords (i)), "")
끝 If
다음
키워드 = 왼쪽 (키워드, 100)
fobwords = array ( "~", "!", "!", "@", "#", "$", "%", "^", "&", "*", ",", ")"), "_", "+", "=", "", "", "", "{", "}", "", "" "" "" "" "" "" "" "" "", "" "" "" ">", ".", "/", "/", "?", ",", "_")
i = 0에서 ubound (fobwords, 1)
악기 (키워드, fobwords (i))> 0 인 경우
키워드 = 대체 (키워드, fobwords (i), "")
끝 If
다음
chkkeyword = 키워드
최종 기능%>
위는이 기사의 모든 내용입니다. 모든 사람의 학습에 도움이되기를 바랍니다. 모든 사람이 잘못된 새로운 기술 채널을 지원하기를 바랍니다.