Web Wiz Support and Community Forums : Bug with a Banned IP’s https://forums.webwiz.net/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 13 Apr 2026 08:58:34 +0000 Tue, 07 Feb 2006 13:31:56 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.08 360 https://forums.webwiz.net/RSS_post_feed.asp?TID=18259 <![CDATA[Web Wiz Support and Community Forums]]> https://forums.webwiz.net/forum_images/web_wiz_forums.png https://forums.webwiz.net/ <![CDATA[Bug with a Banned IP’s : Many thanks for the suggestion ...]]> https://forums.webwiz.net/bug-with-a-banned-ips_topic18259_post98967.html#98967 Author: WebWiz-Bruce
Subject: 18259
Posted: 07 February 2006 at 1:31pm

Many thanks for the suggestion]]> Tue, 07 Feb 2006 13:31:56 +0000 https://forums.webwiz.net/bug-with-a-banned-ips_topic18259_post98967.html#98967 <![CDATA[Bug with a Banned IP’s : I offer in my opinion the most...]]> https://forums.webwiz.net/bug-with-a-banned-ips_topic18259_post98907.html#98907 Author: Ritchie
Subject: 18259
Posted: 06 February 2006 at 8:36pm

I offer in my opinion the most simple way of the decision of this problem. It is necessary to add only one variable and to replace  (functions_common.asp for WWF 8 beta 1)
 
 
951   'Remove the wildcard charcter form the IP
952   strCheckIPAddress = Replace(strCheckIPAddress, "*", "", 1, -1, 1)
953
954   'Trim the users IP to the same length as the IP range to check
955   strTmpUserIPAddress = Mid(strTmpUserIPAddress, 1, Len(strCheckIPAddress))
956
957   'See if whats left of the IP matches
958   If strCheckIPAddress = strTmpUserIPAddress Then blnIPMatched = True
 
 
on
 
 
951   'Remove the wildcard charcter form the IP
952   strCheckIPAddress = Replace(strCheckIPAddress, "*", "", 1, -1, 1)
953
954    Dim strUserIPAddressMidFunction
955
956   'Trim the users IP to the same length as the IP range to check
957   strUserIPAddressMidFunction = Mid(strTmpUserIPAddress, 1, Len(strCheckIPAddress))
958
959   'See if whats left of the IP matches
960   If strCheckIPAddress = strUserIPAddressMidFunction Then blnIPMatched = True
 
After such changes IP of the address are processed correctly Wink


Edited by Ritchie - 06 February 2006 at 8:38pm]]> Mon, 06 Feb 2006 20:36:33 +0000 https://forums.webwiz.net/bug-with-a-banned-ips_topic18259_post98907.html#98907 <![CDATA[Bug with a Banned IP’s : I&#039;m sure this bug was fixed...]]> https://forums.webwiz.net/bug-with-a-banned-ips_topic18259_post98871.html#98871 Author: WebWiz-Bruce
Subject: 18259
Posted: 06 February 2006 at 1:01pm

I'm sure this bug was fixed sometime ago, and I have been through the present code and con not replicate this error.]]> Mon, 06 Feb 2006 13:01:23 +0000 https://forums.webwiz.net/bug-with-a-banned-ips_topic18259_post98871.html#98871 <![CDATA[Bug with a Banned IP’s : The given problem is present...]]> https://forums.webwiz.net/bug-with-a-banned-ips_topic18259_post98749.html#98749 Author: Ritchie
Subject: 18259
Posted: 04 February 2006 at 11:00pm

The given problem is present in 7.xx and in 8 beta 1 versions of a forum. Not all addresses in the list can be banned!
 
Function Ban IP in a file functions_common.asp works incorrectly. If at the list are present single IP addresses - all normally work. If in the list it is brought IP the address with a symbol * (Ban on a mask) all addresses which are located below this address not banned. If to exclude the given address from the list function works correctly. I have laid out a file which shows this mistake.
 
So works:
 
 
So does not work:
 
 
 
So normally works - IP the address with (*) 128.78.69.* is removed:
 
 
Here it is possible to take a file which shows misoperation of function
 
'******************************************
'****       Banned IP's         *****
'******************************************
Private Function bannedIP()
 'Declare variables
 Dim rsIPAddr
 Dim strCheckIPAddress
 Dim strUserIPAddress
 Dim blnIPMatched
 Dim strTmpUserIPAddress
 'Intilise variable
 blnIPMatched = False
 'Get the users IP
 strUserIPAddress = getIP()
 
 'Intialise the ADO recordset object
 Set rsIPAddr = Server.CreateObject("ADODB.Recordset")
 'Get any banned IP address from the database
 'Initalise the strSQL variable with an SQL statement to query the database to count the number of topics in the forums
 strSQL = "SELECT " & strDbTable & "BanList.IP " & _
 "FROM " & strDbTable & "BanList" & strDBNoLock & " "  & _
 "WHERE " & strDbTable & "BanList.IP Is Not Null;"
 'Query the database
 rsIPAddr.Open strSQL, adoCon
 'Loop through the IP address and check 'em out
 Do while NOT rsIPAddr.EOF
 
  'Reset the banned IP address
  strTmpUserIPAddress = strUserIPAddress
  'Get the IP address to check from the recordset
  strCheckIPAddress = rsIPAddr("IP")
  'See if we need to check the IP range or just one IP address
  'If the last character is a * then this is a wildcard range to be checked
  If Right(strCheckIPAddress, 1) = "*" Then
   'Remove the wildcard charcter form the IP
   strCheckIPAddress = Replace(strCheckIPAddress, "*", "", 1, -1, 1)
   'Trim the users IP to the same length as the IP range to check
   strTmpUserIPAddress = Mid(strTmpUserIPAddress, 1, Len(strCheckIPAddress))
   'See if whats left of the IP matches
   If strCheckIPAddress = strTmpUserIPAddress Then blnIPMatched = True
  'Else check the IP address metches
  Else
   'Else check to see if the IP address match
   If strCheckIPAddress = strTmpUserIPAddress Then blnIPMatched = True
  End If
  'Move to the next record
  rsIPAddr.MoveNext
 Loop
 'Clean up
 rsIPAddr.Close
 Set rsIPAddr = Nothing
 'Return the function
 bannedIP = blnIPMatched
End Function
 


Edited by Ritchie - 04 February 2006 at 11:05pm]]> Sat, 04 Feb 2006 23:00:40 +0000 https://forums.webwiz.net/bug-with-a-banned-ips_topic18259_post98749.html#98749