home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / doadmincheck.asp < prev    next >
Encoding:
Text File  |  2000-03-02  |  3.8 KB  |  143 lines
  1. <% @ LANGUAGE="VBScript" lcid="1036" %>
  2. <!--#include file="include.asp"-->
  3. <%
  4.     Nom2=Replace(request("Nom"), "'", "''")
  5.     Passe2=Replace(request("Passe"), "'", "''")
  6. %>
  7. <html>
  8.  
  9. <head>
  10. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  11. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  12. <meta name="ProgId" content="FrontPage.Editor.Document">
  13. <title>ABB</title>
  14. <style type="text/css">
  15. <!--
  16. A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  17. A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  18. A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  19. A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  20. -->
  21. </style>
  22. </head>
  23.  
  24. <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
  25.  
  26. <p align="center"><font face="Arial" size="4">
  27.  
  28.  <b>Administrer le forum</b></font>
  29. <%
  30. If len(Nom2) > 0 Then
  31.     strAutSQL = "SELECT * FROM Utilisateur WHERE usrlogin='" & Nom2 & "' "
  32.     set AutRes=ConnectionBD.Execute(strAutSQL)
  33.     
  34.     If AutRes.EOF=false Then
  35.     
  36.     longeur1=Len(Nom2)
  37.     longeur2=Len(Passe2)
  38.  
  39.     J=1
  40.     For I=1 To longeur2
  41.         char1=Mid(Nom2,J,1)
  42.         char2=Mid(Passe2,I,1)
  43.         char3=Mid(Passe2,I,1)
  44.         code1=Asc(char1)
  45.         code2=Asc(char2)
  46.         code2=code2+code1
  47.         If code2>255 Then
  48.             code2=code2-255
  49.         End If
  50.         char2=Chr(code2)
  51.         Passe2=Replace(Passe2,char3,char2,1,1)
  52.  
  53.         J=J+1
  54.         If J>longeur1 Then
  55.             J=1
  56.         End If
  57.     Next
  58.     'Cryptage du mot de passe
  59.     
  60.     If AutRes("usrpass") = Passe2 Then
  61.         strStatSQL = "SELECT * FROM Statut WHERE statid=" & AutRes("usrstatu") & " "
  62.         set StatRes=ConnectionBD.Execute(strStatSQL)
  63.     
  64.     If AutRes("usrstatu") = 1 Then
  65.     %>
  66. <p align="center"> 
  67. <p align="center"><font face="Arial" size="2">Merci, Votre identitΘ est
  68. confirmΘe : <% =AutRes("usrlogin") %> (<% =StatRes("statdesc") %>)</font>
  69. <p align="center"> 
  70. <div align="center">
  71.   <center>
  72.   <table border="0" cellpadding="3" cellspacing="1">
  73.     <tr>
  74.       <td width="100%" align="center"><font face="Arial" size="2"><a href="prop.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">PropriΘtΘs</a></font></td>
  75.     </tr>
  76.     <tr>
  77.       <td width="100%" align="center"><font face="Arial" size="2"><a href="admtopics.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">ThΦmes</a></font></td>
  78.     </tr>
  79.     <tr>
  80.       <td width="100%" align="center"><font face="Arial" size="2"><a href="admusrs.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">Utilisateurs</a></font></td>
  81.     </tr>
  82.     <tr>
  83.       <td width="100%" align="center"><font face="Arial" size="2"><a href="admstat.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">Statuts</a></font></td>
  84.     </tr>
  85.   </table>
  86.   </center>
  87. </div>
  88. <% Else %>
  89. <p align="center">
  90.  <font face="Arial" size="2"><b>
  91. Vous n'avez pas le droit d'administrer le forum.
  92. <%
  93. temps=Now()
  94. While DateDiff("s",temps,Now())<3
  95. Wend
  96. %>
  97. <script language="javascript">
  98. history.back();
  99. </script>
  100. <% End If
  101. Else %>
  102. <p align="center">
  103.  <font face="Arial" size="2"><b>Ce n'est pas le bon mot de passe.
  104.  <%
  105. temps=Now()
  106. While DateDiff("s",temps,Now())<3
  107. Wend
  108. %>
  109. <script language="javascript">
  110. history.back();
  111. </script>
  112. <% End If
  113. Else %>
  114. <p align="center">
  115.  <font face="Arial" size="2"><b>
  116. Entrez un nom d'utilisateur valide.
  117. <%
  118. temps=Now()
  119. While DateDiff("s",temps,Now())<3
  120. Wend
  121. %>
  122. <script language="javascript">
  123. history.back();
  124. </script>
  125. <% End If
  126. Else %>
  127. <p align="center">
  128.  <font face="Arial" size="2"><b>
  129. Entrez un nom d'utilisateur valide.
  130. <%
  131. temps=Now()
  132. While DateDiff("s",temps,Now())<3
  133. Wend
  134. %>
  135. <script language="javascript">
  136. history.back();
  137. </script>
  138. <% End If %>
  139.  </b>
  140. </font>
  141. <!--#include file="basdepage.asp"-->
  142. </body>
  143. </html>