وظيفة لتصفية الشخصيات غير المتحضرة في برنامج asp
<%
الدالة Cutbadchar(str)
badstr = أحرف غير حضارية | جداول أعمدة |
كلمة سيئة = انقسام (badstr، |)
بالنسبة إلى i=0 إلى Ubound(badword)
إذا instr(str,badword(i))> 0 ثم
str=Replace(str,badword(i),***)
نهاية إذا
التالي
Cutbadchar=str
وظيفة النهاية
%>