io ho appena sviluppato questo
codice:
'##########		CONTROLLO CHE L'IP NON SIA PRESENTE NELLA BLACKLIST
IpUser = Request.ServerVariables("REMOTE_ADDR")
SplitIP = split(IpUser,".")
set RecIP = conn.execute("select ip1, ip2 from tbip where inizio < '"&giorno&"' and fine > '"&giorno&"' and attivo = 1")
if not RecIP.eof then
	while not RecIP.eof
	Ip1 = split(RecIP("ip1"),".")
	Ip2 = split(RecIP("ip2"),".")
	if cint(SplitIP(0)) >= cint(Ip1(0)) and cint(SplitIP(0)) <= cint(Ip2(0)) then
		if cint(SplitIP(1)) >= cint(Ip1(1)) and cint(SplitIP(1)) <= cint(Ip2(1)) then
			if cint(SplitIP(2)) >= cint(Ip1(2)) and cint(SplitIP(2)) <= cint(Ip2(2)) then
				if cint(SplitIP(3)) >= cint(Ip1(3)) and cint(SplitIP(3)) <= cint(Ip2(3)) then
					response.write "non puoi passare"
					response.end
				end if
			end if
		end if
	end if
	RecIP.movenext
	wend
end if
e si appoggia ad un db con i seguenti campi:
ip1 = inizio del range ip (es. 127.0.0.1) compreso
ip2 = fine del range ip (es. 127.0.0.9) compreso
inizio = data di inizio del blocco
fine = data di fine del blocco
attivo = (1/0) controlla su quella riga se il valore e' 1

in questo modo puoi bloccare l'accesso al sito ad un singolo ip o una serie di ip anche per un solo giorno, io lo tengo nelle inclusioni ad inizio pagina, in questo modo l'accesso al sito viene totalmente bloccato