Si tratta di uno scritp in ASp sulla registrazione utenti.
non riesco a capire perchè fa cosi.
nonostante io chiudo la pagina poi quando riapro e mi loggo mi dice lo script che sono già loggato
Si tratta di uno scritp in ASp sulla registrazione utenti.
non riesco a capire perchè fa cosi.
nonostante io chiudo la pagina poi quando riapro e mi loggo mi dice lo script che sono già loggato
qs la pagina:
<script language="JavaScript">
function setFocus()
{
Login.txtUserName.focus();
}
</script>
<body onload="setFocus();">
<%
If Request.querystring("mode") = "suspend" then
Response.Write ("<center><font color=red>Username is currently suspended</font></center>
")
End If
If Request.querystring("mode") = "once" then
Response.Write ("<center><font color=red>Username is currently logged in</font></center>
")
End If
If Request.querystring("mode") = "invalid" then
Response.Write ("<center><font color=red>Invalid username or password. Please try again.</font></center>
")
End If
%>
<form name="Login" method="post" action="login.asp">
User name:
<input type="text" name="txtUserName">
Password:
<input type="password" name="txtUserPass">
<input type='image' src='images/forward_16.gif' name='Submit' value='Enter' alt='Enter'>
<input type='image' src='images/cancel_16.gif' name='Reset' value='Reset' alt='Reset'>
</table>
</form>
</body>
L'errore non credo che sia qui ma nella pagina login.asp
Prova a postare il codice di quella pagina!
Originariamente inviato da maxolino
L'errore non credo che sia qui ma nella pagina login.asp
Prova a postare il codice di quella pagina!
<%
strUserName = Replace(Request.Form("txtUserName"), "'", "''")
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT password, ID, username, admin, suspend FROM tblUsers WHERE username ='" & strUserName & "'"
rsCheckUser.Open strSQL, adoCon
strActiveUser = "Select * From Active_Users Where User_ID='" & strUserName & "'"
Set rs1 = adoCon.Execute (strActiveUser)
If NOT rsCheckUser.EOF Then
If NOT rs1.EOF Then
Session("userGood") = False
Response.Redirect ("default.asp?mode=once")
ElseIf md5(Request.Form("txtUserPass")) = rsCheckUser("password") Then
If rsCheckUser("suspend") = 0 Then
Session("userGood") = True
Session("userID") = rsCheckUser("ID")
Session("userName") = rsCheckUser("username")
Session("userAdmin") = rsCheckUser("admin")
strLoginSql = "UPDATE tblusers SET last_login='" & now() & "' WHERE username ='" & strUserName & "'"
adoCon.execute (strLoginSql)
rsCheckUser.Close
Set rsCheckUser = Nothing
Set adoCon = Nothing
Response.Redirect"main1.asp"
Else
rsCheckUser.Close
Set rsCheckUser = Nothing
Set adoCon = Nothing
Session("userGood") = False
Response.Redirect("default.asp?mode=suspend")
End If
End If
End If
rsCheckUser.Close
Set rsCheckUser = Nothing
Set adoCon = Nothing
Session("userGood") = False
Response.Redirect"default.asp?mode=invalid"
%>
up
Fai il logout lo script funziona di nuovo?
Roby
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
no da sempre qs messaggio:
Username is currently logged in
la pagina main1.asp è qs:
<% If Session("userAdmin") = 1 then %>
<% Else %>
<% End If %>
<%
If Session("userGood") = False or IsNull(Session("userGood")) = True then
Response.Redirect"default.asp"
End If
strUserName = Replace(Session("userName"), "'", "''")
userID = Clng(Session("userID"))
userAdmin = Replace(Session("userAdmin"), "'", "''")
Session("userID") = userID
%>
Welcome <% =strUserName %> to the password protected area of the web site.
up
ho constatato con certezza che il problema me lo da solo quando esco senza fare il logout!!!
cioè se chiudo la pagina senza essermi disconnesso non mi fa entrare e mi fa risultare già loggato!!!
come posso risolvere a sto problema?
Permessi di invio
Rispondi quotando