Wildcards

Hejsan..

Jag har en funktion som kollar om en viss IP är tillåten..
Alla IPnummer ligger i databas o delas av med ,

koden jag använder för det ser ut så här

ipaccess = split(ipaccess,",")
For i = 0 To Ubound(ipaccess)
if request.servervariables("remote_addr") = ipaccess(i) then
access = 1
end if
Next

Men om jag vill kunna annvända Wildcards (*).
Hur skall koden se ut då?

vad ska wildcardsen göra då?

Släppa igenom alla adresser mellan 0-254 givetvis

det är alltså siffrorna efter sista punkten du menar då?

är inte så hemma på ip och sånt men detta kanske kan va nått iallafall?

<%
ipaccess = split(ipaccess,",") 

For i = 0 To Ubound(ipaccess) 
	sIP = Request.Servervariables("REMOTE_ADDR")
	If Left(sIP, InStrRev(sIP, ".")-1) = Left(ipaccess(i), InStrRev(ipaccess(i), ".")-1) then 
		access = 1 
	End If 
Next 
%>

denna släpper alltså in alla ip som matchar din array fast utan att lägga märke till de sista siffrorna.

eller

<%
ipaccess = split(ipaccess,",") 

For i = 0 To Ubound(ipaccess) 
	sIP = Request.Servervariables("REMOTE_ADDR")
	If Left(sIP, InStrRev(sIP, ".")-1) = Left(ipaccess(i), InStrRev(ipaccess(i), ".")-1) Then
		iSista = Right(sIP,Len(sIP)-InStrRev(sIP, "."))
		If iSista => 0 And iSista <= 254 Then access = 1 
	End If 
Next 
%>

Denna kod släpper igenom samma som innan men endast de vars sista siffror är mellan 0 och 254

Som sagt kan inte så mycket om sånt här men jag tror det var detta du menade va?

Ingen av dessa koden är testade men jag tror att de ska funka ;)

Om jag är helt ute och cyklar så hoppas jag iallafall att du fått nått tips på hur du ska lösa det du vill göra