en lille ip kode

If request.servervariables(\"REMOTE_ADDR\") <> \"XXX.XXX.XXX.XXX\" Then
Response.Redirect(\"http://eksperten.dk\")
End If

Du skal sku\' ikke sende dem til Eksperten ;-).

de ville da være glade for et hit???

nej opgaven er ikke det du skrev, tænk.

du kan jo skrive kode i en include fil?

og så inkludere den i toppen af de sider der ikke må komme nogen ind på??

Fil 1: secure.asp
<%
If request.servervariables(\"REMOTE_ADDR\") <> \"XXX.XXX.XXX.XXX\" Then
Response.Redirect(\"dumaaikkekommeindside.asp\")
End If 
%>
Fil 2: default.asp
<!-- #include file=\"secure.asp\" -->
<html>
<body>
blaaa blaaa
</body>
</html>

Fil 3: dumaaikkekommeindside.asp
<html>
<body>
Du må ikke komme ind
</body>
</html>

?

Du kan evt lave din include sådan her med database:



<%
IP_Adr = Request.ServerVariables(\"REMOTE_ADDR\")

strSQL = \"SELECT * FROM iplist WHERE IP_ADR = \'\" & IP_Adr & \"\';\"

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"mindb.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
set rs = myConn.Execute (strSQL)
if rs.BOF OR rs.EOF then
  myConn.Close
  Response.Redirect(\"ikkeadgang.asp\")
end if
myConn.Close
%>

Reponse.Buffer = True
Do
If Request(\"REMOTE_ADDR\") <> rs(\"fradatabasen\") Then
Response.Redirect(\"dinside.asp\")
End If
Loop While Not rs.EOF

eagleeye laver du databasen til det, et eksempel og den liste over de 5 nyeste ip der er ankommet til kontrolsiden ?

Skal den også logge hvem der er kommet igennem?

Eller hvordan skal IPlisten i databasen virke:

Den list du har i databasen er det en liste over IP adresser som har adgang?

Kan du ikke lave en liste over de 5 nyeste ip der er ankommet og hvilke iper der er i databasen

http://www.eksperten.dk/spm/123362
http://www.eksperten.dk/spm/123367

Ja det er dem der har adgang

JEg har lavet en DB som indeholder 2 tabeller:

iplist:
ID : autonummer
IPadr : tekst

iplog:
ID : autonummer
IDadr : tekst
knowUser : Ja/Nej felt

Så har jeg lagt dette ind i toppen af mine .asp som folk kiiker på, det tjekker om IP er i tabllen iplist og logger folks IP adresse i iplog tabellen. Der oprettes se session variable så man kun gemmer IP adressen en gang pr. session for en bruger:

<% if Session(\"IPchecked\") = \"\" then %>
  <!-- #include file=\"ipcheck.asp\" -->
<% end if %>

Du kan nøjes med
  <!-- #include file=\"ipcheck.asp\" -->
da session tjekket også er i ipcheck.asp ...

IPCHECK.ASP:


<%
if Session(\"IPchecked\") = \"\" then
  strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"mindb.mdb\")
  Set myConn = Server.CreateObject(\"ADODB.Connection\")
  myConn.Open strDSN
  IP_Adr = Request.ServerVariables(\"REMOTE_ADDR\")
  strSQL = \"SELECT * FROM iplist WHERE IPadr = \'\" & IP_Adr & \"\';\"
  set rs = myConn.Execute (strSQL)
  KnowUser = false
  if rs.BOF OR rs.EOF then
    KnowUser = false
  else
    KnowUser = true
  end if
  strSQL = \"INSERT INTO iplog (IPadr, knowUser) VALUES (\'\" & IP_Adr & \"\', \" & knowUser & \");\"
  myConn.Execute(strSQL)
  myConn.Close
  if knowUser = false then
    Response.Redirect(\"ikkeadgang.asp\")
  else
    Session(\"IPchecked\") = true
  end if
end if
%>

En kontrol side kontrol.asp:
Udskrive de senest 5 som har forsøgt at logge ind, den skriver IP og om den er kendt eller ikke kendt.

Den anden tabel på siden udskriver alle IP fra tabellen iplist:



<% if Session(\"IPchecked\") = \"\" then %>
  <!-- #include file=\"ipcheck.asp\" -->
<% end if %>
<html>
<head>
<title>kontrol</title>
</head>
<body>
<center>
<%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"mindb.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
%>Top 5 list over seneste forsøg på at logge ind:<br><%
strSQL = \"SELECT TOP 5 * FROM iplog ORDER BY ID DESC;\"
set rs = myConn.Execute (strSQL)
Response.write \"<table><tr><td>ID</td><td>Kendt</td></tr>\"
do while not rs.EOF
  Response.write \"<tr>\"
  Response.write \"<td>\" & rs(\"IPadr\") & \"</td>\"
  Response.write \"<td>\" & rs(\"knowUser\") & \"</td>\"
  Response.write \"</tr>\"
  rs.movenext
loop
Response.write \"</table>\"
%>
<br><br><br>
Liste over godkendte IP adresser:<br><%
strSQL = \"SELECT * FROM iplist;\"
set rs = myConn.Execute (strSQL)
Response.write \"<table><tr><td>ID</td></tr>\"
do while not rs.EOF
  Response.write \"<tr>\"
  Response.write \"<td>\" & rs(\"IPadr\") & \"</td>\"
\'  Response.write \"<td>\" & rs(\"knowUser\") & \"</td>\"
  Response.write \"</tr>\"
  rs.movenext
loop
Response.write \"</table>\"
myConn.Close
%>
</center>
</body>
</html>

var det sådan noget du søgte?

det funker ikke. Lukker

det virker fint ved mig.


SÅ spørg da og sig hvad der ikke virker !!!!