asp程序中过滤不文明字符的函数
<%
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
%>
新闻热点
疑难解答