Функция фильтрации нецивилизованных символов в программе asp
<%
Функция Cutbadchar(str)
badstr = нецивилизованные | символы | форматы таблиц |
badword=split(badstr,|)
Для i = 0 до Ubound (недопустимое слово)
Если instr(str,плохое слово(i)) > 0, то
str=Replace(str,недопустимое слово(i),***)
Конец, если
Следующий
Cutbadchar=str
Конечная функция
%>