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