Kan du ikke tilpasse det til mit community, så skal du nok få point, så jeg kan få lukket dette spg ;)
Her er godkend_login.asp :
<html>
<head>
<title>Login</title>
</head>
<body>
<%
Dim fejl, username, password
fejl = false
brugernavn = Trim(Replace(Request.Form("brugernavn"), "'", "''"))
kode = Trim(Replace(Request.Form("kode"), "'", "''"))
If brugernavn = "" Then
Response.Write "<p><font color=red>Indtast venligst dit brugernavn!</p></font>"
fejl = true
End If
If kode = "" Then
Response.Write "<p><font color=red>Indtast venligst dit password!</p></font>"
fejl = true
End If
If brugernavn = "Må du ik vide ;)" And kode = "Må du ik vide ;)" Then
Response.Write "<meta HTTP-EQUIV=""REFRESH""CONTENT=""000000000; URL=65654ggfdg8798797jhjhjhj.asp"">"
End If
If fejl = true Then
Response.Write "<p><a href=java script:history.back()>Tilbage</a>"
End If
If fejl <> true Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("com123.mdb")
Conn.Open DSN
Dim samletAntal
strSQL = "SELECT * FROM brugere WHERE brugernavn='" & brugernavn & "' and kode = '" & kode & "'"
Set rs = Conn.Execute(strSQL)
If Not rs.eof Then
Response.Write "<p><b>Login godkendt!</b>"
Response.Write "<p>Du er nu logget på som '" & rs("brugernavn") & "'</p>"
Session("login") = true
Session("brugernavn") = rs("brugernavn")
Session("id") = rs("id")
Conn.Execute("UPDATE brugere SET sidste_login='" & Now & "' WHERE id=" & Session("id"))
Response.Write "<meta HTTP-EQUIV=""REFRESH"" CONTENT=""000000000; URL=default.asp"">"
Session("adminlogin") = true
Session("brugernavn") = rs("brugernavn")
Session("id") = rs("id")
Conn.Execute("UPDATE brugere SET sidste_login='" & Now & "' WHERE id=" & Session("id"))
Response.Write "<meta HTTP-EQUIV=""REFRESH"" CONTENT=""000000000; URL=muhahaha.asp"">"
If request.form("save") = "on" then
Response.Cookies("Brugere")("brugernavn") = session("brugernavn")
Response.Cookies("Brugere")("kode") = kode
Response.Cookies("Brugere").expires = Date+365
Else
Response.Cookies("Brugere").expires = Date-1000
End If
Else
Response.Write "<p><font color=red>Du blev ikke logget ind! Du har muligvis indtastet forkert brugernavn eller password!</font></p>"
Response.Write "<p><a href=java script:history.back()>Tilbage</a></p>"
End If
Conn.Close
Set Conn = Nothing
End If
%>
</body>
</html>
Her er logoff.asp :
<html>
<head>
<title>Log af</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("com123.mdb")
strSQL = "SELECT * FROM brugere"
Set rs = myConn.Execute(strSQL)
NyTid = session("Tid") + datediff("n", session("LoggetInd"),now)
Sql = "Update brugere set tid = "&NyTid&" where brugernavn = " & Session("brugernavn")
session("login") = false
response.write "<meta HTTP-EQUIV=""REFRESH"" CONTENT=""000000000; URL=login.asp"">"
%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
