2.CheckBadWord.asp
<%'เก็บข้อความที่
Post เข้าตัวแปร wording
wording=Request("wording")
Set
ObjRegEx = New RegExp
'เก็บคำหยาบไว้ใน array
เลยครับ เผื่อมีเยอะ
badword=array("หมีน้อย","ควายป่า","ช้างน้ำ","นกกระจอก")
point=0
'ใช้ For เพื่อวนเช็คคำหยาบทั้งหมด
For
i=0 to UBound(badword)
ObjRegEx.pattern=badword(i)
'เอาคำหยาบที่อยู่ใน
Array มาตรวจสอบ
Result=ObjRegEx.Test(wording)
If
Result="True"
Then
Point=Point+1'ถ้าเจอคำหยาบ
เราก็บวกแต้ม
End If
Next
'ตรวจสอบจากค่า Point
ครับ ว่า เจอคำหยาบรึเปล่า
If
Point > 0 then
Response.Write("เจอคำหยาบครับ
กรุณาสุภาพด้วย")
Else
Response.Write("สุภาพมากครับ
ไม่พบคำหยาบเลย")
End If%>
|