login skal ikke vidre sendes
Hej jeg har et lille problem jeg er ikke særlig skrap til ASP men jeg forsøger at kunne lave lidt med de scripts som er free. Jeg har denne login som jeg gerne vil have til at BLIVE på den sideAlså når jeg har logget ind skal den ikke skift side til bruger.asp men skal opdatere og skrive at brugeren er loggede ind
Default:
<%
SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DB.mdb")
If Request("mode") = "Check" then
Sql = "Select Count(*) as Found from users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
Set Login = Rs.Execute(Sql)
if Login("Found") = 0 then
Session("login") = 0
error = "Wrong Username or Password."
else
Session("Login") = 1
Session("password-session") = Request("username")
Response.Redirect "bruger.asp"
end if
else
end if
%>
<HTML>
<HEAD>
<title></title>
<base target="hovedramme">
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000">
<form method="POST" action="menu.asp">
<input type="hidden" name="mode" VALUE="Check">
<center>
<table border="0" width="50%" cellspacing="1">
<tr>
<td width="100%"><%=error%></td>
</tr>
<div align="right">
<table border="0" width="215" cellspacing="0" cellpadding="0" height="222" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="15">
<font face="Verdana" size="1">
<img border="0" src="images/stjerne.jpg"></font></td>
<td width="106"><font face="Verdana" size="1">
<a target="_top" href="default.asp">Frontpage</a></font></td>
<td width="151"> </td>
</tr>
<tr>
<td width="15">
<font face="Verdana" size="1">
<img border="0" src="images/stjerne.jpg"></font></td>
<td width="106"><font face="Verdana" size="1">Username:</font></td>
<td width="151"><font face="Verdana" size="1">
<input type="text" name="username" size="15"></font></td>
</tr>
<tr>
<td width="15">
<font face="Verdana" size="1">
<img border="0" src="images/stjerne.jpg"></font></td>
<td width="106"><font face="Verdana" size="1">Password:</font></td>
<td width="151"><font face="Verdana" size="1">
<input type="password" name="password" size="15"></font></td>
</tr>
<tr>
<td width="15">
<font face="Verdana" size="1">
<img border="0" src="images/stjerne.jpg"></font></td>
<td width="106"><font face="Verdana" size="1">
<input type="submit" value="Login" name="submit" ></font></td>
<td width="151"> </td>
</tr>
<tr>
<td width="15" height="20" align="left">
<font face="Verdana" size="1">
<img border="0" src="images/stjerne.jpg"></font></td>
<td width="106" height="20" align="left">
<font face="Verdana" size="1">
<a target="hovedramme" href="OPRAT.ASP">New User?</a></font></td>
<td width="151" height="20" align="left">
</td>
</tr>
</table>
</div>
</body>
</html>
Bruger.asp:
<%
SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DB.mdb")
If Request("mode") = "Check" then
Sql = "Select Count(*) as Found from users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
Set Login = Rs.Execute(Sql)
if Login("Found") = 0 then
Session("login") = 0
error = "Wrong Username or Password."
else
Session("Login") = 1
Session("password-session") = Request("username")
Response.Redirect "bruger.asp"
end if
else
end if
%>
Hvis det er til nogen hjælp :/
