/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Login med flere brugere.
Fra : Spintailmastiff@mail~


Dato : 02-10-05 14:13

Hej NG
Jeg har nu i 2 dage rodet rundt herinde for at finde hjælp, så nu
håber jeg at høre fra en som er flink

Jeg har et login sysstem som jeg er yderst tilfreds med, man kan logge
på flere brugere sammen ændre password og bruger navn o s v . det er
lavet i asp med access db. Menere selv det er sikkert men man ved jo
aldrig.

Mit problem består i at når man så logger ind skal brugernavn eller
password gøres afhænig på en eller anden måde så man kan se lige
de oplysninger som står i db om en udfra det login man har.

Jeg er desværre kørt fast håber nogen kan give mig et los til månen
*GG*

Hygge

_______________Kilde fil navn = log.asp______________________________
<%@LANGUAGE="VBSCRIPT"%>
<%

SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("DB.mdb")

If Request("mode") = "Check" then

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

Sql = "Select Count(*) as Found from member where (u = '" & bnavn & "')
and (p ='" & pword & "')"
Set Login = Rs.Execute(Sql)
if Login("Found") = 0 then
Session("login") = 0
error = "Du har tastet et forkert Brugernavn eller Password prøv
igen."
else
Session("Login") = 1
Session("password-session") = Request("username")
Response.Redirect "logger.asp"
end if
else
end if

%>
Til formen:
<form action="log.asp" method="post"><input type="hidden" value="Check"
name="mode">
_________________________________Kilde______________________________

Beskyttelse:filnavn=sættes i top af de filer som skal beskyttes
<%
Response.Buffer = True
SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("db.mdb")

if request("Mode") = "logaf" then
session.Abandon
Response.Redirect("log.asp")
end if
IF Session("password-session") = "" Then
Response.Redirect("log.asp")
end if


Sql = "Select * FROM member WHERE u = '" & session("password-session")
& "'"
set rs = rs.Execute(SQL)
%>
________________________________Kilde__________________________


 
 
Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste