login - popup
Jeg har et login-script, som virker fint;<%
SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/jittytre.mdb")
If Request("mode") = "Check" then
Function unQuote(strTekst)
strTekst = Trim(strTekst)
unQuote = Replace(strTekst,"%","53")
End Function
' Gemmer formfelterne i Variabler
strusername = Trim(Replace(request.form("username"),"'","''" ))
strpassword = Trim(Replace(request.form("password"),"'","''" ))
Sql = "Select Count(*) as Found from user where (username = '" & strUsername & "') and (password ='" & strPassword & "')"
Set LO = RS.Execute(Sql)
if LO("Found") = 0 then
Session("login") = ""
error = "Du blev ikke godkendt af systemet"
else
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/jittytre.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
strSQL = "SELECT * FROM user where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
Set ez = myConn.Execute(strSQL)
Session("login") = "yes mate"
Response.Redirect "default.asp"
EZ.Close
RS.Close
Conn.Close
end if
end if
%>
<form method="POST" action="login.asp">
<input type="hidden" name="mode" VALUE="Check">
<b> -login:</b>
<table width="222" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="19"> </td>
</tr>
<tr>
<td> Brugernavn: <input class='input' type='text' name='username' size='25' value="<%=strbrugernavn%>"></td>
</tr>
<tr>
<td> Kodeord: <input class="input" type="password" value="" name="password" size="25">
</td>
</tr>
</table>
<b><%=error%></b>
<p>
<input class="input" type="submit" value="Login" name="submit2">
</p>
</form></td>
</tr>
</table>
</div>
</body>
</html>
Mit spørgsmål er, hvordan gør jeg så "default.asp" efter login åbner i et nyt windue? Det er den her del Response.Redirect "default.asp" der skal ændres right?
På forhånd tak
