过滤非法字符

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

作者: 来源: 时间: 17-11-23 15:53:44

<%
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("中国不阿斗发射点发明")
%>
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们