导读:% 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 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
%>