Hej tjaz !
Jeg har siddet og rodet med det et stykke tid nu....
Databasen har jeg lavet med to tabeller - /"fangster"/ og /"bruger"/, men det har jeg en ide om, at det er forkert ????
Jeg har fundet et login system på nettet, som jeg har tilpasset lidt, men jeg kan ikke lige se, hvordan jeg får din kode flettede ind i det ???
Mit login side ser således ud:
<% response.buffer = true %>
<%
response.buffer = true
if len(request.querystring("username")) = 0 and len(request.querystring("password")) = 0 then
SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fang.mdb")
If Request("mode") = "Check" then
Sql = "Select Count(*) as Found from bruger where (brugernavn = '" & Request("brugernavn") & "') and (password ='" & Request("password") & "')"
Set Login = Rs.Execute(Sql)
if Login("Found") = 0 then
Session("login") = 0
error = "ingen adgang!"
else
Session("Login") = 1
Session("brugernavn-session") = Request("brugernavn")
Response.Redirect "loggedin.asp"
end if
else
end if
Response.Write "<br><form method='POST' action='login.asp'>"
Response.Write "<input type='hidden' name='mode' VALUE='Check'>"
Response.Write "<div align='center'>"
Response.Write "<center>"
Response.Write "<table border='0' width='20%' cellspacing='0' cellpadding='5'>"
Response.Write "<tr>"
Response.Write "<td width='50%'>"
Response.Write "<b>" & "Brugernavn:" & "</b>" & "</td>"
Response.Write "<td><input type='text' name='brugernavn' size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='50%'>"
Response.Write "<b>" & "Password:" & "</b>" & "</td>"
Response.Write "<td width='50%'><input type='password' name='password' size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='50%'><input type='submit' value='Login' name='submit'></td>"
%>
<style type="text/css">
<!--
body {
font-weight: bold;
}
-->
</style>
<body background="/fiskegrej/fangstrapport/baggrund.jpg" onload="parent.document.getElementById('indhold').style.height=((document.body.scrollHeight)?document.body.scrollHeight:document.body.offsetHeight)+'px'">
<td width="50%"><font face="Tahoma" size="1"><%=error%></td><%
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</center>"
Response.Write "</div>"
Response.Write "</form>"
Response.Write "<table border='0' cellpadding='0' cellspacing='0' width='650' height='20'>"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "Hvis du ikke er oprettede som bruger - så <a href='tilmeld.asp'>Klik her!</a>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
else
Dim RS
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("fang.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
SQL = "select * from bruger where brugernavn = '" & request.querystring("brugernavn") & "' and password = '" & request.querystring("password") & "'"
Set RS = conn.Execute(SQL)
Do While NOT RS.EOF
If RS("brugernavn") = request.querystring("brugernavn") and RS("password") = request.querystring("password") then Response.write "<meta http-equiv='refresh' content='0;URL=loggedin.asp'>"
RS.MoveNext
loop
Session("brugernavn-session") = Request("brugernavn")
end if
%>
Ny bruger
Nybegynder
Opret
Preview
