Wie kann ich eine Funktion implementieren, die Schlüsselwörter ASP filtert? Ich glaube, dass dies ein Problem für viele neue Freunde ist, die ASP lernen. Schauen wir uns also die Einführung der Implementierungsfunktionen von ASP -Filter -Schlüsselwörtern an. Ich hoffe, es wird Ihnen hilfreich sein.
Filterschlüsselwörter <% filtern
'*********************************
'Funktion: ChkKeyword (Byval -Schlüsselwort)
'Parameter: Schlüsselwort, Schlüsselwort
'Autor: Alixi
'Datum: 2007/7/15
'Beschreibung: Filterschlüsselwörter
'Beispiel: ChkKeyword ("SFSDFDF'8 & 5DDD")
'*********************************
Funktion chkKeyword (Byval -Schlüsselwort)
Dim Fobwords, ich
Bei der nächsten Fehleraufnahme als nächstes
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. 12507, 12508, 12509, 12510, 12521, 12532, 12533, 65339, 65340)
Für i = 1 bis Ubound (FOBWORDS, 1)
Wenn Instrument (Schlüsselwort, chrw (fobwords (i)))> 0 dann
Keyword = Ersetzen (Schlüsselwort, CHRW (FOBWORDS (I)), "")
Ende wenn
Nächste
Keyword = links (Schlüsselwort, 100)
Fobwords = array ("~", "!", "! ">", ".", "/", "/", "?", "," _ ")
Für i = 0 bis Ubound (FOBWORDS, 1)
If Instr (Schlüsselwort, fobwords (i))> 0 dann
Keyword = Ersetzen (Schlüsselwort, fobwords (i), "")
Ende wenn
Nächste
ChkKeyword = keyword
Endfunktion%>
Das obige ist der gesamte Inhalt dieses Artikels. Ich hoffe, es wird für das Lernen aller hilfreich sein und ich hoffe, jeder wird den falschen neuen Technologiekanal unterstützen.