webForumDet fria alternativet

Utloggning

ASP

8 svar · 274 visningar · startad av devotion

devotions avatardevotionMedlem sedan jan. 20013 582 inlägg
Trådstart#1

:)

Hej!

Hur gör jag en funktion som skriver ut med Response.write "Användarnamn eller lösenord är fel, försök igen!" i denna koden. Det ska skrivas under formuläret...

Koden är lång och ful.....

Help, please!

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=IntranetSydostel"
objConn.Open

strSQL = "SELECT * FROM tblUser WHERE userName = '" & replace(Request.Form("User"), "'", "''") & "' AND passWord = '" & Replace (Request.Form("Password"), "'", "''") & "'"
set objRS = objConn.Execute(strSQL)

If Request.Querystring("logoff")="yes" Then
   Session.Abandon
   Response.redirect "leftframe2.asp"
End if

If objRS.eof then
	Response.Write "<span Class=""statusText"">Ej inloggad!</span><br><br>"
 	Response.Write "<div id=""menu"">"&_
      "<a href=""avdelning1.html"" onmouseover=""fnMouseEffect( this, '../menuImages/foretaget2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/foretaget.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/foretaget.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_

    "<ul>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Policy</a></td></tr></table></li>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Policy</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning2.html"" onmouseover=""fnMouseEffect( this, '../menuImages/uppdragNu2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/uppdragNu.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/uppdragNu.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_
    
    "<ul>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Visa uppdrag</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning3.html"" onmouseover=""fnMouseEffect( this, '../menuImages/arbetsmiljo2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/arbetsmiljo.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/arbetsmiljo.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_
    
    "<ul>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Företagets policy</a></td></tr></table></li>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">lagar och regler</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning4.html"" onmouseover=""fnMouseEffect( this, '../menuImages/adresslista2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/adresslista.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/adresslista.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_

    
      "<ul>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Sök adresser</a></td></tr></table></li>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Visa adresser</a></td></tr></table></li>"&_
    "</ul>"&_
"</div>"

Response.Write "<form action=""leftFrame2.asp"" method=""post"" name=""logIn""><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&_
               "<tr><td class=""logIn"">Logga in </td></tr><tr><td class=""userName_passWord"">Anv&auml;ndarnamn:</td></tr>"&_
               "<tr><td><input name=""User"" type=""text"" class=""formular"" size=""20"" maxlength=""20""></td></tr>"&_
               "<tr><td class=""userName_passWord"">L&ouml;senord:</td></tr>"&_
               "<tr><td><input name=""passWord"" type=""password"" class=""formular"" size=""20"" maxlength=""20""></td></tr>"&_
               "<tr><td><input name=""Submit"" type=""submit"" class=""knapp"" value=""Logga in""></td></tr></table></form"

else
	Session("userId") = objRS("UserId")
    Session("Name") = objRS("name")

	Response.Write "<span class=""statusText"">Inloggad som: " & Session("Name") & "</span><br><br>"

    Response.Write "<div id=""menu"">"&_
      "<a href=""avdelning1.html"" onmouseover=""fnMouseEffect( this, '../menuImages/foretaget2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/foretaget.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/foretaget.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_

    "<ul>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Policy</a></td></tr></table></li>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Policy</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning2.html"" onmouseover=""fnMouseEffect( this, '../menuImages/uppdragNu2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/uppdragNu.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/uppdragNu.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_
    
    "<ul>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Visa uppdrag</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning3.html"" onmouseover=""fnMouseEffect( this, '../menuImages/arbetsmiljo2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/arbetsmiljo.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/arbetsmiljo.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_
    
    "<ul>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Företagets policy</a></td></tr></table></li>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">lagar och regler</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning4.html"" onmouseover=""fnMouseEffect( this, '../menuImages/adresslista2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/adresslista.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/adresslista.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_

    
      "<ul>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Sök adresser</a></td></tr></table></li>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Visa adresser</a></td></tr></table></li>"&_
    "</ul>"&_
"</div>"

    Response.Write "<a href=""leftframe2.asp?logout=yes"">Logga ut!</a>"

end if
Session.Timeout = 10

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

%>

Mvh

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#2

Du saknar > i din form-avslutningstagg, f.ö.

Response.Write "<form action=""leftFrame2.asp"" method=""post"" name=""logIn""><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&_
               "<tr><td class=""logIn"">Logga in </td></tr><tr><td class=""userName_passWord"">Användarnamn:</td></tr>"&_
               "<tr><td><input name=""User"" type=""text"" class=""formular"" size=""20"" maxlength=""20""></td></tr>"&_
               "<tr><td class=""userName_passWord"">Lösenord:</td></tr>"&_
               "<tr><td><input name=""passWord"" type=""password"" class=""formular"" size=""20"" maxlength=""20""></td></tr>"&_
               "<tr><td><input name=""Submit"" type=""submit"" class=""knapp"" value=""Logga in""></td></tr>" & _
               "<tr><td colspan=""2"">Närru, det där blev allt fel. Jag kräver att du försöker igen!</td></tr>" & _
               "</table></form>"
devotions avatardevotionMedlem sedan jan. 20013 582 inlägg
#3

:q

Hur menar du?

Det där hjälpte inte. Det finns ju inga villkor för det. Det visas ju alltid.

Behövs det inte if satser för att lösa det?

Mvh

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#4

Jag antog att du bara körde SQL-frågan om man försökt logga in, det finns ju ingen anledning att köra den annars. Det här borde fungera (men jag orkar inte fixa indenteringen just nu):

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=IntranetSydostel"
objConn.Open

sUser = replace(Request.Form("User"), "'", "''")
sPassword = Replace (Request.Form("Password"), "'", "''")
blnLoginError = false

if sUser <> "" and sPassword <> "" then
	strSQL = "SELECT * FROM tblUser WHERE userName = '" & sUser & "' AND passWord = '" & sPassword & "'"
	set objRS = objConn.Execute(strSQL)

	If Request.Querystring("logoff")="yes" Then
	   Session.Abandon
	   Response.redirect "leftframe2.asp"
	End if

	If objRS.eof then
	    blnLoginError = true
	else

    Session("userId") = objRS("UserId")
    Session("Name") = objRS("name")

	Response.Write "<span class=""statusText"">Inloggad som: " & Session("Name") & "</span><br><br>"

    Response.Write "<div id=""menu"">"&_
      "<a href=""avdelning1.html"" onmouseover=""fnMouseEffect( this, '../menuImages/foretaget2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/foretaget.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/foretaget.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_

    "<ul>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Policy</a></td></tr></table></li>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Policy</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning2.html"" onmouseover=""fnMouseEffect( this, '../menuImages/uppdragNu2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/uppdragNu.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/uppdragNu.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_
    
    "<ul>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Visa uppdrag</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning3.html"" onmouseover=""fnMouseEffect( this, '../menuImages/arbetsmiljo2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/arbetsmiljo.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/arbetsmiljo.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_
    
    "<ul>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Företagets policy</a></td></tr></table></li>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">lagar och regler</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning4.html"" onmouseover=""fnMouseEffect( this, '../menuImages/adresslista2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/adresslista.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/adresslista.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_

    
      "<ul>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Sök adresser</a></td></tr></table></li>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Visa adresser</a></td></tr></table></li>"&_
    "</ul>"&_
"</div>"

    Response.Write "<a href=""leftframe2.asp?logout=yes"">Logga ut!</a>"

Session.Timeout = 10
end if

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

end if

if (sUser = "" and sPassword = "") or blnLoginError then

	Response.Write "<span Class=""statusText"">Ej inloggad!</span><br><br>"
 	Response.Write "<div id=""menu"">"&_
      "<a href=""avdelning1.html"" onmouseover=""fnMouseEffect( this, '../menuImages/foretaget2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/foretaget.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/foretaget.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_

    "<ul>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Policy</a></td></tr></table></li>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Policy</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning2.html"" onmouseover=""fnMouseEffect( this, '../menuImages/uppdragNu2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/uppdragNu.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/uppdragNu.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_
    
    "<ul>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Visa uppdrag</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning3.html"" onmouseover=""fnMouseEffect( this, '../menuImages/arbetsmiljo2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/arbetsmiljo.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/arbetsmiljo.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_
    
    "<ul>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Företagets policy</a></td></tr></table></li>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">lagar och regler</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning4.html"" onmouseover=""fnMouseEffect( this, '../menuImages/adresslista2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/adresslista.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/adresslista.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_

    
      "<ul>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Sök adresser</a></td></tr></table></li>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Visa adresser</a></td></tr></table></li>"&_
    "</ul>"&_
"</div>"

Response.Write "<form action=""leftFrame2.asp"" method=""post"" name=""logIn""><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&_
               "<tr><td class=""logIn"">Logga in </td></tr><tr><td class=""userName_passWord"">Användarnamn:</td></tr>"&_
               "<tr><td><input name=""User"" type=""text"" class=""formular"" size=""20"" maxlength=""20""></td></tr>"&_
               "<tr><td class=""userName_passWord"">Lösenord:</td></tr>"&_
               "<tr><td><input name=""passWord"" type=""password"" class=""formular"" size=""20"" maxlength=""20""></td></tr>"&_
               "<tr><td><input name=""Submit"" type=""submit"" class=""knapp"" value=""Logga in""></td></tr>"

If blnLoginError then
	Response.write "<tr><td colspan=""2"">Felaktigt användarnamn eller lösenord.</td></tr>"
End if
Response.write "</table></form>"

End if
%>
devotions avatardevotionMedlem sedan jan. 20013 582 inlägg
#5

:)
Kanske lite dåligt förklarat.... :r

Men det var just det... Jag kom inte på hur jag skulle göra för att inte köra sql-frågan direkt utan bara vid inloggning...

Fungerar inte helt perfekt dock... ;)

Om jag skriver rätt användarnamn med felaktigt lösenord får jag felmeddelandet.

Om jag lämnar fälten blanka kommer inget felmeddelande.

Om jag skriver i endast användarnamn men inget lösenord blir sidan helt blank.

Om jag skriver fel användarnamn OCH fel lösenord får jag felmeddelande.

I o f s så behövs ju inget felmeddelande om varken användarnamn eller lösenordf fylls i så mycket vett borde man ha...

Och vad betyder indenteringen... :r

Mvh

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#6

Indentering:

If 1=2 then
     If 2=3 then
          If 3=4 then
               For i = 0 to 7
                      'gör något
               Next
          End if
     End if
End if

http://www.susning.nu/Indentering

devotions avatardevotionMedlem sedan jan. 20013 582 inlägg
#7

:)

Ok, då har jag lärt mig nått nytt idag :) :)
Jag är inte så bra på det... :r
Har du några ideer om mina andra frågor?

mvh

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#8

Det är bara att pilla till if-satserna så de gör det du vill. You can do it, Bobby Boucher! :)

devotions avatardevotionMedlem sedan jan. 20013 582 inlägg
#9

:)

Bytte

if sUser <> "" and sPassword <> "" then

Mot

if sUser <> "" or sPassword <> "" then

Fungerar nu!! :)

Om man däremot lämnar båda fälten blanka händer ingenting...

Men det gör inget

mvh

272 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
142 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)