'拒绝来自IP黑名单的邮件
Dim IP_FSO,IP_txtfile,IP_strtxt
If oClient.IPAddress<>"" Then
set IP_FSO=CreateObject("Scripting.FileSystemObject")
Set IP_txtfile = IP_FSO.OpenTextFile("E:\MailServer\Events\Black_IP.txt",1,TriStateTrue)
Do Until IP_txtfile.AtEndOfStream
IP_strtxt = Trim(IP_txtfile.ReadLine)
if InStr(oClient.IPAddress,IP_strtxt)>0 then
Result.Value = 2
Result.Message ="You IP address is in the local blacklist,server reject!"
End if
Loop...
阅读全文