Erik Ginnerskov skrev:
> Hej NG
>
> Jeg er stødt på et tilfælde, hvor nogen anvender mine sider som deres
> undervisningsmateriale - de tjener penge på mit arbejde.
>
> Jeg vil derfor have lavet en blokering for pågældendes IP.
>
> Jeg vil øverst på siden, lige efter <div id="indhold">, inkludere en
> blok1.inc:
>
> <%
> strIp = Request.ServerVariables ("REMOTE_ADDR")
>
> ' derefter en liste over uønskede IP
> arrIP = Array(,"xxx.xxx.xxx.xxx","yyy.yyy.yyy.yyy")
>
> ' lav en sammenligning med ("REMOTE_ADDR") - pseudokode
> if ikke i array
> fortsæt
> %>
> _____
>
> Nederst på siden, lige før </div> <!-- #indhold -->, lægges en include af
> blok2.inc:
>
> <%
> else
> Response.Write "<p>Du har ikke adgang til denne side</p>
> end if
> %>
>
> blok2.inc burde være køreklar, men jeg har ikke hverken i min asp-bog eller
> html.dk's asp-tut kunnet finde noget om at strikke en betingelse sammen, som
> jeg har brug for det.
>
Jeg inkluderet en fil med nedenstående kode på nogle af mine sider, og
det virker efter hensigten...
--------------
<%
Dim IP_truth
Dim NumberOf
Dim I
'Creating the Array, with the number of ip's your blocking (please note
0 = one , 1 = two - same as a Array!)
Dim Ip_array(2)
'Find Visters IP
IP_truth = request.servervariables("REMOTE_ADDR")
'At this point we are defining the number of IP addresses we are going
to block (please note 0 = one , 1 = two - same as a Array!)
NumberOf = 2
'IP numbers to block (please note 0 = one , 1 = two - same as a Array!)
Ip_array(0) = "127.0.0.1"
Ip_array(1) = "62.243.106.126"
Ip_array(2) = "255.255.255.255"
'Here we are looping through the Array and checking the IP address of
each, if a banned IP is found , we print out a statement saying that
they are banned, and the page stops processing. You could always change
the Response.write statement to a redirect to a Central Banned page.
For I = 0 to NumberOf
If Ip_array(I) = IP_truth then
'Page to redirect if there IP is blocked
Response.Redirect "/errors/banned.asp"
End If
next
%>
--------------
Måske du kan bruge det?
--
Thrane