---
title: "Sessioner..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/78970-sessioner"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Coccozz"
published: "2003-06-05T17:53:16.000Z"
updated: "2003-06-08T16:09:40.000Z"
replies: 12
views: 295
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/78970-sessioner"
---
# Sessioner...
## #1 — Coccozz, 2003-06-05T17:53Z
Har hittat ett Bra Kontaktscript Som är skrivet av "Skatan" och undrar nu om någon vet hur jag ändrar om sessionerna på adminsidan till de sessioner som jag har på min andra admin sida... Svårt att förklara...skickar med koden för adminsidan till kontaktskriptet...
```
<% Response.Buffer=TRUE %>
<% IF Session("user") = user AND Session("pass") = pass Then %>
Contact Script / madebySkatan / admin
<% If NOT request.Querystring("action") <> "" THen %>
Admin för contact scriptet av Nicklas "Skatan" Karlsson, [url]www.skatan.info.[/url]
Läs meddelanden Logga ut
<% ENd If %>
<% If Request.Querystring("action") = "message" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("../db/contact.mdb")
SQL = "SELECT * From contact order by ID desc"
rs.Open SQL, Conn
Do while NOT rs.EOF
%>
<%=rs("date")%> - <%=rs("ip")%> <%=rs("name")%> "><%=rs("email")%> "><%=rs("url")%>
<%
rs.MoveNext
Loop
%><% End If %>
<%
IF Request.Querystring("action") = "logout" Then
Session.Abandon
Response.Redirect("login.asp")
END IF
%>
<%If Request.QueryString("action") = "del" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/contact.mdb")
SQL = "Delete * From contact Where Id = " & Request.QueryString("ID") & " "
rs.Open SQL, Conn
Response.Redirect("admin.asp")
End If%>
<%
Else
Session.Timeout = 1
Session("wrong") = "FEL! Du måste liksom ha rätt användarnamn och lösenord för att komma in!"
Response.Redirect("login.asp")
End If
%>
```
Och vet inte om det behövs men skickar med hela koden för min andra adminsida som jag vill att ovanstående kod ska använda samma sessioner som...
```
<% IF NOT Session("unik_user") = "fpB-A2-tDSs-8V-P" AND NOT Session("ip_access") = "2XM-iU-cRMj-Rh-i" AND NOT Session("no_hacker") = "v1Z-9e-zbFW-7j-I" THEN
Response.Redirect "http://www.coccozz.web8k.com/admin/login/login.asp"
ELSE %>
Coffaz.com
En skyddad sida!
Du måste logga in för
att kunna besöka denna sidan! (alltså få sessions som ger dig
tillgång till denna sidan)
<% END IF %>
```
Tack på förhand // Christoffer :q
Permalänk: https://www.webforum.nu/p/78970
## #2 — Coccozz, 2003-06-05T18:56Z
Någon?
Permalänk: https://www.webforum.nu/p/1074670
## #3 — Coccozz, 2003-06-05T18:59Z
Filer
Skikkar med alla de filerna jag har på adminsidorna...
Bilagor:
- [admin.zip](https://www.webforum.nu/a/1562.zip)
Permalänk: https://www.webforum.nu/p/1074675
## #4 — solbulle, 2003-06-05T19:28Z
Det är väl denna raden:
```
<% IF Session("user") = user AND Session("pass") = pass Then %>
```
Som i stället ska använda dessa värden:
```
<% IF NOT Session("unik_user") = "fpB-A2-tDSs-8V-P" AND NOT Session("ip_access") = "2XM-iU-cRMj-Rh-i" AND NOT Session("no_hacker") = "v1Z-9e-zbFW-7j-I" THEN
```
mao:
```
<% IF Session("ip_access") = "2XM-iU-cRMj-Rh-i" AND Session("ip_access") = "2XM-iU-cRMj-Rh-i" Then %>
```
Eller missar jag något som vanligt?
Antar att i orginalskriptet så får user & pass sina värden i includefilen.
Permalänk: https://www.webforum.nu/p/1074695
## #5 — Coccozz, 2003-06-06T09:59Z
Men då blir man väl inte skickad tillbaka till Login-sidan om man inte har rätt sessioner elr? Sidan visas väl bara om man har rätt sessioner... Dessutom ska ja väl lägga in alla de tre möjliga sessionerna... Dessutom, kanske e dum, men va ända in i h-vete betyder mao...har kollat överallt men kan nte komma på va d innebär ;)
// Ha d
Permalänk: https://www.webforum.nu/p/1074947
## #6 — solbulle, 2003-06-06T15:15Z
mao = Med Andra Ord.
Permalänk: https://www.webforum.nu/p/1075206
## #7 — solbulle, 2003-06-06T15:18Z
Huppelihupp, missade den där sista... med mera.
Men om du tar bort hela den ursprungliga raden då (den övre i min förrförra post), och i stället klistrar in den från ditt script, inklusive redirect:
```
<% IF NOT Session("unik_user") = "fpB-A2-tDSs-8V-P" AND NOT Session("ip_access") = "2XM-iU-cRMj-Rh-i" AND NOT Session("no_hacker") = "v1Z-9e-zbFW-7j-I" THEN
Response.Redirect "http://www.coccozz.web8k.com/admin/login/login.asp"
ELSE %>
```
Permalänk: https://www.webforum.nu/p/1075208
## #8 — Coccozz, 2003-06-07T08:35Z
D fungerar inte att bara ta den sessionen...för det är ju den sessionen som ligger på exempel.asp och om jag bar lägger in den övriga koden från kontaktadminsidan så fungerar inte sidan sedan...
Permalänk: https://www.webforum.nu/p/1075533
## #9 — Coccozz, 2003-06-07T10:13Z
Kan ingen som kan det här ta och byta sessioner på kontaktadminsidan och förklara sedan när det fungerar...?
Permalänk: https://www.webforum.nu/p/1075568
## #10 — Coccozz, 2003-06-08T08:48Z
Ingen?
Permalänk: https://www.webforum.nu/p/1075979
## #11 — Sebbe, 2003-06-08T08:55Z
Borde det inte funka med det som Solis säger? :o
```
<% Response.Buffer=TRUE %>
<%
IF NOT Session("unik_user") = "fpB-A2-tDSs-8V-P" AND NOT Session("ip_access") = "2XM-iU-cRMj-Rh-i" AND NOT Session("no_hacker") = "v1Z-9e-zbFW-7j-I" THEN
Response.Redirect "http://www.coccozz.web8k.com/admin/login/login.asp"
Else %>
Contact Script / madebySkatan / admin
<% If NOT request.Querystring("action") <> "" THen %>
Admin för contact scriptet av Nicklas "Skatan" Karlsson, [url]www.skatan.info.[/url]
Läs meddelanden Logga ut
<% ENd If %>
<% If Request.Querystring("action") = "message" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("../db/contact.mdb")
SQL = "SELECT * From contact order by ID desc"
rs.Open SQL, Conn
Do while NOT rs.EOF
%>
<%=rs("date")%> - <%=rs("ip")%> <%=rs("name")%> "><%=rs("email")%> "><%=rs("url")%>
<%
rs.MoveNext
Loop
%><% End If %>
<%
IF Request.Querystring("action") = "logout" Then
Session.Abandon
Response.Redirect("login.asp")
END IF
%>
<%If Request.QueryString("action") = "del" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/contact.mdb")
SQL = "Delete * From contact Where Id = " & Request.QueryString("ID") & " "
rs.Open SQL, Conn
Response.Redirect("admin.asp")
End If%>
<%
End If
%>
```
Permalänk: https://www.webforum.nu/p/1075984
## #12 — Coccozz, 2003-06-08T12:41Z
Ni är ju helt fantastiska... Var helt övertygad om att ja hade försökt det innan...men ja satt ju i en bra stund innan ja la upp det här så ja va väl lite snurri... Ber om ursäkt Solbulle...
Tack så hemskt mycket :birp
Permalänk: https://www.webforum.nu/p/1076079
## #13 — solbulle, 2003-06-08T16:09Z
Det är lugnt, jag får väl sluta upp med att vara så pass slö o i stälet posta hela koden direkt. ;) :)
Permalänk: https://www.webforum.nu/p/1076183
---
Tråden på webben: https://www.webforum.nu/amne/asp/78970-sessioner