Heyza
Jeg sidder og prøver på at lave noget cookie login til min side,
men jeg kan ikke få lortet til at virke..help..
-Conn.asp-
*<%
*'Åbner connection til databasen
*Set conn = Server.CreateObject("ADODB.Connection")
*Conn.Open "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath("../database/database.mdb")
*%>
-Default.asp-
*<!--#include file="conn.asp"-->
*<%
*
*If not session("ID") = "" then
*
*If Request.Cookies("thefatman")("userid") > 0 Then
* Set Rs = Server.CreateObject("ADODB.Recordset")
* SQL ="SELECT * FROM users WHERE (ID =" &
*Request.Cookies("thefatman")("userid") & ");"
* Rs.Open SQL, Conn
*
* If Rs("autolog") = True Then
* Session("ID") = Rs("ID")
* Session("Brugernavn") = Rs("Brugernavn")
* Response.Redirect("default.asp") *
* End If
*End If
*
*' Fjern Autologin
*If Request.Form("knap") = "Slå autologin fra" Then
* Set Conn = Server.CreateObject("ADODB.Connection")
* Conn.Open "DRIVER={Microsoft Access Driver *(*.mdb)};DBQ=" &
Server.Mappath("../database/database.mdb")
*
* SQL_2 ="UPDATE users SET autolog = FALSE WHERE (ID *=" &
Session("ID") & ");"
* Conn.Execute(SQL_2)
*End If
*
*' indhold
*Response.Write("<br>")
*Response.Write("<br>")
*Response.Write("<center><p class=""headtext"">Velkommen " &
*Session("Brugernavn") & "</center></p>")
*Response.Write("<br>")
*Response.Write("<br>")
*Response.Write("<br>")
*Response.Write("<br>")
*Response.Write("<center><form method=""POST""
*action=""default.asp""></center>")
*Response.Write("<center><input type=""submit"" name=""knap""
*value=""Slå autologin fra""></center></p>")
*Response.Write("</form>")
*end if
*%>
===- Form.asp -===
*<html>
*<head>
*</head>
*<body>
*
*<form method="post" action="login.asp">
*<table width="25%" align="center" border="0" cellpadding="0"
*cellspacing="0">
*
*
* <tr>
* <td width="94" class="tdtext">Brugernavn</td>
* <td width="218"> <input type="text" name="Brugernavn"
*size="20" value="" class="forms"></td>
* </tr>
* <tr>
* <td class="tdtext">Password</td>
* <td> <input type="password" name="Adgangskode" *size="20"
value="" class="forms"></td>
* </tr>
* <tr>
* <td height="19"> </td>
* <td valign="top" class="tdtext"><input type="checkbox"
*name="autolog" value="true" class="forms">
* auto login</td>
* </tr>
* <tr>
* <td height="24"> </td>
* <td valign="top"> <input type="submit" name="knp"
*value="login" class="btn">
* </td>
* </tr>
*</table>
*</form>
*</body>
*</html>
- Login.asp -
*<%
*' vi starter med at oprette forbindelse til vores database
*Set Conn = Server.CreateObject("ADODB.Connection")
*DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
*Server.MapPath ("../database/database.mdb")
*Conn.Open DSN
*
*
*strBrugernavn =
Trim(Replace(Request.Form("Brugernavn"),"'","''"))
*strAdgangskode = Trim(Replace(Request.Form
*("Adgangskode"),"'","''"))
*
*' herefter opbygger vi vores SQL-sætning og får vores
*databaseforbindelse til at udføre den.
*SQL = "SELECT * FROM users where Brugernavn = '" &
*strBrugernavn & "' AND Adgangskode = '" & strAdgangskode & "'"
*Set rs = Conn.Execute(SQL)
*
*If Not (rs.BOF Or rs.EOF) Then
*
* Session("ID") = Rs("ID")
* Session("Brugernavn") = Rs("Brugernavn")
* Session("Adgangskode") = Rs("Adgangskode")
*
* If Request.Form("autolog") = "true" Then
* Response.Cookies("thefatman")("userid") = *Session("ID")
* Response.Cookies("thefatman").Expires = date() *+ 365
*
* strSQL ="UPDATE users SET autolog = TRUE *WHERE (ID =" &
Session("ID") & ");"
* Conn.Execute(strSQL)
* End If
*
* Response.Redirect("default.asp")
*End If
*
*%>
Jeg kan godt logge ind normalt, men lige så snart jeg sætter hak
i Autologin så fucker min kode..
Hvad har jeg gjort galt????
--
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