18 lines
498 B
Plaintext
18 lines
498 B
Plaintext
|
|
||
|
|
|
||
|
|
<%
|
||
|
|
'variables to store banned IP and the users IP
|
||
|
|
Dim strIP , strBannedIP
|
||
|
|
'this is the banned IP address
|
||
|
|
strBannedIP = "127.0.0.1"
|
||
|
|
'get the users IP address
|
||
|
|
strIP = Request.ServerVariables("LOCAL_ADDR")
|
||
|
|
'if users address is the same as the banned IP address
|
||
|
|
'display a message
|
||
|
|
If strBannedIP = strIP Then
|
||
|
|
Response.Write "You are not permitted to view this website"
|
||
|
|
'if usersa ddress is different welcome message is displayed
|
||
|
|
Else
|
||
|
|
Response.Write "welcome"
|
||
|
|
End If
|
||
|
|
%>
|