<%

Function cutbadchar(str)

badstr="不|文|明|字|符|列|表|格|式"

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("中国不阿斗发射点发明")

%>