U┐ywanie ASP do kontroli dostΩpu

Korzystaj╣c ze skrypt≤w ASP (Active Server Pages) strony serwera mo┐na programowo kontrolowaµ dostΩp do plik≤w .asp przez sprawdzanie adres≤w IP i uwierzytelnie± Windows NT u┐ytkownik≤w. WiΩcej informacji dotycz╣cych skrypt≤w strony serwera mo┐na znaleƒµ w temacie Skrypty Active Server Pages.

Notka Poni┐szej procedury mo┐na u┐yµ tylko do kontroli dostΩpu do okre£lonej strony ASP, a nie do innych typ≤w zawarto£ci sieci Web.

Aby u┐yµ ASP do kontroli dostΩpu

W│╣cz uwierzytelnianie podstawowe dla pliku .asp lub katalogu zawieraj╣cego plik .asp, dla kt≤rego chcesz kontrolowaµ dostΩp. Odpowiednie instrukcje mo┐na znaleƒµ w temacie W│╣czanie uwierzytelnienia podstawowego.
W pliku .asp wstaw poni┐szy skrypt przed dowolnym tagiem HTML (│╣cznie z tagami komentarzy):

<% 
AuthCred = Request.ServerVariables("LOGON_USER") 
IPAddr = Request.ServerVariables("REMOTE_ADDR")

If IPAddr = "TU WSTAW ADRES IP!" Then   'Uwierzytelnij klienta
'Monituj u┐ytkownika o prawid│ow╣ nazwΩ u┐ytkownika systemu Windows NT i
'has│o
  If IsEmpty(AuthCred) or AuthCred = ""  Then  

'Je£li informacje logowania u┐ytkownika s╣ nieprawid│owe lub je£li
'u┐ytkownik anuluje je, wy£lij stan HTTP 401 do przegl╣darki, kt≤ra
'rozpozna odmowΩ dostΩpu do pliku.
    Response.Status = "401 Access Denied"   
    Response.End
  End if 

Else
'Wy£lij do przegl╣darki stan HTTP 403 oznaczaj╣cy, ┐e dostΩp do pliku
'jest zabroniony.
 Response.Write("403 DostΩp zabroniony")
 Response.End     

End if 
%>

W powy┐szym skrypcie zaznacz poni┐szy tekst i zast╣p go adresem IP komputera, grupy komputer≤w lub domeny, kt≤rej chcesz przyznaµ dostΩp do strony ASP:

TU WSTAW ADRES IP!