I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
leloxml
leloxml
il 21 aprile 2005 alle 11:56
417 messaggi dal 13 giugno 2001
www.basketcoach.it
Sarò sicuramente stordito, ma ho un problema:
Dal seguente codice mi estrae risultato solo se non trova user e pass come indicati.
  Dim risultAutor
  risultAutor = false
  dsn = "DBQ=" & Server.Mappath(path&"db/BCdb_Utenti.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
  Set Conn = Server.CreateObject("ADODB.Connection")
  Set Rs = Server.CreateObject("ADODB.Recordset")
  sql = "SELECT * FROM TAB_utenti WHERE user='"&strUser&"' AND pass='"&strPass&"';"
  Conn.Open dsn
  rs.open sql,Conn
  IF (rs.eof) AND (rs.bof)THEN
    risultAutor = false
    response.write   "no"
  ELSE
    risultAutor = true
    response.write   "ok"
  END IF
  rs.close
  set rs = nothing
  conn.close
  set Conn = nothing
  ControlUser = risultAutor

Cioè se inserisco strUser e/o strPass volutamente errati mi risponde "no", altrimenti, se inserisco valori che sono presenti del database non restituisce assolutamente niente!

AIUTO
Faccio della mia ignoranza una virtù per stimolare il cervello con soluzioni alternative.
......LELO
RispondiQuoting
Squark
Squark
il 21 aprile 2005 alle 12:25
11 messaggi dal 17 aprile 2005
Non saprei, prova a mettere un rs.movefirst dopo ELSE

Ciao
RispondiQuoting
leloxml
leloxml
il 21 aprile 2005 alle 12:41
417 messaggi dal 13 giugno 2001
www.basketcoach.it
anche con movefirst non ci sono stati cambiamenti!
PErrò ho trovato una cosa, le variabili PAss e User engono passati ad una funzione che dovrebbe restituire il risultato di presenza o meno.
function ControlUser(strUser,strPass)
  Dim RisAutor
  dsn = "DBQ=" & Server.Mappath(path&"db/BCdb_Utenti.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
  Set Conn = Server.CreateObject("ADODB.Connection")
  Set Rs = Server.CreateObject("ADODB.Recordset")
  sql = "SELECT * FROM TAB_utenti WHERE user='"&strUser&"' and pass='"&strPass&"'"
  Conn.Open dsn
  rs.open sql,Conn
  IF (rs.eof) AND (rs.bof) THEN
    RisAutor = False
    response.write   "<table border='1' align='center' cellpadding='5'  cellspacing='0' bordercolor='#FF0000' class='basket'>"& VbNewLine &_ 
                  "  <tr>"& VbNewLine &"    <td>"& VbNewLine &_
                  "<div class='Titol_Pag-Basket' id='e2_ros'>Password errata!</div>"&_
                  "<center><u>Se vuoi recuperare la password "&_
                  "<A HREF='javascript:win_pop('../users/inviopassword.asp','330','300','no')' title='Recupera la PassWord "&_
                  "posta'> clicca qu&igrave;.</a></u><br>"&_
                  "Se sei sicuro dei codici consulta le <a href='../Faq/Faq.asp#_Err_Accesso:'>FAQ</a> per risolvere eventuali problemi.</center>"& VbNewLine &_
                  "    </td>"& VbNewLine &"  </tr>"& VbNewLine &_
                  "</table>"
  ELSE
    rs.movefirst
    response.write   "ok"
    RisAutor = true
  END IF
  rs.close
  set rs = nothing
  conn.close
  set Conn = nothing
  ControlUser = RisAutor2
end function


Se lascio:
ControlUser = RisAutor

non restituisce nulla.

Dubbio! O c'è un valore di risultato (ControlUser) oppure delle visualizzazioni tra l'IF...giusto???
Faccio della mia ignoranza una virtù per stimolare il cervello con soluzioni alternative.
......LELO
RispondiQuoting
ronny85
ronny85
il 26 aprile 2005 alle 12:51
16 messaggi dal 26 aprile 2005
ma cosa vorresti fare???? visualizzaer i record del db se nick e pwd sn giuste???? o cos' altro
RispondiQuoting
theterz
theterz
il 26 aprile 2005 alle 13:12
281 messaggi dal 05 agosto 2004
Fai questa prova.
Scrivi la tua funzione ControlUser così:
function ControlUser(strUser,strPass) 
Dim risultAutor 
risultAutor = false 
dsn = "DBQ=" & Server.Mappath(path&"db/BCdb_Utenti.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" 
Set Conn = Server.CreateObject("ADODB.Connection") 
Set Rs = Server.CreateObject("ADODB.Recordset") 
sql = "SELECT * FROM TAB_utenti WHERE user='"&strUser&"' AND pass='"&strPass&"'" 
Conn.Open dsn 
rs.open sql,Conn 
IF (rs.eof) AND (rs.bof)THEN 
risultAutor = false 
ELSE 
risultAutor = true 
END IF 
rs.close 
set rs = nothing 
conn.close 
set Conn = nothing 
ControlUser = risultAutor


E poi, quando richiami la funzione ControlUser, scrivi:
 
If ControlUser(strUser,strPass) Then
  response.write "ok"
else
  response.write "<table border='1' align='center' cellpadding='5' cellspacing='0' bordercolor='#FF0000' class='basket'>"& VbNewLine &_ 
" <tr>"& VbNewLine &" <td>"& VbNewLine &_ 
"<div class='Titol_Pag-Basket' id='e2_ros'>Password errata!</div>"& _ .......
end if
Che lo sforzo sia con te!!!
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.