Pagina visibile solo a certi IP

[sado]

Salve, sono nuovo e sono ancora alle prime armi.
Avrei bisogno di creare una pagina web che è visualizzabile solo da persone che hanno un certo indirizzo ip. Mi spiego meglio dovrei creare un database contenente tutti gli indirizzi ip che possono visualizzare la pagina web. Spero di essere stato abbastanza chiaro.

In attesa di risposte....

[Roby_72]

La request.servervariables("remote_addr") ti riporta l'IP di chi si collega.
Verifica che sia presente nella tua base dati.

Roby

[sado]

prima di tutto grazie della risposta, ma " request.servervariables("remote_addr") " cosè?
dove devo verificare che e presente?

[Roby_72]

In una base dati inserisci gli IP autorizzati.
Nella pagina "riservata" recuperi l'IP dell'utente con quella espressione e lo confronti con quelli contenuti nella base dati.
Se lo trovi allora mostri il contenuto della pagina altrimenti no.

Roby

[sorella]

Io ho fatto in questo modo.
Ciao

<% 'Verifico l'indirizzo IP
IndirizzoIP = Request.ServerVariables("REMOTE_ADDR")

if (IndirizzoIP = "11.22.33.44" then %>

<% 'Fai quello che devi fare %>

<% end if %>

[Roby_72]

Ok.

Roby

[sado]

C’è qualcuno che è così carino da postare il codice ?

[optime]

Originariamente inviato da sado
C’è qualcuno che è così carino da postare il codice ?

carino? codice? siamo ad un concorso di bellezza?

[sado]

Limitare acessi solo a certi ip "carino" solo per dire!

cmq io sono alle prime armi quindi se qualcuno potrebbe spiegarmi come fare a limitare la visualizzazione di una pagina web solo a certi ip (contenuti in un database creato con Access).
GRAZIE!
100 e lode a chi mi sapra aiutare!

P.S. per optime "100 e lode a chi mi sapra aiutare!" solo per dire! Ciao!

[cavicchiandrea]

Questo dovrebbe fare al caso tuo:

<%
Dim strConn, rs, Conn_String
'Apro la connessione al database
Set strConn = Server.CreateObject("ADODB.Connection")
Conn_String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Qui_Scrivi_il_nome_della_cartella_Che_contiene_il_Db/qui_scrivi_nome_DB.mdb")
strConn.open Conn_String
'Apro il recordset
Set rs = Server.CreateObject("ADODB.Recordset")
'sql della tabella con gli ip autorizzati
sql= "SELECT * FROM tab_ip_aut" 
Set rs = strconn.Execute(SQL)
if rs.Eof then
Response.Write("
Nessun ip presente")
else
'Eseguo un ciclo per rilevare tutti gli ip presenti in tabella
Do While NOT rs.EOF
' verifico gli ip
if request.servervariables("remote_addr") = rs("qui_scrivi_il_campo_ip") Then
'se trovo ip corretto reindirizzo alla pagina ok
Response.Redirect("pagina_ok.asp")
else
'se non trovo nessun ip autorizzato rimando alla pagina errore
Response.Redirect("pagina_errore.asp")
End if
rs.MoveNext
Loop
End if
'chiudo recordset e la connessione
Rs.Close()
Set Rs = Nothing
strConn.Close()
set strConn = Nothing
%>

ritengo che se la pagina di verifica ip sarà in una Intranet dove gli ip dei singoli pc (client) non cambiano non avrai problemi, cosa invece molto probabile se la pagina sarà in Internet dove l'ip può cambiare anche ad ogni connessione (ameno che non hai un ip statico cosa difficile)