asp 过滤非法字符函数

2018-09-06 12:00

阅读:328

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


评论


亲,登录后才可以留言!