Davs alle
Jeg har lavet et login system hvor jeg gerne vil have at når man er logget in så skal der stå:
Du er logget ind som: "username"
Tror nok jeg skal bruge strings der.. men kan ik overføre dem..
----[ Login.asp ]----------------------------------------------------->
<% SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("usersystem.mdb")
If Request("mode") = "Check" then
' Authes user, password, and fixed a known securitybug to many login systems.
strUsername = Trim(Replace(request("username"),"'","''" ))
strPassword = Trim(Replace(request("password"),"'","''" ))
Sql = "Select Count(*) as Found from users where (username = '" & strUsername & "') and (password ='" & strPassword & "')"
Set LO = RS.Execute(Sql)
if LO("Found") = 0 then
Session("login") = ""
error = "You´re not authed be the system"
else
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("usersystem.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
strSQL = "SELECT * FROM users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
Set ez = myConn.Execute(strSQL)
Session("login") = "Authed"
Response.Redirect "default.asp"
EZ.Close
RS.Close
Conn.Close
End if
End if
%>
<form method="POST" action="login.ASP" name="login">
<div align="left">
<input type="hidden" name="mode" value="Check">
<table width="217" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="115"><font size="2" face="verdana"><b>Nick:</b></font></td>
<td><input class="text" type="text" name="username" size="15" style="font-family: Verdana; font-size: 8 pt" value="<%=strbrugernavn%>"></td>
</tr>
<tr>
<td width="115"><font class="header"><font size="2" face="verdana"><b>Adgangskode:</b></font></font></td>
<td><input class="text" type="password" value="<%=strpassword%>" name="password" size="15" style="font-family: Verdana; font-size: 8 pt"></td>
</tr>
<tr>
<td width="115"></td>
<td><input class="text" type="submit" value="Login" name="submit" style="font-family: Verdana; font-size: 8 pt"></td>
</tr>
</table>
<%=error%></div>
</form>
----------------------------------------------------------------------->
----[ Default.asp ]----------------------------------------------------->
<%
if session("login") = "" Then
Response.redirect("login.asp")
end if
%><br>Du er logget ind som: .....
----------------------------------------------------------------------->
-+-+-+-+-+-+-+-+-+-+-
www.stay-online.dk
mail@stay-online.dk
-+-+-+-+-+-+-+-+-+-+-