Kun adgang ved rigtig ip-adresse

if Request.ServerVariables("REMOTE_ADDR") = "den_rigtigr_ip" then
  'godkent
else
  'ingen adgang
end if

så lægger du bare dette i toppen af alle de sider der skal beskyttes:

if Request.ServerVariables("REMOTE_ADDR") = "den_rigtigr_ip" then
  Session("access") = "Granted"
else
  Response.Redirect("ingen_adgang.asp")
end if

Er der noget specielt sted de koder skal pladseres?

hvis du begynder alle de sider der skal benyttes med denne kode stump, burde det være i vinkel :o)

<%@LANGUAGE="VBSCRIPT"%>
<%
if NOT Request.ServerVariables("REMOTE_ADDR") = "den_rigtigr_ip" then
    Response.Redirect("ingen_adgang.asp")
end if
%>

For at få det skåret ud i pap!
Her er starten af mine koder minus mine MySQL data:


<%
Response.Buffer = true
Session.LCID = 1030

adminFilNavn = "admin.asp"

DATABASE_TYPE = "MySQL"
'DATABASE_TYPE = "ACCESS"

tempConn = "DRIVER={MySql};SERVER= ******* *******

'tempConn = "Data Source="&server.MapPath("db5.mdb")&";Provider=Microsoft.Jet.OLEDB.4.0;"


'Gem IP adressen på den som forsøger at se admin siden:
if Session("saveip") <> "done" then
  strSQL = "INSERT INTO ipcheckadmin (IPadr, datestamp, typeid) VALUES ("
  strSQL = strSQL & "'" & Request.ServerVariables("REMOTE_ADDR") & "', "
  strSQL = strSQL & "'" & formatDateTime(date,0) & "', "
  strSQL = strSQL & "'admin.asp');"
 
  Session("saveip") = "done"
 
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open tempConn 
  myConn.Execute(strSQL)
  myConn.Close
end if

mode = Request("mode")
if mode = "" then
  mode = "login"
  if Session("adminguest") = "LuGuLoKuJh" then
    mode = "selecttype"
  end if
end if

<%@LANGUAGE="VBSCRIPT"%>
<%
'dette er toppen af dokumentet(helt præcist 3. linie) :o)
if NOT Request.ServerVariables("REMOTE_ADDR") = "den_rigtigr_ip" then
    Response.Redirect("ingen_adgang.asp")
end if

Response.Buffer = true
Session.LCID = 1030

'her kommer resten af koden

Takker, jeg kigger på det og vender tilbage!

Hvad gør jeg forkert.....siden kan ikke vises


<%'<!--#include file="includes/data.inc"-->%>
<%@LANGUAGE="VBSCRIPT"%>
<%
if NOT Request.ServerVariables("REMOTE_ADDR") = "**.**.***.***" then
    Response.Redirect("mainpage.asp")
end if

Response.Buffer = true
Session.LCID = 1030

adminFilNavn = "admin.asp"

DATABASE_TYPE = "MySQL"
'DATABASE_TYPE = "ACCESS"

Dit problem her til sidst er include-ordren.
Det skal ske uden at man bruger <%...%>
altså væk med <%...%> rundt om din include-fil

Jamen jeg skal vel bruge de <% til de andre koder?
Skal jeg så pladsere IP koderne før <%?

Du kender mig.....det skal helst skæres ud i pap :)

Ok nu forstod jeg hvad du mente, jeg prøver lige!

men nu har jeg set du har et lille kommentarmærke ' lige efter
<% så der må også være noget andet.

Ja! det var ikke nok at fjerne <%

mm12010> du kan altså ikke få nogle point før du er med til at få dine koder virker sammen med mine koder!

nmh> har du flere ideer om hvordan vi får det til at virke

Jeg er ikke helt klar over, hvori dit problem består.
Nu har du jo koden, som afviser alle med en forkert IP-adresse.
Hvad skal der så ske med den bruger som ankommer med en rigtig IP-adresse?
Er resten af siden blot, at du vil gemme IP-adressen for de brugere der kommer med en "forkert"?
Men du fik jo tingene til at virke, da det handlede om at stemme, og at gemme IP-adressen ved afstemning m.m.

Jeg vil forslå at begynde forfra med den nye side.
Brug den ande, der jo virker, som udgangspunkt.
Der er jo kode, som faktisk gemmer IP-adresse og tidspunkt.

Det med at den gemmer ip-adresserne på dem som kommer ind på siden er lidt ligegyldigt hvis jeg får det med at det kun er min ip der må gå ind på siden!

Men det virker ikke....når jeg går ind på siden med den rigtige IP så sider den "Siden kan ikke vises"

Jeg kan ikke bare starte forfra da det ikke er mig som har lavet siden og jeg kan ikke selv lave koder *øv øv*

Da jeg ikke tror jeg kommer nogle vejne her, vælger jeg at stoppe dette spørgsmål uden at give point. Og så starte et nyt spørgsmål op hvor jeg spørger på en anden måde.

Hvis I føler jeg snydt for point, så skynd jer ind i det nye spørgsmål og hjælpe :)

Lukket!
Her er spørgsmålet stillet på en anden måde:
http://www.eksperten.dk/spm/386704