ฟังก์ชั่นการใช้งานของคำหลักตัวกรอง ASP

จะใช้ฟังก์ชั่นที่กรองคำหลัก ASP ได้อย่างไร? ฉันเชื่อว่านี่เป็นปัญหาสำหรับเพื่อนใหม่หลายคนที่กำลังเรียนรู้ ASP ดังนั้นมาดูการแนะนำฟังก์ชั่นการใช้งานของคำหลักการกรอง ASP ฉันหวังว่ามันจะเป็นประโยชน์กับคุณ

คำหลักกรอง <%

-

'ฟังก์ชั่น: chkkeyword (คำหลัก byval)

'พารามิเตอร์: คำหลักคำหลัก

'ผู้แต่ง: Alixi

'วันที่: 2007/7/15

'คำอธิบาย: คำหลักกรอง

'ตัวอย่าง: chkkeyword ("sfsdfdf'8 & 5ddd")

-

ฟังก์ชั่น chkkeyword (คำหลัก byval)

dim fobwords, i

เมื่อเกิดข้อผิดพลาดต่อไป

fobwords = array (91, 92, 304, 305, 430, 431, 437, 438, 12460, 12461, 12462, 12463, 12464, 12465, 12466, 12467, 12468, 12469 12476, 12477, 12478, 12479, 12480, 12481, 12482, 12483, 12485, 12486, 12487, 12488, 12489, 12490, 12496, 12497 12507, 12508, 12509, 12510, 12521, 12532, 12533, 65339, 65340)

สำหรับ i = 1 ถึง Ubound (fobwords, 1)

ถ้า instr (คำหลัก, chrw (fobwords (i)))> 0 แล้ว

คำสำคัญ = แทนที่ (คำหลัก, chrw (fobwords (i)), "")

สิ้นสุดถ้า

ต่อไป

คำหลัก = ซ้าย (คำหลัก, 100)

fobwords = array ("~", "!", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "_", "+", ",", ",", "," -

สำหรับ i = 0 ถึง ubound (fobwords, 1)

ถ้า instr (คำหลัก, fobwords (i))> 0 แล้ว

คำสำคัญ = แทนที่ (คำหลัก, fobwords (i), "")

สิ้นสุดถ้า

ต่อไป

chkkeyword = คำหลัก

ฟังก์ชั่นสิ้นสุด%>

ข้างต้นเป็นเนื้อหาทั้งหมดของบทความนี้ ฉันหวังว่ามันจะเป็นประโยชน์ต่อการเรียนรู้ของทุกคนและฉันหวังว่าทุกคนจะสนับสนุนช่องเทคโนโลยีใหม่ที่ผิด