Comment implémenter une fonction qui filtre les mots clés ASP? Je crois que c'est un problème pour de nombreux nouveaux amis qui apprennent l'ASP. Jetons donc un coup d'œil à l'introduction des fonctions d'implémentation des mots clés de filtrage ASP. J'espère que cela vous sera utile.
Filtre les mots clés <%
'*******************************
'Fonction: Chkkeyword (mot-clé ByVal)
'Paramètre: mot-clé, mot-clé
'Auteur: Alixi
'Date: 2007/7/15
'Description: Filtrez des mots clés
'Exemple: chkkeyword ("sfsdfdf'8 & 5ddd")
'*******************************
Fonction chkkeyword (mot-clé byVal)
Dim Fobwords, je
Sur l'erreur reprendre ensuite
FobWords = Array(91, 92, 304, 305, 430, 431, 437, 438, 12460, 12461, 12462, 12463, 12464, 12465, 12466, 12467, 12468, 12469, 12470, 12471, 12472, 12473, 12474, 12475, 12476, 12477, 12478, 12479, 12480, 12481, 12482, 12483, 12485, 12486, 12487, 12488, 12489, 12490. 12507, 12508, 12509, 12510, 12521, 12532, 12533, 65339, 65340)
Pour i = 1 à Ubound (Fobwords, 1)
Si instlin (mot-clé, chrw (fobwords (i)))> 0 alors
Keyword = Remplace (mot-clé, chrw (FOBWORDS (i)), "")
Terminer si
Suivant
Keyword = Left (mot-clé, 100)
FOBWORDS = Array ("~", "!", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "_", "+", "=", "" "," "" "" "" "" "" "" ",", "", "", "" "" "", "" "", ",", "", "," "," "" "", "" "" ",", "," ",", "", "" "" "," "" "" "" ",", "", "", "" "" "", "" "" <"," "," "," "," "" "" "," "" "<", "", "", "", "" "" "", "" "". ">", ".", "/", "/", "?", "?", "_")
Pour i = 0 à Ubound (Fobwords, 1)
Si instlin (mot-clé, FOBWORDS (i))> 0 alors
Keyword = remplacer (mot-clé, FOBWORDS (i), "")
Terminer si
Suivant
Chkkeyword = mot-clé
Fonction finale%>
Ce qui précède est tout le contenu de cet article. J'espère que cela sera utile à l'apprentissage de tous, et j'espère que tout le monde soutiendra le mauvais canal de la nouvelle technologie.