Blockera ip-adresser

Ett exempel med databas:

tblBannedIP
IP0 - Numerisk, nullable
IP1 - Numerisk, nullable
IP2 - Numerisk, nullable
IP3 - Numerisk, nullable

Function IPIsBanned(ByVal sIP)
	Dim vIP
	vIP = Split(sIP, ".")
	
	Dim sql, rs
	sql = _
	"SELECT * FROM tblBannedIP" & _
	" WHERE COALESCE(IP0, " & vIP(0) & ") = " & vIP(0) & _
	" AND COALESCE(IP1, " & vIP(1) & ") = " & vIP(1) & _
	" AND COALESCE(IP2, " & vIP(2) & ") = " & vIP(2) & _
	" AND COALESCE(IP3, " & vIP(3) & ") = " & vIP(3)
	
	Set rs = 'hämta recordset med sql
	IPIsBanned = Not rs.EOF
	Set rs = Nothing
End Function

If IPIsBanned(Request.ServerVariables("REMOTE_ADDR")) Then
	Response.Write "Ditt IP är bannat!"
End If

I tabellen anger du enskilda IP nummer genom att ange delsiffrorna i kolumnerna eller serier genom att ange null i "wildcard-kolumner".

Jag har knappt några kunskaper inom asp, skulle du kunna fullända koden så det räcker med att inkludera den?

Då kan de vara en bra idé att lära dig ASP. Jag har varken tid eller lust att sitta och bygga funktioner åt dig.