CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

sparkling Nybegynder

08. august 2001 - 22:02 Der er 8 kommentarer og
2 løsninger

Login ud fra en Access DB med USER og PASS

Som sagt,

Jeg har en Access database med USER og PASSWORD info...

Nu vil jeg gerne lave en login boks, sådan at når brugeren har logget sig ind, kan han få adgang til alle de asp filer som jeg har sat en include fil i toppen af...

Forstår i???

Nogen der har sådan en script?

Synes godt om

tzr Nybegynder

08. august 2001 - 22:04 #1

er det at etablere en forbindelse til en database du ikke kan finde ud af ?

/Kenneth

Synes godt om

sparkling Nybegynder

08. august 2001 - 22:08 #2

Yep... jeg har fundet en del password-script på nettet, men det funker ikke.

Jeg mangler en måde jeg ud fra min Access db, sådan kun mine registrede brugere kan komme ind på de sider som jeg \"sikrer\"...

Kan man ikke lave det sådan at jeg sætter en include fil i toppen af de asp filer det drejer sig om?=

Synes godt om

tzr Nybegynder

08. august 2001 - 22:10 #3

hvis du ved hvordan du vil programmere det her, og bare ikke helt har forstået hvordan man connecter til en database. Jeg synes (selv ihvertfald) at www.haneng.com har en god Access+ASP toturial

Synes godt om

darkhero Nybegynder

08. august 2001 - 22:23 #4

Dette skal du ligge i en fil du kalder login.asp
<% Login = Request(\"login\")%>
<% If login = \"login\" then %>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"Databasen.mdb\")
strSQL = \"Select * from Brugere where username = \'\" & Request.form(\"username\") & \"\' AND password = \'\" & Request.Form(\"password\") & \"\'\"
Set rs = Conn.Execute(strSQL)

If rs.EOF or rs.BOF then
Response.write(\"<font color=\'#FF0000\'>Du har intastet t forkert brugernavn eller password</font>\")
Else
Response.Cookies(\"login\")(\"login\") = \"ja\"
Response.Redirect(\"beskyttet.asp\")
End if

%>
<form name=\"form1\" method=\"post\" action=\"login.asp?login=login\">
Brugernavn: <input type=\"text\" name=\"username\" size=\"20\"><br>
PAssword: <input type=\"password\" name=\"password\" size=\"20\"><br>
<input type=\"submit\" name=\"login\" value=\"Login\">

Dette skal være i dine beskyttede filer:

<%
If request.cookies(\"login\")(\"login\") <> \"ja\" then
response.redirect(\"login.asp\")
End if
%>

Synes godt om

sparkling Nybegynder

08. august 2001 - 22:24 #5

Jeg kan ikke så meget programmering, endnu;-) - har prøvet at se hans site, men er der ikke nogle der kan poste et svar og hvad jeg skal gøre her?

Synes godt om

sparkling Nybegynder

08. august 2001 - 22:30 #6

prøver dit svar darkhero... vender tilbage

Synes godt om

torbenmelander Nybegynder

08. august 2001 - 22:32 #7

Prøv at kigge på netcoders.dk der er en del eksmepler på hvordan man laver netop ovenstående under source code .. du kan sikkert også finde noget på www.activeserverpages.dk under downloades

Synes godt om

sparkling Nybegynder

08. august 2001 - 22:48 #8

Nu får jeg denne fejl:
Microsoft VBScript compilation error \'800a03f6\'

Expected \'End\'

/login.asp, line 17

--------------------------------------

Mit script ser sådan ud:
<html>

<body>
<% Login = Request(\"login\")%>
<% If login = \"login\" then %>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"fpdb/usersdb.mdb\")
strSQL = \"Select * from MEMBERS where NAME = \'\" & Request.form(\"NAME\") & \"\' AND PASSWORD = \'\" & Request.Form(\"PASSWORD\") & \"\'\"
Set rs = Conn.Execute(strSQL)

If rs.EOF or rs.BOF then
Response.write(\"<font color=\'#FF0000\'>Du har intastet t forkert brugernavn eller password</font>\")
Else
Response.Cookies(\"login\")(\"login\") = \"ja\"
Response.Redirect(\"beskyttet.asp\")
End if

%>
<form name=\"form1\" method=\"post\" action=\"login.asp?login=login\">
Brugernavn: <input type=\"text\" name=\"username\" size=\"20\"><br>
PAssword: <input type=\"password\" name=\"password\" size=\"20\"><br>
<input type=\"submit\" name=\"login\" value=\"Login\">

</body>
</html>
----------------------------------------

nogen forslag?

Synes godt om

torbenmelander Nybegynder

08. august 2001 - 22:57 #9

<% If login = \"login\" then %>

Afslut det hele

<% End If %>

altså siden!

Synes godt om

sparkling Nybegynder

08. august 2001 - 23:17 #10

YES YES YES - Det virker...! Skide godt gutter...

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

14:59

Test: Endelig kan man få en soundbar der lyder godt - og som ikke behøver nogen klodset subwoofer

14:33

Analyse: ”Det største it-nedbrud i historien” viser hvor sårbare dine it-løsninger er - og det vil ske igen

14:00

Nørgaard: Jeg har jo sagt det gang på gang på gang! VMS er det bedste styresystem EVER! Men lytter folk?! Nej, nej og atter nej!

26/07

Kæmpeleverandør til Pentagon hacket: Interne undersøgelser lækket

26/07

Stor aftale gør Microsofts datacentre hurtigere - investerer i netværksudstyr

26/07

Nordjyske MapsPeople ruster op til opkøb af konkurrenter: "Vi vil vinde det her kapløb"

26/07

Mød den unge version af den mest elskede seriemorder nogensinde

26/07

AMD opdager cpu-fejl i 11. time: Storstilet lancering udskydes

26/07

Microsoft tager til genmæle: Vores licenspraksis skaber ikke unfair konkurrence

26/07

Med SearchGPT har verden fået en spritny søgemaskine: Kan den true Googles dominans?

26/07

Færre unge studerende på landets it-uddannelser: "Vi afviser dem der, hvor de har lyst til at læse"

Vis flere artikler

IT-JOB

PensionDanmark

Business Tester

Udviklings- og Forenklingsstyrelsen

Rådgivende enterprisearkitekter med stærke samarbejdsevner

Udviklings- og Forenklingsstyrelsen

Controller til økonomi og compliance

ATP

NewTech Consultant, der kan drive NewTech-afprøvninger hos Danmarks største pensions- og administrationshus

Udviklings- og Forenklingsstyrelsen

Backend-udvikler til Java-baserede microservices

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 09:49	Indtogs sejlads : OL i Paris : Hvornår kom Danmark ? Af Ikke-ekspert i Fri debat
I dag 03:28	Inkasso som privat? Af lekor adams i Fri debat
I går 23:51	Frossen cursor Af goglov i PC
I går 13:34	har 4 -5 år gammel 4G ruter et eller kinesisk mærke Af Novice-1 i Routere & Switches
I går 10:18	MSI Vector kan ikke installere ny Windows 11 Af Bruno Nissen i PC