---

Kan nogen lede mig til noget materiale om at lave en login procudure som
sender en bruger til en bestemt site og kun til den og ingen anden?

/Nils

---

D kan da gøres på denne simple måde... kan det ikke?

Hvorfra man skal logge ind:

<form name="form" action="sikkerside.asp" method="post">
<input type="text" name="username" id="form">
Password<br /><input type="password" name="userpwd" id="form">
<input type="hidden" name="login" value="true">
<input type="submit" value="Login" id="form2">
</form>

Hvortil man skal komme

<% If Request.Form("username") = "Børge" Then
If Request.Form("userpwd") = "Børgeskode" Then
%>

INHOLD PÅ SIDEN

<% Else
Response.Redirect "ingenadgang.asp"
End If
%>

Kan godt være det virker lidt for nemt kommet omkring, men det virker da,
ellers skal man til at finde de lange koder frem, og det har jeg ikke tid
til for jeg skal snart i seng... :)



--
Danmarks største specialiserede IT jobdatabase
- Udelukkende med IT- og internetrelaterede jobs
- Opret en profil og lad drømmejobbet finde dig
KLIK HER! => http://www.html.dk/job

---

Jeg skal køre det via en database da jeg har ret mange som skal komme til
deres "egen" side på sitet. Så jeg kan ikke lige se hvordan det kan lade sig
gøre. Er nemlig noget nybegynder til ASP.

/Nils

"Archie Mósses" <archiemosses@msn.com> skrev i en meddelelse
news:b2p0fg$9b4$1@sunsite.dk...
> D kan da gøres på denne simple måde... kan det ikke?
>
> Hvorfra man skal logge ind:
>
> <form name="form" action="sikkerside.asp" method="post">
> <input type="text" name="username" id="form">
> Password<br /><input type="password" name="userpwd" id="form">

---

Sådan her kan du lave en database login... du kan vel selv se hvorfra den
henter de data den skal bruge, fra form.
<%
Dim Conn, cStr, sql, RS, username, userpwd
username = Request.Form("username")
userpwd = Request.Form("userpwd")
Set Conn = Server.CreateObject("ADODB.Connection")
cStr = "DRIVER={Microsoft Access Driver (*.mdb)};"
cStr = cStr & "DBQ=" & Server.MapPath("database.mdb") & ";"
Conn.Open(cStr)
sql = "select username from Members where username = '" & LCase(username) & "'"
sql = sql & " and userpwd = '" & LCase(userpwd) & "'"
Set RS = Conn.Execute(sql)
If RS.BOF And RS.EOF Then
Session("UserLoggedIn") = "false"
Else
Session("UserLoggedIn") = "true"
End If
End If
%>

Her er koden du kan ligge på den "hemlige" side:

<% If Request.Session("UserLoggedIn") <> "true" Then
Response.Redirect "default.asp"
End If %>

Sidens indhold...

Håber d kan bruges :)

--
Danmarks største specialiserede IT jobdatabase
- Udelukkende med IT- og internetrelaterede jobs
- Opret en profil og lad drømmejobbet finde dig
KLIK HER! => http://www.html.dk/job

---

Archie Mósses wrote in dk.edb.internet.webdesign.serverside.asp:
> Sådan her kan du lave en database login... du kan vel selv se hvorfra den
> henter de data den skal bruge, fra form.
> <%
&gt; Dim Conn, cStr, sql, RS, username, userpwd
&gt; username = Request.Form("username")
&gt; userpwd = Request.Form("userpwd")
&gt; Set Conn = Server.CreateObject("ADODB.Connection")
&gt; cStr = "DRIVER={Microsoft Access Driver (*.mdb)};"
&gt; cStr = cStr & "DBQ=" & Server.MapPath("database.mdb") & ";"
&gt; Conn.Open(cStr)
&gt; sql = "select username from Members where username = '" & LCase(username) &
"'"
&gt; sql = sql & " and userpwd = '" & LCase(userpwd) & "'"
&gt; Set RS = Conn.Execute(sql)
&gt; If RS.BOF And RS.EOF Then
&gt; Session("UserLoggedIn") = "false"
&gt; Else
&gt; Session("UserLoggedIn") = "true"
&gt; End If
&gt; End If
&gt; %>
>
> Her er koden du kan ligge på den "hemlige" side:
>
> <% If Request.Session("UserLoggedIn") <> "true" Then
&gt; Response.Redirect "default.asp"
&gt; End If %>
>
> Sidens indhold...
>
> Håber d kan bruges :)
>
> --
> Danmarks største specialiserede IT jobdatabase
> - Udelukkende med IT- og internetrelaterede jobs
> - Opret en profil og lad drømmejobbet finde dig
> KLIK HER! => http://www.html.dk/job
Ved ikke om jeg lige må blande mig lidt
men ville det ikke være bedst lige at trimme den der request?
ala:
Trim(Replace(request.form("login"),"'","''" ))

bare for at stoppe evt. indbrud??

Søren


--
Danmarks største specialiserede IT jobdatabase
- Udelukkende med IT- og internetrelaterede jobs
- Opret en profil og lad drømmejobbet finde dig
KLIK HER! => http://www.html.dk/job