Discussion :

[naouah]

J'ai ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
<%
if request.servervariables("REMOTE_ADDR")="xx.xx.xx.xx"  then
response.redirect "acces.htm"
else
response.redirect "refus.htm"
end if
%>

J'ai une base access avec des IP a autorisé, comment je peux faire le lien avec ce code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
<%
 
dbPath = Server.MapPathma_base.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" _
   & " DBQ=" & dbPath
%>

merci pour votre aide

[roro06]

Bonjour aussi

http://florian.developpez.com/tutori...age=page_6#LVI

[naouah]

J'ai tenté ça mais ça ne marche pas, je n'arrive pas a faire teste si IP visite exsite dans le base access (si oui rederiction , si non refus)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
<%
'Connexion à la base de données
Set Conn = Server.CreateObject("ADODB.Connection")
Connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/db.mdb" 
Conn.Open connstring
%>
 
<%  
sql = "SELECT *  FROM table_ip"
Set message = Server.CreateObject("ADODB.Recordset")
message.Open sql, conn, 3, 3
%>
 
<%
if request.servervariables("REMOTE_ADDR")in sql then
response.redirect "ok.asp"
else
response.redirect "non.asp"
end if
%>
 
<%
conn.close
set conn=nothing
%>

[roro06]

Regardes (et analyses) la partie VI-E (dernier exemple). Tu y trouveras ton bonheur.

[naouah]

Je cherche juste de savoir si variable IP existe ou pas dans la base access?
j'avoue que je ne suis pas un programmeur, j'essaie de creer un petit truic de test

[roro06]

Il te "suffit" de boucler sur ton recordset

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
while not message.eof
 
...
message.movenext
wend

et de tester dans cette boucle l'égalité de l'ip testée avec celle se trouvant dans la base

[naouah]

Merci pour les pistes. ce code marche bien pour un redirection positive (si Ip correcte). mais message d'erreur (si IP n'existe pas dans la base)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
<%
DSN_BASE = "DBQ=" & Server.Mappath("base_ip.mdb") & _
";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set Rs = Server.CreateObject("ADODB.Recordset")
 
rs.open "Select * from table_ip WHERE ip ='"&Request.ServerVariables("REMOTE_ADDR")&"'" , conn
%>
 
 
<%
if request.servervariables("REMOTE_ADDR")= Rs("ip") then
response.redirect "manager.asp"
else
response.redirect "refus.asp"
end if
%>
 
 
<%
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

une autre question, la redirection est fective car si quelqu'un a le lien direct, il peut aller même si son IP n'est pas la bonne?

Merci beaucoup pour Votre aide

[roro06]

Reprendons :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
ip=request.servervariables("REMOTE_ADDR")
while not rs.eof
 
  if ip=rs("ip") then
    response.redirect "manager.asp"
  end if
rs.movenext
wend

Response.redirect("refus.asp")

[naouah]

Un grand merci