وظيفة التنفيذ للكلمة الرئيسية لتصفية ASP

كيفية تنفيذ وظيفة تقوم بتصفية الكلمات الرئيسية ASP؟ أعتقد أن هذه مشكلة للعديد من الأصدقاء الجدد الذين يتعلمون ASP. لذلك دعونا نلقي نظرة على إدخال وظائف تنفيذ الكلمات الرئيسية لتصفية ASP. آمل أن يكون ذلك مفيدًا لك.

تصفية الكلمات الرئيسية <٪

'*********************************

"الوظيفة: chkekeyword (الكلمة الرئيسية Byval)

المعلمة: الكلمة الرئيسية ، الكلمة الرئيسية

المؤلف: Alixi

"التاريخ: 2007/7/15

الوصف: تصفية الكلمات الرئيسية

"مثال: Chkeyword (" SFSDFDF'8 & 5DDD ")

'*********************************

دالة chkekeyword (الكلمة الرئيسية byval)

Dim Fobwords ، أنا

عند استئناف الخطأ التالي

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 ، 12473 ، 12473 ، 12473 ، 12473 ، 12476 ، 12477 ، 12478 ، 12479 ، 12480 ، 12481 ، 12482 ، 12483 ، 12485 ، 12486 ، 12487 ، 12488 ، 12489 ، 12490 ، 12496 ، 12497 ، 12498 ، 12499 ، 12500 ، 12501 ، 1250 ، 12503 ، 12503 ، 12503 ، 12503 ، 12503 ، 12503 ، 12503 ، 12503 ، 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) ، "")

إنهاء إذا

التالي

Chkeyword = الكلمة الرئيسية

نهاية وظيفة ٪>

ما سبق هو كل محتوى هذه المقالة. آمل أن يكون ذلك مفيدًا لتعلم الجميع ، وآمل أن يدعم الجميع قناة التكنولوجيا الجديدة الخاطئة.