Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature currently requires accessing the site using the built-in Safari browser.
<!--#include virtual="/includes/incCheckIP.asp"-->
visitorIP = request.ServerVariables("REMOTE_HOST")
If visitorIP = "1.1.1.1"
Then Response.Redirect("http://www.website.com/banned.asp")
End If
' Banned IP List
strBannedIPList="1.1.1.1,1.1.1.2,100.101.102.103,244.123.17.1"
arrBannedIPList=split(strBannedIPList,",")
visitorIP=request.ServerVariables("REMOTE_HOST")
For x=0 To ubound(arrBannedIPList)
If instr(visitorIP,arrBannedIPList(x)) then Response.Redirect("http://www.website.com/banned.asp")
Next
WebDeveloper said:This should work for more than one banned IP, using the following code in the same method as I've suggested above:
<appSettings>
<!-- IP Blocking (space separated lists) -->
<add key="IpBan1" value="1" />
<add key="IpBan2" value="1.1 2.2" />
<add key="IpBan3" value="1.1.1 2.2.2 3.3.3" />
<add key="IpBan4" value="1.1.1.1 2.2.2.2 3.3.3.3" />
<add key="RedirectBannedClientTo" value="banned.htm" />
</appSettings>
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' Fires when the session is started
Try
Dim IpBanList1 As String = GetAppSetting("IpBan1", "")
Dim IpBanList2 As String = GetAppSetting("IpBan2", "")
Dim IpBanList3 As String = GetAppSetting("IpBan3", "")
Dim IpBanList4 As String = GetAppSetting("IpBan4", "")
Dim ClientIP4 As String = Request.ServerVariables("REMOTE_ADDR")
Dim IpPart() As String = ClientIP4.Split(CChar("."))
Dim ClientIP1 As String = IpPart(0)
Dim ClientIP2 As String = IpPart(0) & "." & IpPart(1)
Dim ClientIP3 As String = IpPart(0) & "." & IpPart(1) & "." & IpPart(2)
If IpBanList1.IndexOf(ClientIP1) > -1 _
OrElse IpBanList2.IndexOf(ClientIP2) > -1 _
OrElse IpBanList3.IndexOf(ClientIP3) > -1 _
OrElse IpBanList4.IndexOf(ClientIP4) > -1 Then
Dim RedirectPage As String = GetAppSetting("RedirectBannedClientTo", "")
If RedirectPage = String.Empty Then
Response.Status = "404 Not Found"
Response.End()
Else
Response.Redirect(RedirectPage)
End If
End If
Catch
End Try
End Sub
Private Function GetAppSetting(ByVal Key As String, ByVal DefaultValue As String) As String
'Get appsetting by Key. If not found, return DefaultValue.
Try
Return System.Configuration.ConfigurationSettings.AppSettings(Key).ToString
Catch
Return DefaultValue
End Try
End Function
If IpBanList1.IndexOf(ClientIP1) > -1 _
OrElse IpBanList2.IndexOf(ClientIP2) > -1 _
OrElse IpBanList3.IndexOf(ClientIP3) > -1 _
OrElse IpBanList4.IndexOf(ClientIP4) > -1 Then
[b]Session.Abandon()[/b]
Dim RedirectPage As String = GetAppSetting("RedirectBannedClientTo", "")
If RedirectPage = String.Empty Then
Response.Status = "404 Not Found"
Response.End()
Else
Response.Redirect(RedirectPage)
End If
End If
So I looked up Cyveillance on Yahoo and found they are a company that provides services to other companies to "identify trademark abuses across the World Wide Web."Qwest Communications NET-QWEST-BLKS-2 (NET-63-144-0-0-1)
63.144.0.0 - 63.151.255.255
Cyveillance QWEST-63-148-99-224 (NET-63-148-99-224-1)
63.148.99.224 - 63.148.99.255
I'm interested!riley said:Is anybody interested?
You're definitely NOT the only one concerned about this issue... and I think we all get a little cRaZy after many hours of staring at our computer screensriley said:Or am I the only one crazy enough to be concerned about this issue?
WebDeveloper said:Riley,
Have you got it working yet? If so, let me know where I can check it out! Thanks!
riley said:Hey, maybe the simple one is freeware and fancy one is for sale. What do you think?