キーワードASPをフィルタリングする関数を実装する方法は？これは、ASPを学んでいる多くの新しい友人にとって問題だと思います。それでは、ASPフィルタリングキーワードの実装関数の導入を見てみましょう。それがあなたに役立つことを願っています。
フィルターキーワード<％
'*******************************
'機能：chkkeyword（byvalキーワード）
'パラメーター：キーワード、キーワード
著者：アリクシ
'日付：2007/7/15
'説明：フィルターキーワード
'例：chkkeyword（ "sfsdfdf'8＆5ddd"）
'*******************************
関数chkkeyword（byvalキーワード）
薄暗いfobwords、i
エラーの再開時に次に再開します
fobwords = array（91、92、304、305、430、431、437、438、12460、12461、12462、12463、12464、12465、12466、12467、12468、12469、12470、12471、12472、12473、12473、12473、12473、12473、12473 12476, 12477, 12478, 12479, 12480, 12481, 12482, 12483, 12485, 12486, 12487, 12488, 12489, 12490, 12496, 12497, 12498, 12499, 12500, 12501, 12502, 12503, 12504, 12505, 12506, 12507、12508、12509、12510、12521、12532、12533、65339、65340）
i = 1からubound（fobwords、1）の場合
If strust（keyword、chrw（fobwords（i）））> 0 thenの場合
キーワード=交換（キーワード、chrw（fobwords（i））、 ""）
ifを終了します
次
キーワード=左（キーワード、100）
FobWords = Array("~", "!", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "_", "+", "=", "`", "[", "]", "{", "}", ";", ":", """", "'", "'", "<", ">"、 "。"、 "/"、 "/"、 "？"、 "？"、 "_"）
i = 0からubound（fobwords、1）の場合
If strust（キーワード、Fobwords（i））> 0の場合
キーワード=交換（キーワード、fobwords（i）、 ""）
ifを終了します
次
chkkeyword =キーワード
end function％>
上記はこの記事のすべての内容です。私はそれがすべての人の学習に役立つことを願っています、そして、私は誰もが間違った新しいテクノロジーチャネルをサポートすることを願っています。