Accéder à une page avec connection

Soyez le premier à donner votre avis sur cette source.

Vue 13 896 fois - Téléchargée 752 fois

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 %>

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003

Personnellement j'ai arrete l'asp, parceque j'avais beaucoup de mal à trouver des hébergeur, pour le PHP. Evidement quand on connait deja le VB(ce qui etait mon cas) l'asp semble un choix évident, mais je trouve que le PHP est beaucoup plus agréable a programmer. Enfin bon chacun son choix videment :)
Messages postés
3
Date d'inscription
mardi 11 février 2003
Statut
Membre
Dernière intervention
28 juillet 2003

je sui complaitement bleufé je me sui mi a lasp pke ejn avais mar du html c chiant les mise a jour et puis pour s'identifier e tout sa c po pratike mais la je vien de découvrir ke ton code ressemble enormément a du visual basic et la sa me soulage pke je penser ke jalé me faire chier pour aprendre l'asp alors ke konnasisnt deja le vb sa va etre bocoup plu facil

merci pour ton code c super now c vive l'asp koi
Des petits commentaires seraient les bienvenus...

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.