webForumDet fria alternativet
Logga in / Bli medlem

Ingen fel meddelande

ASP

13 svar · 615 visningar · startad av SGuncel

SGuncelMedlem sedan jan. 2007217 inlägg
Frågan#1

Får inte fel meddelandet när jag skriver in fel anv och lösen.
Jag kommer till gamla login sidan när jag testar skriva fel anv och lösen.

<!-- #include file="../Inc/DBConnection.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" href="login.css" type="text/css" />

<script type="text/javascript" language="javascript">
var showForgotPassword = 0;
											
function showForgotPass() {
if (!showForgotPassword) {
document.getElementById('ForgotPassword').style.display='inline';
showForgotPassword= 1;
} else {
document.getElementById('ForgotPassword').style.display='none';
showForgotPassword= 0;
}
}
</script>

<script type="text/javascript" language="javascript">
var showCreateAcc = 0;
											
function showCreateAccount() {
if (!showCreateAccount) {
document.getElementById('CreateAccount').style.display='inline';
showCreateAccount = 1;
} else {
document.getElementById('CreateAccount').style.display='none';
showCreateAccount = 0;
}
}
</script>

<script language="javascript" type="text/javascript">
function popUpMessage(strText, strRedirect)
{
    alert(strText);   
    if (strRedirect != '') 
        self.location = strRedirect;
}
</script>

<title>Namnlös 1</title>
</head>

<body>

<div style="position: absolute; left: 262px; top: 170px; z-index: 10000">
<div class="Login_Info_Background"><span class="Login_Info_Rubrik">Välkommen till ...</span>
<br />
<div style="position: absolute; left: 41px; top: 84px; z-index: 10000"><span class="Login_Info_Liten_Text">Turkiets egen community, i Sverige.</span></div>
<br />
<br />
<br />
<br />

<br />
<br />

<br />
<br />
<br />

</div>
</div>
<div style="position: absolute; left: 267px; top: 639px; z-index: 10000" class="Login_Info_Text">
Info | KontaktInformation | Annonsera Hos Oss</div>

<div style="position: absolute; left: 686px; top: 292px; z-index: 10000; height:20px">
<form action="?user=logIn" method="post">
<span class="Login_Info_LoggaIn">
	Logga In</span>
<br />
<input type="text" name="UsrTLAlias" value="Användarnamn" onFocus="if(this.value=='Användarnamn'){this.value='';}" onBlur="if(this.value==''){this.value='Användarnamn';}" />
&nbsp;&nbsp;&nbsp;&nbsp;
<input type="password" name="UsrPassword" value="Lösenord" onFocus="if(this.value=='Lösenord'){this.value='';}" onBlur="if(this.value==''){this.value='Lösenord';}" />
</div>

<div style="position: absolute; left: 969px; top: 319px; z-index: 10000; height:20px" class="Login_Info_Medlem_Lose">
<input type="submit" value="Logga in" name="Logga in" class="Input_submit" />
</form>
</div>

<div style="position: absolute; left: 686px; top: 341px; z-index: 10000; height:20px" class="Login_Info_Medlem_Lose">
Bli medlem!
</div>

<div style="position: absolute; left: 832px; top: 341px; z-index: 10000; height:20px" class="Login_Info_Medlem_Lose">
<a href="javascript:showForgotPass();">Glömt lösenord!</a>
</div>

<div id="ForgotPassword" style="display: none; position: absolute; left: 686px; top: 377px; z-index: 10000; height:20px">
<span class="Login_Info_LoggaIn">
	Glömt Lösenord</span>
	<br />
	<span class="Login_Info_Medlem_Lose">Skriv in ditt användarnamn så skickas ditt lösenord till din mail.</span>
	<br />
<input type="text" name="UsrTLAlias" value="Användarnamn" onFocus="if(this.value=='Användarnamn'){this.value='';}" onBlur="if(this.value==''){this.value='Användarnamn';}" />&nbsp;

<div style="position: absolute; left: 149px; top: 46px; z-index: 10000">
	<input type="submit" value="Skicka" name="Skicka" class="Input_submit" /></div>

</div>

<%
If Request.Querystring("user") = "logIn" then
	Set ObjRS = ObjConn.Execute("SELECT * FROM TLUsers where UsrTLAlias='"& SafeSQL(Request.Form("UsrTLAlias")) &"' AND UsrPassword='"& SafeSQL(Request.Form("UsrPassword")) &"'")

				
		If ObjRS.Eof then
%>
<script language="javascript" type="text/javascript">
popUpMessage('Fel inloggningsuppgifter.', 'default.asp');
</script>
<%
Else

Session.TimeOut = 15
Session("UsrTLAlias") = ObjRS("UsrTLAlias")
Session("UsrID") = ObjRS("UsrID")
Session("UsrLogin") = "UsrOnline"

ObjConn.Execute("Update TLUsers set UsrLastLogin='" & now() & "', UsrLoginIP='"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"', UsrStats='Online', UsrTotalLogin=UsrTotalLogin+1 where UsrID="&SafeSQL(Session("UsrID"))&"")
ObjConn.Close : Set ObjConn = nothing

End If
Response.Redirect "../Main/RegisterFinish_Check.asp"
End If
%>

</body>

</html>
@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#2

Om du försöker undvika att posta en miljon irrelevanta kodrader så är det betydligt enklare för oss att hjälpa till.

Hur vet vi vilken den "gamla loginsidan" är? Hur vet vi vilken den nya är?

Beskriv felet lite närmare, och posta endast relevant kod.

SGuncelMedlem sedan jan. 2007217 inlägg
#3

Den gamla ligger i en mapp som heter Login och nya i en mapp som heter New Login.
När jag skriver fel användarnamn och lösenord så kommer jag till gamla login sidan "Login/Default.asp" istället för att komma till "New Login/Default.asp"

Denna kod ska ge fel meddelandet och skicka till nya login sidan. Men den skickar till gamla login sidan.

<script language="javascript" type="text/javascript">
popUpMessage('Fel inloggningsuppgifter.', 'default.asp');
</script>
emissionMedlem sedan dec. 19996 721 inlägg
#4

Med den koden kommer man att redirectas till "../Main/RegisterFinish_Check.asp" oavsett hur inloggningen går. Javascriptet kommer aldrig att köras, eftersom en Response.Redirect gör att inget skrivs ut på sidan.

SGuncelMedlem sedan jan. 2007217 inlägg
#5

Om man har nyligen blivit reggad och loggar in så kommer man till "../Main/RegisterFinish_Check.asp" Där kollar den om man har fyllt i extra uppgifter om man har gjort det skickas man till sidan men om man inte gjort det skickas man till sidan där det finns extra uppgifter.

Så här ser mina nuvarande login kod ut som jag använder på min gamla login sida.

<%
Set ObjRS = ObjConn.Execute("Select * From TLUsers where UsrTLAlias='"&SafeSQL(Request.Form("UsrTLAlias"))&"'" & " and UsrPassword='"&SafeSQL(Request.Form("UsrPassword"))&"'")

IF ObjRS.Eof then
Session("loginerror")="Du har skrivit in fel lösenord eller användarnamn. <br> Försök igen!"
Else

Session("UsrTLAlias") = ObjRS("UsrTLAlias")
Session("UsrID") = ObjRS("UsrID")
Session("UsrAdmin") = ObjRS("UsrAdmin")

Session.TimeOut = 15
Session("UsrLogin") = "UsrOnline"

ObjConn.Execute("Update TLUsers set UsrLastLogin='" & now() & "', UsrLoginIP='"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"', UsrStats='Online', UsrTotalLogin=UsrTotalLogin+1 where UsrID="&SafeSQL(Session("UsrID"))&"")
ObjConn.Close : Set ObjConn = nothing

End If
Response.Redirect "../Main/RegisterFinish_Check.asp"
%>
emissionMedlem sedan dec. 19996 721 inlägg
#6

SGuncel skrev:

Om man har nyligen blivit reggad och loggar in så kommer man till "../Main/RegisterFinish_Check.asp"

Man blir skickad dit så fort man försöker logga in, oavsett om man lyckas eller inte.

SGuncelMedlem sedan jan. 2007217 inlägg
#7

Nej, det är inte så. Om amn skriver fel användarnamn och lösenord så skickas man till login sidan men om amn skriver in korrekt användarnamn och lösenord så skickas man till "../Main/RegisterFinish_Check.asp".

emissionMedlem sedan dec. 19996 721 inlägg
#8

Jo, det är visst så! Sedan är det väl någon sessionkontroll eller något på RegisterFinish_Check.asp som gör att du skickas tillbaka till gamla login-sidan...

SGuncelMedlem sedan jan. 2007217 inlägg
#9

Japp.

<%

		If NOT Session("UsrLogin")="UsrOnline" Then
	ObjConn.Close : Set ObjConn = Nothing

			Session("meddelande") = ""
			Response.Redirect "../Login/Default.asp"
		End If
%>

Men hur kan jag lösa detta problemet?

emissionMedlem sedan dec. 19996 721 inlägg
#10

Du får väl låta bli att skicka användaren till RegisterFinish_Check.asp om inloggningen misslyckas, eller låta Sessions-kollen på RegisterFinish_Check.asp skicka tillbaka till den nya Login-sidan....

SGuncelMedlem sedan jan. 2007217 inlägg
#11

Vilket skulle du rekommendera?

emissionMedlem sedan dec. 19996 721 inlägg
#12

Både och. Det finns ingen anledning att skicka vidare till RegisterFinish_Check.asp om inloggningen misslyckas, och Sessions-kollen ska väl alltid skicka tillbaka till den rätta inloggningssidan?

SGuncelMedlem sedan jan. 2007217 inlägg
#13
<%
If Request.Querystring("user") = "logIn" then
	Set ObjRS = ObjConn.Execute("SELECT * FROM TLUsers where UsrTLAlias='"& SafeSQL(Request.Form("UsrTLAlias")) &"' AND UsrPassword='"& SafeSQL(Request.Form("UsrPassword")) &"'")

				
		If ObjRS.Eof then
%>
// Här kommer fel meddelandet, om man har skrivit fel så skickas man vidare till login sidan.
<script language="javascript" type="text/javascript">
popUpMessage('Fel inloggningsuppgifter.', 'default.asp');
</script>
<%
Else

Session.TimeOut = 15
Session("UsrTLAlias") = ObjRS("UsrTLAlias")
Session("UsrID") = ObjRS("UsrID")
Session("UsrLogin") = "UsrOnline"

ObjConn.Execute("Update TLUsers set UsrLastLogin='" & now() & "', UsrLoginIP='"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"', UsrStats='Online', UsrTotalLogin=UsrTotalLogin+1 where UsrID="&SafeSQL(Session("UsrID"))&"")
ObjConn.Close : Set ObjConn = nothing

End If
// Här skickas man till sidan om inloggningen lyckas.
Response.Redirect "../Main/frameset.asp"
End If
%>
Troxys avatarTroxyMedlem sedan mars 20041 505 inlägg
#14

En irrelevant fråga kanske, men man använder väl inte // för kommentarer i VbScript? Du borde få felmeddelanden va?

274 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
118 ms — deklarationer (db)
0 ms — hämta statistik (cache)
143 ms — hämta tråd, inlägg och bilagor (db)
129 ms — ändringar (db)