asp程序中過(guò)濾不文明字符的函數(shù)

<%  
Function cutbadchar(str)  
badstr="不|文|明|字|符|列|表|格|式"   ’此處填寫(xiě)不文明的詞語(yǔ)，用|分開(kāi) 
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  
%>