Accéder à une page avec connection

Télécharger le projet
Commenter

Description

Pour accéder a une page vous devez etre logger(les pass et nick sont stockés dans une base de donnée)
Une page contient un formulaire ou vous inscrivez vos nick et pass et une autre ou vous pouvez aller si vous etes loggé

Source / Exemple : 


[Tout dans le zip]

Conclusion :


Root:
Nick -> vbtom
Pass -> 007

Guest:
Nick -> guest
Pass -> guest

On m'a gentillement aidé(merci fréro... ;)) à me rendre compte que quand y'a un zip ds une source ca fait chier tout le monde de la download alors je me suis décider à foutre les sources en plus du zip... Les voila...

.:.: SOURCES :.:.
<%
'---- Déclaration ----
Dim URLDBB,Provider,PassTableName
Dim ObjConn

'---- Affectation ----
URLDBB = Server.MapPath("/connection/connection.mdb")
Provider = "DBQ=" & URLDBB & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
PassTableName = "pass"

'---- Fonction de création d'un objet CONNECTION ----
Public Sub CreateObjConn()
set objConn = server.createObject("ADODB.Connection")
objConn.Open Provider
End Sub
%>

<% If Request.QueryString("nick")<>"" and Request.QueryString("pwd")<>"" Then %>
<%
Call CreateObjConn

'---- Création de l'objet RECORDSET ----
set dataRec = server.createObject("ADODB.RecordSet")
dataRec.CursorType = 1
dataRec.LockType = 3
dataRec.Open "SELECT * FROM " & PassTableName & " WHERE login='" & lcase(Request.QueryString("nick")) & "'", objConn,3
If not dataRec.BOF Then
dataRec.MoveLast
End If
%>
<% If dataRec.EOF Then %>
<HTML>
<HEAD>
<TITLE>connection | Impossible de se connecter |</TITLE>
</HEAD>
<BODY>
<A style=font-family=verdana;font-size=10px;color=#000000;>Impossible de se connecter!<BR>Veuillez reassayer</A>
</BODY>
</HTML>

<% Else %>
<% If dataRec("pass")=Request.QueryString("pwd") and dataRec("root")="Vrai" Then %>
<HTML>
<HEAD>
<TITLE>connection | Bienvenue dans la partie admin |</TITLE>
</HEAD>
<BODY>
<A style=font-family=verdana;font-size=10px;color=#000000;>Bienvenue dans la partie admin!</A>
</BODY>
</HTML>

<% ElseIf dataRec("pass")=Request.QueryString("pwd") and dataRec("root")="Faux" Then %>
<HTML>
<HEAD>
<TITLE>connection | Bienvenue |</TITLE>
</HEAD>
<BODY>
<A style=font-family=verdana;font-size=10px;color=#000000;>Bienvenue <% = dataRec("login") %>!</A>
</BODY>
</HTML>

<% ELse %>
<HTML>
<HEAD>
<TITLE>connection | Impossible de se connecter |</TITLE>
</HEAD>
<BODY>
<A style=font-family=verdana;font-size=10px;color=#000000;>Impossible de se connecter!<BR>Veuillez reassayer</A>
</BODY>
</HTML>
<% End If %>

<% End If %>

<% Else %>
<HTML>
<HEAD>
<TITLE>connection | Identification |</TITLE>
</HEAD>
<BODY>
<FORM action=index.asp method=GET>
<A style=font-family=verdana;font-size=10px;font-weight=bold;color=#0000aa;>Nick:</A><BR>
<INPUT type=text name='nick' style=font-family=verdana;font-size=10px;color=#000000;><BR>
<A style=font-family=verdana;font-size=10px;font-weight=bold;color=#0000aa;>PWD:</A><BR>
<INPUT type=text name='pwd' style=font-family=verdana;font-size=10px;color=#000000;><BR>
<INPUT type=submit value='Connection' style=cursor=hand;font-family=verdana;font-size=10px;color=#000000;>
</FORM>
</BODY>
</HTML>

<% End If %>
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (vbtom)