一个过滤广告的函数 来源
本站原创 weste.net
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
关联文档