Filtern Sie illegale Zeichen <%
Funktion cutbadchar(str)
badstr=un|literal|clear|character|symbol|column|table|format|format
badword=split(badstr,|)
Für i=0 bis Ubound(badword)
Wenn instr(str,badword(i)) > 0 dann
str=Replace(str,badword(i),***)
Ende wenn
Nächste
cutbadchar=str
Funktion beenden
Response.Write cutbadchar (Chinas Erfindung des Buadou-Startpunkts)
%>