Visualizzazione dei risultati da 1 a 5 su 5
  1. #1

    campi log.in vuoti e redirect

    ho una pagina che viene processata da flash per il login

    codice:
    <%
    if request("User")<>"" and  request("Password")<>""  then
    	Set Conn = Server.CreateObject("ADODB.Connection")
    	Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
    	Set rs=Server.CreateObject("ADODB.RecordSet")
        User = Replace(Request("User"),"'","")
        Password = Replace(Request("Password"),"'","")
    	sql="Select top 1 * from Iscritti where User='"& User &"' and Password='"& Password &"'"
    	rs.Open sql , Conn ,3 ,3
    	if not rs.eof then
    	Session("ID") = rs("ID")
    	Session("User") = rs("User")
    	rs("Status_Connect")= True
    	rs("Date_Now")= Now()
    	User = rs("User")
    	
    	rs.update
    	rs.close
    	Set rs=Nothing
    	Conn.close
    	Set Conn=Nothing
    	response.redirect("pannello.asp")
    
    	else
    	Response.redirect("lock.htm")
    	end if
    
    else 
    %>
    e il flash non fa altro che passare i parametri alla pagina in questo modo
    www.miosito.com/log.asp?Password=test&User=test

    ora però se io involontariamente clicco su enter senza inserire i dati d'accesso
    vado ad una pagina

    www.miosito.com/log.asp?Password=&User=
    che è bianca...vuota...

    come posso fare un redirect alla pagina lock.htm
    come per i dati errati
    anche se non inserisco dati nei form?

    grazie 42.000
    L'intuizione creativa più di ogni altra cosa è l'unico elemento per cui la vita vale la pena di essere vissuta (D.W)

  2. #2
    codice:
    <%
    if request("User")<>"" and  request("Password")<>""  then
    	Set Conn = Server.CreateObject("ADODB.Connection")
    	Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
    	Set rs=Server.CreateObject("ADODB.RecordSet")
        User = Replace(Request("User"),"'","")
        Password = Replace(Request("Password"),"'","")
    	sql="Select top 1 * from Iscritti where User='"& User &"' and Password='"& Password &"'"
    	rs.Open sql , Conn ,3 ,3
    	if not rs.eof then
    	Session("ID") = rs("ID")
    	Session("User") = rs("User")
    	rs("Status_Connect")= True
    	rs("Date_Now")= Now()
    	User = rs("User")
    	
    	rs.update
    	rs.close
    	Set rs=Nothing
    	Conn.close
    	Set Conn=Nothing
    	response.redirect("pannello.asp")
    
    	else
    	Response.redirect("lock.htm")
    	end if
    
    else 
            Response.redirect("lock.htm")
    
    end if
    %>

  3. #3
    a titolo informativo e culturale..cosa differisce dal mio script?
    L'intuizione creativa più di ogni altra cosa è l'unico elemento per cui la vita vale la pena di essere vissuta (D.W)

  4. #4
    Originariamente inviato da Stanislao
    a titolo informativo e culturale..cosa differisce dal mio script?
    Fai un confronto.
    Tu dopo l'ultimo else non avevi messo nulla...

  5. #5
    anche se non ho capito cosa hai fatto ti ringrazio perchè funziona baci anche da chiaretta che mi sostiene
    L'intuizione creativa più di ogni altra cosa è l'unico elemento per cui la vita vale la pena di essere vissuta (D.W)

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.