Jag har en sida som jag har ett inloggnings script på, allt funkar förutom att jag försökte göra om det lite så det skulle bli lite mer advancerat, scriptet funkar såhär nu, man skriver in användarnamn och lösenord, sen kollas databasen om det är rätt, om det är det skickas man till den skyddade sidan, problemet är det nu att jag kommer ha flera användare som ska logga in och ska ha samma sida som grund men olika information som jag tänkte lägga in med asp men response.redirect funkar inte som jag tänkt mig.
när man loggar in skriver man i en användarnamn ruta och en lösenords ruta, därför tänkte jag att jag skulle lägga det såhär:
Response.Redirect("logout.asp?user=Request.Form("anv")&pass=Request.Form("pass")")
men det funkar inte, har jag istället:
Response.Redirect("logout.asp?user=användarnamn&pass=lösenord")
så funkar det, men då får jag endast fram information för en användare, asså den som man skriver in på användarnamn.
Jag testade även med detta men det funka inte:
user=Request.Form("anv")
pass=Request.Form("pass")
Response.Redirect("logout.asp?user = '" & user & "' AND pass = '" & pass & "'")
Här är sidorna:
inloggningssidan
<% Response.Buffer = True %>
<!-- #INCLUDE FILE="root.asp" -->
<!-- #include file="adovbs.inc" -->
<html>
<head>
<title>Välkommen till MasterData - Webbshop</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" HREF="style.css">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="images/top.jpg" link="#000000" vlink="#000000" alink="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td align="left" valign="top" width="210">
<% If Request.Querystring("login") = "" Then %>
<form action="login.asp?login=checkuser" method="post">
<table width="200" border="0" cellspacing="2" cellpadding="0">
<tr>
<td><font face="Times New Roman, Times, serif" size="2">Användarnamn:</font><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
</font></b></td>
</tr>
<tr>
<td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="anv" class="input" size="20">
</font></b></td>
</tr>
<tr>
<td><font face="Times New Roman, Times, serif" size="2">Lösenord:</font><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
</font></b></td>
</tr>
<tr>
<td><b><font face="Times New Roman, Times, serif" size="2">
<input type="password" name="pass" class="input" size="20">
</font></b></td>
</tr>
<tr>
<td><IMG SRC="images/space.gif" WIDTH="1" HEIGHT="4" ALT=""><BR>
<input type="submit" name="submit" value="Logga in" class="logbutton">
</td>
</tr>
</table>
</form>
<% End If %>
<% If Request.Querystring("login") = "checkuser" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("mddatabas.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From kunder"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
If RecSet("user") = Request.Form("anv") AND RecSet("pass") = Request.Form("pass") Then
Session("user") = "user"
Session("vem") = RecSet("user")
Session.Timeout = "30"
RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing
Response.Redirect("logout.asp?user=dashi&pass=pass")
End If
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Response.Redirect("login.asp?login=fel")
%>
<% End If %>
<%If Request.Querystring("login") = "fel" Then%>
<font face="Times New Roman, Times, serif" size="2"><b>Du angav fel användarnamn eller lösenord!</b>
</font><br>
<font face="Times New Roman, Times, serif" size="2"><a href="login.asp">Försök
igen</a></font>
<%End If%>
</td>
<td align="center" valign="bottom" width="590"><font size="2" face="Arial, Helvetica, sans-serif"><b><a href="masterdata.asp?grupp=Erbjudanden&undergrupp=Veckans" style="text-decoration: none" target="main">Startsida</a></b>
<font color="#FFFFFF">_</font> <b><a href="info.asp" style="text-decoration: none" target="main">Info</a></b>
<font color="#FFFFFF">_</font> <b><a href="nyheter.asp" style="text-decoration: none" target="main">Nyheter</a></b>
<font color="#FFFFFF">_</font> <b><a href="kontakt.asp" style="text-decoration: none" target="main">Kontakta
oss</a></b> <font color="#FFFFFF">_</font> <b><a href="tjanster.asp" style="text-decoration: none" target="main">Tjänster</a></b>
<font color="#FFFFFF">_</font> <b><a href="tester.asp" style="text-decoration: none" target="main">Tester</a></b>
<font color="#FFFFFF">_</font> <b><a href="tips.asp" style="text-decoration: none" target="main">Tips</a></b>
<font color="#FFFFFF">_</font> <b><a href="lankar.asp" style="text-decoration: none" target="main">Länkar</a></b></font></td>
<td> </td>
</tr>
</table>
</body>
</html>
den skyddade sidan:
<% Response.Buffer = True %>
<!-- #INCLUDE FILE="root.asp" -->
<html>
<head>
<title>Välkommen till MasterData - Webbshop</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" HREF="style.css">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="images/top.jpg" link="#000000" vlink="#000000" alink="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td align="left" valign="top" width="210">
<%
If NOT Session("user") = "user" Then
Response.Redirect "login.asp"
Else
%>
<!--
Den skyddade texten ska ligga mellan den här...
//-->
<%
user=Request.Querystring("user")
pass=Request.Querystring("pass")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(masterdata_databas)
set rs=conn.execute("SELECT * FROM kunder where user = '" & user & "' AND pass = '" & pass & "' ORDER BY person_nr")
%>
<br>
<font size="2" face="Times New Roman, Times, serif">Du är nu inloggad
som:
<b><% =RS("user") %></b>
</FONT>
<p><font face="verdana" size="1"><br>
<a href="loggaut.asp">Logga ut</a> </font>
<!--
...och den här markeringen!
//-->
<%End If%>
</p>
</td>
<td align="center" valign="bottom" width="590"><font size="2" face="Arial, Helvetica, sans-serif"><b><a href="masterdata.asp?grupp=Erbjudanden&undergrupp=Veckans" style="text-decoration: none" target="main">Startsida</a></b>
<font color="#FFFFFF">_</font> <b><a href="info.asp" style="text-decoration: none" target="main">Info</a></b>
<font color="#FFFFFF">_</font> <b><a href="nyheter.asp" style="text-decoration: none" target="main">Nyheter</a></b>
<font color="#FFFFFF">_</font> <b><a href="kontakt.asp" style="text-decoration: none" target="main">Kontakta
oss</a></b> <font color="#FFFFFF">_</font> <b><a href="tjanster.asp" style="text-decoration: none" target="main">Tjänster</a></b>
<font color="#FFFFFF">_</font> <b><a href="tester.asp" style="text-decoration: none" target="main">Tester</a></b>
<font color="#FFFFFF">_</font> <b><a href="tips.asp" style="text-decoration: none" target="main">Tips</a></b>
<font color="#FFFFFF">_</font> <b><a href="lankar.asp" style="text-decoration: none" target="main">Länkar</a></b></font></td>
<td> </td>
</tr>
</table>
</body>
</html>
så kan någon hjälpa mig med detta?
Hoppas inte de var för mycket att läsa :P
Tack på förhand.. Mvh ///Darek