กรองอักขระที่ไม่ถูกต้อง <%
ฟังก์ชั่น cutbadchar(str)
badstr=un|ตัวอักษร|ชัดเจน|อักขระ|สัญลักษณ์|คอลัมน์|ตาราง|รูปแบบ|รูปแบบ
badword=แยก(badstr,|)
สำหรับ i=0 ถึง Ubound(badword)
ถ้า instr(str,badword(i)) > 0 แล้ว
str=แทนที่(str,badword(i),***)
สิ้นสุดถ้า
ต่อไป
ตัดแบดชาร์=str
ฟังก์ชันสิ้นสุด
การตอบสนองเขียน cutbadchar (สิ่งประดิษฐ์จุดเปิดตัว Buadou ของจีน)
-