在asp中過濾非法字符的函數

　　<%  
Function cutbadchar(str)  
badstr="不|文|明|字|符|列|表|格|式"   ’此處填寫不文明的詞語用|分開 
badword=split(badstr"|")  
For i= to Ubound(badword)  
If instr(strbadword(i)) >  then  
str=Replace(strbadword(i)"***")  
End If  
Next  
cutbadchar=str  
End Function  
%>

From:http://tw.wingwit.com/Article/program/net/201311/14369.html