Poser une question

authentification

bjr,

g pu faire un p'tit prog d'authentification, je vous le partage, g besoin de quelques conseils qu'en pensez vous?

<% @language=vbscript%>
<% option explicit%>

<!--include virtual="C:\Inetpub\Scripts\include\adovbs.inc"-->
<!--#include file="connexion.asp"-->

<% dim objrs,booleentrouve,strnomutilisateur
strnomutilisateur= request.form("nom")

set objrs =server.createobject("adodb.recordset")
objrs.open "tblutilisateurs",objconn
booleentrouve=false

'recherche nom utilisateur
do while not (objrs.eof or booleentrouve)
if(strcomp(objrs("nom"),strnomutilisateur,vbtextcompare)=0)then
booleentrouve=true
else objrs.movenext
end if
loop

' mot de passe erroné

if not (strcomp(objrs("motdepasse"),request.form("motdepasse"),vbbinarycompare)=0) then
Response.redirect

objrs.close



set objrs=nothing
objconn.close
set objconn=nothing
response.write "<a href='connexion.asp'>"
response.write "mot de passe erroné.<p>"
response.write "</A>"
response.end
end if
%>

Réponses

Re: authentification  Oznog 29/7/2004    Re: authentification  nazim 29/7/2004