> jeg har en bruger login på min side men det virker ikke ordentlig
> hvad skal jeg gøre for at få det til at virke.
>
> til at skrive bruger navn og password.
>
> <form action= "login1.asp" method= post id=form name=form>
> Brugernavn<input name="Email" size="15"
> maxlength="100" >
> Password
> <input type="password" name="Pass" size="10"> </P>
> <P><INPUT id=submit1 type=submit value="log mig på"
> name=submit1></P>
>
>
> tjekker brugernavn og password
>
>
> <% @Language=VBScript%>
>
> <%'Definere de forskellige variabler
> dim Strbruger, Strpass, MyConn, strDSN, StrBrugerid,
> Strsql,objConn, Dbq,Driver,rs1, rs
>
> 'Henter værdier fra log ind formularen
> Strbruger = Request.Form ("email")
> Strpass = Request.Form ("pass")
> Strpass = Replace( Strpass,"'","''")
>
>
>
>
>
>
> 'Tjekker at der er både e-mail og password feltet har været
> udfyldt
> If Strbruger <> "" and Strpass <> "" Then
> 'Definere 2 SQl sætninger henter den persons brugerid og
> brugerstatus ( siger noget om hvad han har adgang til )som har
> logget på
>
>
>
> 'Åbner en dns-less forbindelse til databasen
> strConnString = "DRIVER={Microsoft Access Driver (*.mdb)};
DBQ="
> & Server.MapPath("hp.mdb")
> set MyConn = Server.CreateObject("ADODB.Connection")
> MyConn.Errors.Clear
> MyConn.Open strConnString
>
>
>
>
> 'Laver en ny sql sætning som forsøger at matche de indtastede
> password og personens brugerid
> Strsql = "Select * from hp where brugernavn='"&Strbruger&"' and
> password='"&Strpass&"' "
> Response.Write (Strsql)
> 'Udfører sætningen
> set rs1= MyConn.Execute(Strsql)
> 'Tjekker om den kan finde de indtastede værdier og opretter
nogle
> sessions som gemmer på nogle informationer om personen
> if not rs1.EOF then
>
> session("Login") = TRUE
> Response.redirect "forside.html"
> 'Lukker forbindelsen til databasen
>
>
>
> else
> 'Hvis du har skrevet forkert password eller lignende so ryger
du
> her hen
> Response.redirect "login.asp"
> 'Lukker forbindelsen til databasen
>
>
> end if
>
>
> else
> Response.redirect "login.asp"
>
> 'Lukker forbindelsen til databasen
>
> Set rs1=nothing
> MyConn.Close
> Set MyConn= nothing
>
>
> end if
>
> %>
<%
> 'Lukker forbindelsen til databasen
>
> Set rs1=nothing
> MyConn.Close
> Set MyConn= nothing
>
> %>
dette har jeg til at være på mine side hvor at man skal bruge
brugernavn og password
<% if session("Login") <> true then
> response.redirect "login.asp"
> else %>
>
> <HTML>
> <HEAD>
>
> koder
>
> </BODY>
> </HTML>
> <% end if %>
>
> håber i kan hjælpe mig med at få det til at virke
>
>
>
www.sonnyhk.tk
tak for hjælpen men jeg er ny begynder så jeg ved jo ikke så meget
om det. jeg har prøvet noget af det med at lave det om der står på
siderne men det hjalp ikke ik det jeg kunne se ihvertfald.
problemet ligger idet at den ikke husker at der er logget ind og det
ert jo et problem. håber i kan hjælpe mig i må gerne skrive lidt
kode hvis i vil
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials