一个过滤广告的函数

Function WordFilter(Str) 
 Dim MatchNum,MatchKey 
 MatchNum = 0 
 For i=1 To Len(Str) 
 MatchKey=LCase(Mid(Str,i,4)) 
 If MatchKey="href" Or MatchKey="[url" Or MatchKey="http" Then MatchNum=MatchNum+1 
 If MatchNum>3 Then Exit For 
 Next 
 If MatchNum>3 Then AlertTo Referer,"嘿嘿~ 不要告诉我你不是在贴广告啊，（这里是你的粗口）！" 
 WordFilter = Str 
End Function  

短小实用！！！