<%
msg="ช้างน้ำ หมู่ป่า " ' สร้างตัวแปรที่รับข้อมูลเข้ามา
' ประกาศตัวแปร badtext เป็นอาร์เรย์ที่มีคำหยาบอยู่ภายใน
badtext = array("ช้างน้ำ","หมูป่า","เก้ง","กระทิง","ไก่") ' คิดว่าเป็นคำหยาบก็แล้วกันนะ
b = 0
For a = 0 to Ubound(badtext)
if InStr(msg , badtext(a)) <> 0 then %> 'เปรียบเทียบระหว่างตัวแปรกับข้อมูลในอาร์เรย์
พบคำหยาบคำว่า "<%=badtext(a)%>"<br>
%>
<%Else
b = b+1
End if
Next
if b = Ubound(badtext) + 1 then %>
คุณเป็นคนสมองไม่กลวงเย้ ๆๆๆ ไม่มีคำหยาบเลย
<%End if%>
Load balance : Server 03
