5 svar · 264 visningar · startad av kaj19
Vad är det för att på denna kodning. Får bara en ruta att skriva avändare namn i. Men ingen ruta att skriva i lösenordet i och kunna klicka att logga in.
<%
inamn = Request.Form("text1")
ped = Request.Form("password1")
If (len(Innamn) > 0) And (len(pwd) > O) Then
SET Cmd = Server.CreateObject("ADODB.Command")
Cmd.ActiveConnection = Application("conn")
aaql = "Select id from member where login = "' & Inamn & "'"
cmd.CommandText =ssql
Cmd.CommandType =adCmdText
SET Rs = Cmd.Execute
If NOT Rs.EOF Then
Session("userid") = Rs("id")%>
<html>
<body>
<form>
<p>Välkommen till Spyderweb.</p>
<blockquote>
<p><font face="arial"><a href="lista.asp">Fortsätt</a><br>
</blockquote>
<%
else
Response.Redirect "elogin.asp"
End if
else
%>
<html>
<body>
<form namn="login" method="post" action="login.asp">
<p>Välkommen att loggin på Spyderweb.</p>
<p><font style="background color:#ffffff">Namn:
<input id=text1 name=text1</font></p>
<p><font syle="background color:#ffffff>Lösenord:
<input Id=password1 Name=password1></font></p>
<input type="submit" value=logga in" name=submit1>
<p><font style="background color:#ffffff">
<blockquote>
<p><font face="arial"><a href="lista.asp">Start sida</a><br>
<a href="newmember.asp">Bli medlem</a><br>
</blockquote>
<%end if%>
</form>
</body>
</html>
<p><font style="background color:#ffffff">Namn:
<input id=text1 name=text1 [b]type=text>[/b]</font></p>
<p><font syle="background color:#ffffff>Lösenord:
<input Id=password1 Name=password1 [b]type=password[/b]></font></p>
Det viktiga är nog en '>' efter din namn-input...
ett litet tips är att gå igenom all html-kod, det är mycket som inte ser rätt ut =)
..saknas en hel del i koden, se ex. ;)
[red]<p>Välkommen att loggin på Spyderweb.</p>
<p><font style="background[blue][b]-[/b][/blue]color:#ffffff">Namn: <input id=text1 name=text1[blue][b]>[/b][/blue]</font></p>
<p><font syle="background[blue][b]-[/b][/blue]color:#ffffff[blue][b]"[/b][/blue]>Lösenord: <input Id=password1 Name=password1></font></p>
<input type="submit" value=[blue][b]"[/b][/blue]logga in" name=submit1>
<p><font style="background[blue][b]-[/b][/blue]color:#ffffff">
<blockquote>
<p><font face="arial"><a href="lista.asp">Start sida</a><br>
<a href="newmember.asp">Bli medlem</a>[blue][b]</font>[/b][/blue]<br>
</blockquote>
[blue][b]</font></p>[/b][/blue][/red]
<%
inamn = Request.Form("text1")
p[b]w[/b]d = Request.Form("password1")
If (len(Innamn) > 0) And (len(pwd) > 0) Then
Set Cmd = Server.CreateObject("ADODB.Command")
Cmd.ActiveConnection = Application("conn")
[b]ss[/b]ql = "Select id from member where login = "' & Inamn & "'"
Cmd.CommandText = ssql
Cmd.CommandType = adCmdText
Set Rs = Cmd.Execute
If Not Rs.EOF Then
Session("userid") = Rs("id")
%>
<html>
<body>
<form>
<p>Välkommen till Spyderweb.</p>
<blockquote>
<p><font face="arial"><a href="lista.asp">Fortsätt</a>[b]</font></p>[/b]
</blockquote>
<%
Else
Response.Redirect "elogin.asp"
End if
Else
%>
<form namn="login" method="post" action="login.asp">
<p>Välkommen att loggin på Spyderweb.</p>
<p><font style="background-color:#ffffff">Namn:
<input id=text1 name=text1 [b]type=text>[/b]</font></p>
<p><font syle="background-color:#ffffff">Lösenord:
<input Id=password1 Name=password1 [b]type=password[/b]></font></p>
<input type="submit" value="logga in" name=submit1>
<p><font style="background-color:#ffffff">[b]</p>[/b]
<blockquote>
<p><font face="arial"><a href="lista.asp">Start sida</a><br>
<a href="newmember.asp">Bli medlem</a>[b]</font>[/b]
</blockquote>
[b]</font></p></form>[/b]
<%
End if
%>
</body>
</html>
Tro om jag har lite att göra? ;)
Hehe, man kunde nästan gissa att det var något slarvfel i koden som låg bakom problemet när man läste dessa raderna:
"Vad är det för att på denna kodning. Får bara en ruta att skriva avändare namn i. Men ingen ruta att skriva i lösenordet i och kunna klicka att logga in."
:p