Log ind script

sådan her?:
--
<%
Option Explicit
Dim username, password

username = Replace(Request.Form("username"),"'","''")
password = Replace(Request.Form("password"),"'","''")

sql = "Select * From user_table Where user = '"&username&"' And pass = '"&password&"'"
set rs = conn.execute sql

if not rs.eof then
Response.Cookies("admincookie") = "True"
else
Response.redirect("FEJLSIDE")
end if

Response.Redirect("root.asp?page=7")
%>

skal jeg ikke have en connection til databasen osse?

Der laves replace på ' til '' for at undgå sql injektion
Hvis du vil have lidt bedre sikkerhed bør du overveje bruge sessions i stedet for cookies

jo da :o)

<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/database.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>

vil du ikke skrive den der connection osse? - jeg er ikke så lyn-klog... ved godt der er torturials osv, men har ikke rigtig tid til det nu. på forhånd tusind tak...

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/database.mdb")
Conn.Open DSN

Option Explicit
Dim username, password

username = Replace(Request.Form("username"),"'","''")
password = Replace(Request.Form("password"),"'","''")

sql = "Select * From user_table Where user = '"&username&"' And pass = '"&password&"'"
set rs = Conn.execute sql

if not rs.eof then
Session("admincookie") = "True"
else
Response.redirect("FEJLSIDE")
end if
conn.close
set Conn = nothing
Response.Redirect("root.asp?page=7")
%>

Du skal så blot rette stien til databasen. Du kan vælge at "mappe" den som herover eller du kan skrive den fulde sti dvs d:\blabla\www\ditdoæne\DB\dindatabase.mdb ..i den dur

jeg rettede det til en session... men det er selvfølgelig frit valg om du vil benytte sessions eller cookies
Hvis du har små prblemer...så er html.dk et godt begynder sted :o)

den brokker sig over option explicit... hvad er det egentlig for noget? - er det noget der SKAL være der?

'frit valg mellem sessions eller cookies'

Jeg vil nok påstå, at benytter man cookies, kan man lige så godt lade være at lave et loginsystem

nej det skal ikke være der... det er vist nok så vidt jeg husker noget som betyder at den tjekker at alle dine variable er erklæret korrekt

den skal stå øverst option explicit... det var min fejl
Så sæt den over al koden :o)

Grunden til brokkeriet er, at option explit skal stå som første kodelinie

<%
Option Explicit
Dim username, password, Conn, rs

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/database.mdb")
Conn.Open DSN

username = Replace(Request.Form("username"),"'","''")
password = Replace(Request.Form("password"),"'","''")

sql = "Select * From user_table Where user = '"&username&"' And pass = '"&password&"'"
set rs = Conn.execute sql

if not rs.eof then
Session("admincookie") = "True"
else
Response.redirect("FEJLSIDE")
end if
Conn.close
set Conn = nothing
Response.Redirect("root.asp?page=7")
%>

Dim username, password, Conn, rs, DNS
sådan.. De skal lige alle med når du bruger option explicit ;o)

det er vist godnat for mig
Dim username, password, Conn, rs, DNS, sql

http://markmadsen.dk/bergh/default.asp?frame=6&page=

Der står linje 1011
Option Explicit skal stå aller aller øverst.. linje 1

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsstmoptionexplicit.asp

hvis det er fordi du includer siderne eller noget?
Så skal du kun bruge option explicit een gang øverst på hoved siden :o)

jeg bruger querystrings

hvis det har noget at sige?

Det har det da bestemt for så skal
---
username = Replace(Request.Form("username"),"'","''")
password = Replace(Request.Form("password"),"'","''")
---
skiftes ud med
---
username = Replace(Request.Querystring("username"),"'","''")
password = Replace(Request.Querystring("password"),"'","''")

ellers post lidt mere kode hvis den er helt gal :o)

jeg tror jeg er en dør til det her.. det nok kun for kloge mennesker.. :-)

det hele ligger faktisk i én asp fil

vil du have den?

nej det er for alle...men det tager sin tid :o)..
Hmm men den er jo monster lang ikke?
Prøv ad
Måske en anden gang det er en fordel at dele den op ;o)

:-) - jeg zipper den til dig, det er vel rarest?

oki

www.markmadsen.dk/default.rar

www.markmadsen.dk/bergh/default.rar, sry...

kigger på den

yep... jeg venter bare så... men hvis du ved hvad der er galt, må du godt sende det stykke kode der er rettet... så jeg ved hvad der var glat :-D - det lærer jeg da lidt ved..

damn en gang....sorry..hehe
øhh bøhh.. synes at kunne se at din form har method="post" så du skal bruge det med request.form. Du har ikke sat det ind i koden som jeg skrev?
Så sæt dette ind i stedet for det gamle du havde (og så dropper vi lige option explicit til at starte med
-----
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/database.mdb")
Conn.Open DSN

username = Replace(Request.Form("username"),"'","''")
password = Replace(Request.Form("password"),"'","''")

sql = "Select * From user_table Where user = '"&username&"' And pass = '"&password&"'"
set rs = Conn.execute sql

if not rs.eof then
Session("admincookie") = "True"
else
Response.redirect("FEJLSIDE")
end if
Conn.close
set Conn = nothing
Response.Redirect("root.asp?page=7")
%>

/bergh/Default.asp, line 1019

set rs = Conn.execute sql
----------------------^

prøv
Set rs = Conn.execute(sql)

nu melder den ikke fejl... men gør den det samme som før med cookies?

for mine spærrede sider er spærret med cookie...

nope du skal lige rette denne
Session("admincookie") = "True"
til
Response.Cookies("admincookie") = "True"
..---
Endvidere skal denne rettes
Response.redirect("FEJLSIDE")
til en evt fejlside eller fejl medelelse når der indtastes forkert

Men hvis du sætter bare rimelige krav til sikkerhed...så bør du seriøst overveje lave det om til sessions engang

ja, nu virker det sørerme, smider du et svar så du kan få point..

Jeg siger tusind tak for hjælpen, det var fandme rart at komme videre :-D

Håber der er noget jeg kan gøre for dig en dag.

Mvh. Mark Madsen

ja, jeg vil lige lære lidt mere om sessions en dag..

Jamen svar :o) .. godt det virker og det var da så lidt
Vil i øvrigt også foreslå dig ..på sigt..engang..at lave dit design om
Så du ikke har een side med 1200 linjer kode, men deler det op
Det gør det nemmere hvis du engang skal lave noget om :o)

godnat og sov godt ;o) hehe

for at vise brugernavn skal man bruge sessions ik?

Nej du kan også gemme det i en cookie
Men jeg vil anbefale sessions
fx følgende der hvor du laver login
Session("brugernavn") = username
Så kan du hele tiden refere sådan her
response.write "Du er "&Session("brugernavn")&" velkommen til"

hvordan laver du så spærringer på siderne?

Hvis det har interesse har jeg loginscript med Access 2000 db liggende - både med Session login og login via cookies.

Scriptet indeholder en bruger del, og admin del, og derudover en ekstra sikkerhed i forbindelse med cookies (de kan jo omdøbes i f.eks. Opera)

Scriptet tillader beskyttelse af alle .asp sider med blot et simpelt stykke kode.

Sig til hvis det har interesse, da jeg ellers ikke vil bruge tiden på at rette scriptet til!

Hov glemte lige...

Systemet tillader også at nye brugere kan oprette sig.
Disse får efterfølgende tilsendt en aktiveringsmail via Jmail..

Igen, sig til hvis det har interesse! ;o)

Sorry..gik altså i seng :o)
Hvis du laver det i sessions
login side:
---
session("loggetin") = "true"
---
øverst i beskyttede sider :
---
if session("loggetin") <> "true" then
  response.redirect("logind_side.asp")
end if
---
Tilsvarende med cookies hvis det er
Så princippet er at du sætter en session til true når de logger ind
På de beskyttede sider tjekker du så allerførst om denne session er sat til true
Hvis ikke den er det så smider du dem væk til login siden, og ellers , ja så er de logget ind og ser din side