Login-side + Accessdatabase til redirect til konkret webside!

det er nu ikke så svært at lave :)
kig på asp.dk eller activeserverpages.dk :)

http://www.activeserverpages.dk/download/default.asp?mode=showdownload&id=69

Det er meget simpelt at lave. download et tilfældigt login system fra activedeveloper.dk og lav en ændring i filer der godkender noget i stil med

if 
rs(\"brugernavn\") = Hans Then response.write (\"<meta http-equiv=\"\"refresh\"\" content=\"\"0;URL=hans.asp\"\">\")

elseif

rs(\"brugernavn\") = Grethe Then response.write (\"<meta http-equiv=\"\"refresh\"\" content=\"\"0;URL=grethe.asp\"\">\")

elseif

rs(\"brugernavn\") = heksen Then response.write (\"<meta http-equiv=\"\"refresh\"\" content=\"\"0;URL=heksen.asp\"\">\")

end if

I mit link er det hele allerede lavet... :)

ja eller download det hele, men hvad sjovt er der i det ?

isl19960 æv jeg havde det ellers lige så sjovt med at selv prøve på at lave et

-sofus- det ville da være nemmere at redirecte ud fra brugernavnet

if rs.bof or rs.eof then
response.redirect \"default.asp?userid=\" & rs(\"userid\")

cliche,, det var også en mulighed, men man kommer ikke til forskellige sider, men den samme side med forskellige parameter..

well du kan da bare if rs.bof or rs.eof then
response.redirect rs(\"userid\") & \".asp\"

he he - nu spurgte han jo efter et færdigt script... og metoder - så det er helt fint hvis han kan lære noget af det samtidig... metoden kan vel også ses af den kode han downloader... ;o)

Ok så bøjer jeg mig (:

synes bare 200 point er meget for et link

yeah 200 for et link er en del

-sofus- -> det har du fuldstændig ret i - jeg vil da også foreslå at der ikke skal uddeles 200 point. Jeg synes donjoy skal lave et svar selv så han kan tage nogle af pointene retur... :)

cliche -> ikke bare en del -> for meget...

hehe

Scriptet skal gerne fungere, således at redirect-siden fremkommer i Parentframe. Login-siden skal nemlig fungere i en menu-frame, men skal sende brugeren videre til en side, som ikke åbner sig i menu-framen, men i hele browservinduet.

donjoy jeg vil gerne lave det for de 200 point hvis det er noget? ;)

OK, cliche de 200 point er dine, hvis du kan lave ovennævnte redirection!

OK, cliche de 200 point er dine, hvis du kan lave ovennævnte redirection!

OK sorry skulle lige sove :)

Skal vi sige det ligger her klokken 21, ja det synes jeg.

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
    Conn.Open strDSN
   
    bruger = Trim(Replace(Request.Form(\"bruger\"),\"\'\",\"\'\'\" ))
    kodeord = Trim(Replace(Request.Form(\"kodeord\"),\"\'\",\"\'\'\" ))
   
    Set rs = Conn.Execute(\"Select * From TABEL Where bruger = \'\" & bruger & \"\' And kodeord = \'\" & kodeord & \"\'\")
        If rs.EOF Then
            Response.Redirect \"fejl.asp\"
          Else
            Session(\"login\") = true
            Response.Redirect bruger & \".asp\"
          End If
       
        rs.Close
        Set rs = Nothing
   
        Conn.Close
        Set Conn = Nothing
%>

Så på dine sider der skal beskyttes

<%
If Not Session(\"login\") = true Then
    Response.Redirect \"fejl.asp\"
End If
%>

Har ik testet men tror ik det er fejl du

Til Cliche: Hvor er funktionen, som sørger for at redirect-siden fremkommer i Parentframe?!

Ahhh ups yeah den kommer om 3 min

Hvor får du brugersiderne fra?

OK forfra

login.asp---
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
    Conn.Open strDSN
   
    bruger = Trim(Replace(Request.Form(\"bruger\"),\"\'\",\"\'\'\" ))
    kodeord = Trim(Replace(Request.Form(\"kodeord\"),\"\'\",\"\'\'\" ))
   
    Set rs = Conn.Execute(\"Select * From TABEL Where bruger = \'\" & bruger & \"\' And kodeord = \'\" & kodeord & \"\'\")
        If rs.EOF Then
            Response.Redirect \"fejl.asp\"
          Else
            Session(\"login\") = true
            Response.Redirect bruger & \".asp\"
          End If
       
        rs.Close
        Set rs = Nothing
   
        Conn.Close
        Set Conn = Nothing
%>

bruger.asp---

<%
If Not Session(\"login\") = true Then
    Response.Redirect \"fejl.asp\"
End If
%>

<html>
<head>
<script>
if (parent.frames.length > 0) {
    parent.location.href = self.document.location
}
</script>
</head>
</html>



SÅÅ skulle det gerne virke :)

IKKE testet så fejl VIL nok forekomme :)

Menu-framen lægger i et frameset med top- og mainframe. Login-funktionen skal fungere således at brugersiden fremkommer i hele browservinduet.
Brugersiderne skal både kunne hentes lokalt på webserver og eksternt!

Jep, men smider du
<script>
if (parent.frames.length > 0) {
    parent.location.href = self.document.location
}
</script>
ind på brugersiderne sørger DET for at det er hele browseren som åbner vinduet, kan lige smide det online så du kan se :)

http://andreas.cliche.dk/eksperten/login/andreas.asp

bruger : andreas
pass : blahh

Jeg kan sende dig lortet så du kan se den kode jeg bruger :)

http://andreas.cliche.dk/eksperten/login/login.ace

nu kan den hentes

  http://andreas.cliche.dk/eksperten/login/index.html

er det selvfølgelig hvis du skal se de frames der :)

Jeg har brug for et password-script (Javascript), som kan \"bryde ud\" af en frame og som kan hente et (internt og eksternt)frameset ind i parentframe.

Ja det kan det her

Hej Cliche; kunne du ikke lægge scriptet ud, så jeg kan få et overblik. Mangler der ikke en default.asp til ovennævnte script?!

Hej Cliche, har desværre kommet til at trykke på acceptering af svar hos en anden end dig. Håber du bærer over med fejlen!!!!!

Det gør jeg da men samtidig træjkker jeg sourcen tilbage

trækker

Og nej faktisk ikke det tog 30 min at fikse det sammen....derfor eksperten er ved at blive fuct, fordi der er flerbrugerri

hovsa... jeg kan da lige se at jeg har fået en bunke point jeg vist ikke skulle ha (ihvertfald ikke dem alle *G*)...

Bare fortsæt med løsning af problemet cliche, når i er færdige kan i bare lige sige til, så opretter jeg et spørgsmål med det ønskede antal point til cliche... er det en ok løsning, eller har i andre forslag... ?

isl den er færdig

ok - så må donjoy lige fortælle hvor mange (evt. alle) point du skal ha... så opretter jeg et spørgsmål med det...

p.s. jeg bliver ikke mobset hvis donjoy siger \'alle point\' - det er jo hans valg - ikke mit som det vist så ud til at være blevet... :o)

cliche -> husk dog at poste koden her... så kan andre få glæde af løsningen... ;)

http://andreas.cliche.dk/eksperten/login/login.ace

Hej isl19960 og Cliche; som sagt beklager jeg at have givet forkerte point. Jeg håber at isl19960 vil give Cliche alle pointene, idet det er Cliche der har haft arbejdet med at udgive løsningen.

Tak for hjælpen!

Det håber jeg sku os ;)

donjoy, var det ellers som du ville have?

Det var bare perfekt. Du har ærligt fortjent de 200 point!!!!!!!!!!!!!

Gute kan jeg lukke forbindelsen nu så?

OK

super - så må vi lige finde et tidspunkt hvor både cliche og jeg er på samtidig... så opretter jeg et spørgsmål med 200 point... :)

Don\'t worry - jeg er 100% ærlig og er godt klar over at det var en fejl jeg fik de point...

cliche -> jeg mener stadig at du skal poste koden her... linket er fint nu, men spørgsmålet kan jo godt blive læst om lang tid - hvor din server måske ikke længere er online eller ikke har den fil osv. - sådan må/skal det være... :)

Skal jeg poste koden for 6 dokumenter...OK

andreas.asp---

<%
If Not Session(\"login\") = true Then
    Response.Redirect \"fejl.asp\"
End If
%>
<html>
<head>
<title>andreas</title>
<script>
if (parent.frames.length > 0) {
    parent.location.href = self.document.location
}
</script>
</head>
<body>
åbner i _parent
</body>
</html>


fejl.asp---
fejl.asp

default.asp---
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
    Conn.Open strDSN
   
    bruger = Trim(Replace(Request.Form(\"bruger\"),\"\'\",\"\'\'\" ))
    kodeord = Trim(Replace(Request.Form(\"kodeord\"),\"\'\",\"\'\'\" ))
   
    Set rs = Conn.Execute(\"Select * From TABEL Where bruger = \'\" & bruger & \"\' And kodeord = \'\" & kodeord & \"\'\")
        If rs.EOF Then
            Response.Redirect \"fejl.asp\"
          Else
            Session(\"login\") = true
            Response.Redirect bruger & \".asp\"
          End If
       
        rs.Close
        Set rs = Nothing
   
        Conn.Close
        Set Conn = Nothing
%>

index.html---
<!-- frames -->
<frameset  rows=\"50%,*\">
    <frame name=\"top\" src=\"login.html\" marginwidth=\"10\" marginheight=\"10\" scrolling=\"auto\" frameborder=\"0\">
    <frame name=\"main\" src=\"tom.html\" marginwidth=\"10\" marginheight=\"10\" scrolling=\"auto\" frameborder=\"0\">
</frameset>


login.html---
<form action=\"default.asp\" method=\"post\">
<input type=\"text\" name=\"bruger\">
<input type=\"text\" name=\"kodeord\">
<input type=\"submit\">
</form>


tom.html
tom.html



SÅÅÅÅ happy nu loader det her spm bare for vildt langsomt :)

nææ det gør det ikke engang

isl du kan bare smide et spm op og komme med url her, så svare jeg når jeg har tid og du accceptere når du har tid

http://www.eksperten.dk/spm/137539

Så skulle det være ude af verden... :)