Como implementar uma função que filtra palavras -chave ASP? Eu acredito que isso é um problema para muitos novos amigos que estão aprendendo ASP. Então, vamos dar uma olhada na introdução das funções de implementação das palavras -chave de filtragem ASP. Espero que seja útil para você.
Filtrar palavras -chave <%
'***********************************
'Função: Chkkeyword (palavra -chave BYVAL)
'Parâmetro: palavra -chave, palavra -chave
'Autor: Alixi
Data: 2007/7/15
'Descrição: Filtrar palavras -chave
'Exemplo: chkkeyword ("sfsdfdf'8 e 5ddd")
'***********************************
Função chkkeyword (palavra -chave byval)
Dim Fobwords, i
Em erro de erro em seguida
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, 12496, 12497, 12498, 12499, 12500, 12501, 12502, 12503, 12504, 12505, 12506, 12507, 12508, 12509, 12510, 12521, 12532, 12533, 65339, 65340)
Para i = 1 a ubound (fobwords, 1)
Se Instr (palavra -chave, chrw (fobwords (i)))> 0 Então
Palavra -chave = Substitua (palavra -chave, chrw (fobwords (i)), "")
Final se
Próximo
palavra -chave = esquerda (palavra -chave, 100)
FobWords = Array("~", "!", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "_", "+", "=", "`", "[", "]", "{", "}", ";", ":", """", "'", "'", "<", ">", ".", "/", "/", ""? "," "", "_")
Para i = 0 a ubound (fobwords, 1)
Se Instr (palavra -chave, fobwords (i))> 0 então
palavra -chave = substituir (palavra -chave, fobwords (i), "")
Final se
Próximo
Chkkeyword = palavra -chave
Função final%>
O exposto acima é todo o conteúdo deste artigo. Espero que seja útil para o aprendizado de todos e espero que todos apoiem o novo canal de tecnologia.