The code snippet below will detect the visitor's IP address and check against an array of blocked IP addresses, if the address matches any in our array then our visitor will be redirected to the page "no_access.asp".
<%
'declare variables
Dim sIP
Dim sIParray(2)
'assign our blocked IP addresses to our array
sIParray(0) = "61.254.32.22"
sIParray(1) = "62.454.32.25"
sIParray(2) = "62.254.32.17"
'retrieve the visitors IP address
sIP = Request.ServerVariables("REMOTE_ADDR")
'loop through the banned IPs using the UBound
function
For i = 0 to UBound(sIParray)
'check if IP address matches any of the blocked
IPs
If sIP = sIParray(i) Then
Response.Redirect "no_access.asp"
End If
Next
%>
Get the best asp web hosting provider now and save 30%
Plug and play ASP membership script that integrates with PayPal to let you charge recurring membership fees.
