Hvordan fører jeg loginoplysninger videre?
Hvordan kan jeg få sendt loginnavn videre?default.asp:
--------------
<%
IF Request.QueryString("Method") = "Login" THEN
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "Select * FROM users WHERE nick = '" & Request.Form("txtBrugernavn") & "'"
Set rs = Conn.Execute(strSQL)
IF Request.Form("txtBrugernavn") = rs("nick") THEN
%>
<Form Method="Post">
<Input Type="Hidden" Value="<%=Request.Form("txtBrugernavn") %>" Name="Brugernavn">
<Input Type="Hidden" Value="<%=Request.Form("txtPassword") %>" Name="Password">
</Form>
<%
Session("Login") = OK
Session.Timeout = 30
Response.Redirect "oversigt.asp"
END IF
END IF
%>
<Form Method="Post" Action="default.asp?Method=Login">
Brugernavn:<br>
<Input Type="Text" Value="Ducks" Name="txtBrugernavn"><br>
Password:<br>
<Input Type="password" Value="password" Name="txtPassword"><br>
<Input Type="Submit" Value="Login" Name="cmdLogin">
</Form>
Oversigt.asp:
---------------
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "Select * FROM users WHERE nick = '" & Request.Form("Brugernavn") & "'"
Set rs = Conn.Execute(strSQL)
Response.Write "Bruger: " & rs("nick") & "<br>"
Response.Write "Password: " & rs("key") & "<br>"
Response.Write "Rigtige navn: " & rs("name") & "<br>"
Conn.Close
Set Conn = Nothing
%>
Fejl:
-------
http://80.199.9.33/default.asp
