% 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
关于5UCMS 您有任何需求 均可以留言给我们