แบ่งปันรหัสโฆษณาการกรองอย่างง่าย

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

หลายคนถามฉันเกี่ยวกับงานชิ้นนี้ แต่จริงๆแล้วมันเป็นรหัสที่ง่ายมาก ต่อไปนี้เพียงแค่เปลี่ยนเป็นฟังก์ชั่นเรียกตัวเอง

Dim Stra, strb, isok

stra = "ทดสอบคุณมีเพศสัมพันธ์, เงิน" 'เนื้อหาคำหลักที่ต้องกรอง

strb = "fasfaefwtestfajkewhfwituckjfksajfheyou" ที่จะตรวจสอบ

isok = false 'เพียงกำหนดว่าเนื้อหาที่จะกรองรวมอยู่ด้วยหรือไม่ หากกลับมาจริงจะรวมอยู่ด้วย เท็จหมายความว่าไม่มี

dim regexp

ตั้งค่า regexp = ใหม่ regexp

regexp.ignorecase = false

regexp.global = true

Dim I, J

j = ubund (แยก (stra, ","))

สำหรับ i = 0 ถึง J

regexp.pattern = "(" & split (stra, ",") (i) & ")"

ถ้า (regexp.test (strb)) จากนั้น

isok = true

ออกจาก

สิ้นสุดถ้า

ต่อไป

ตั้งค่า regexp = ไม่มีอะไร

Response.write (isok)

ข้างต้นเป็นการแนะนำสั้น ๆ เกี่ยวกับการกรองรหัสโฆษณา ฉันหวังว่าคุณจะชอบมัน สำหรับเนื้อหาเพิ่มเติมโปรดติดตามเว็บไซต์ของ Wuxin Technology Channel ต่อไป!