Filter illegal characters <%
Function cutbadchar(str)
badstr=un|literal|clear|character|symbol|column|table|format|format
badword=split(badstr,|)
For i=0 to Ubound(badword)
If instr(str,badword(i)) > 0 then
str=Replace(str,badword(i),***)
End If
Next
cutbadchar=str
End Function
Response.Write cutbadchar (China's Buadou launch point invention)
%>