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