3 svar · 299 visningar · startad av fundrusse
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