Filtrer les caractères illégaux <%
Fonction cutbadchar(str)
badstr=un|literal|clear|character|symbol|column|table|format|format
mauvais mot=split(badstr,|)
Pour i = 0 à Ubound (mauvais mot)
Si instr(str,badword(i)) > 0 alors
str=Remplacer(str,mauvais mot(i),***)
Fin si
Suivant
cutbadchar=str
Fonction de fin
Response.Write cutbadchar (invention chinoise du point de lancement Buadou)
%>