home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / admusrs.asp < prev    next >
Encoding:
Text File  |  2000-03-02  |  5.3 KB  |  170 lines
  1. <% @ LANGUAGE="VBScript" lcid="1036" %>
  2. <!--#include file="include.asp"-->
  3. <%
  4.     Nom2=Replace(request.QueryString("Nom"), "'", "''")
  5.     Passe2=Replace(request.QueryString("Passe"), "'", "''")
  6.  
  7.     strUserSQL = "SELECT * FROM Utilisateur"
  8.     set UserRes=ConnectionBD.Execute(strUserSQL)
  9. %>
  10. <html>
  11.  
  12. <head>
  13. <meta http-equiv="Content-Language" content="fr">
  14. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  15. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  16. <meta name="ProgId" content="FrontPage.Editor.Document">
  17. <title>ABB</title>
  18. <style type="text/css">
  19. <!--
  20. A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  21. A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  22. A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  23. A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  24. -->
  25. </style>
  26. </head>
  27.  
  28. <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
  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.     If AutRes("usrpass") = Passe2 Then 
  37.     
  38.     If AutRes("usrstatu") = 1 Then
  39.     %>
  40. <p align="center"><font face="Arial" size="4"><b>Utilisateurs</b></font></p>
  41.  
  42. <p align="center"><font face="Arial" size="2">Modifier / Supprimer des
  43. utilisateurs :</font></p>
  44.  
  45.  
  46.   <div align="center">
  47.     <center>
  48.     <table border="0" cellpadding="3" cellspacing="1" width="95%">
  49.       <tr>
  50.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Nom
  51.           :</font></td>
  52.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Statut :</font></td>
  53.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Nombre
  54.           de messages envoyΘs :</font></td>
  55.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Interdire
  56.           de poster (bannir) :</font></td>
  57.         <td bgcolor="<% =EnvironnementRes("envtop") %>"> </td>
  58.       </tr>
  59.       <% Do Until UserRes.EOF = True %>
  60.       <%
  61.           strStatuSQL = "SELECT * FROM Statut WHERE statnbpost>0 OR statid<4 ORDER BY statnbpost, statid"
  62.           set StatuRes=ConnectionBD.Execute(strStatuSQL)
  63.       %>
  64.       <form method="POST" action="doadmusrs.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">
  65.       <tr>
  66.         <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2"><% =UserRes("usrlogin") %></font></td>
  67.         <td bgcolor="<% =EnvironnementRes("envcol1") %>">
  68.             <select size="1" name="Statut">
  69.               <% Do Until StatuRes.EOF = True %>
  70.                   <option value="<% =StatuRes("statid") %>" <% If UserRes("usrstatu")=StatuRes("statid") Then %>selected<% End If %>><% =StatuRes("statdesc") %></option>
  71.               <% StatuRes.MoveNext %>
  72.               <% Loop %>
  73.             </select>
  74.           </td>
  75.         <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><% =UserRes("usrpost") %></font></td>
  76.         <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2"><input type="checkbox" name="Ban" value="ON" <% If UserRes("usrfin")=true Then %>checked><% End If %></font></td>
  77.         <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="submit" value="Envoyer"></font></td>
  78.       </tr>
  79.       <input type="hidden" name="User" value="<% =UserRes("usrid") %>">
  80.       </form>
  81.       <% UserRes.MoveNext %>
  82.       <% Loop %>
  83.     </table>
  84.     </center>
  85.   </div>
  86.  
  87. <%
  88.     longeur1=Len(Nom2)
  89.     longeur2=Len(Passe2)
  90.  
  91.     J=1
  92.     For I=1 To longeur2
  93.         char1=Mid(Nom2,J,1)
  94.         char2=Mid(Passe2,I,1)
  95.         char3=Mid(Passe2,I,1)
  96.         code1=Asc(char1)
  97.         code2=Asc(char2)
  98.         code2=code2-code1
  99.         If code2<0 Then
  100.             code2=code2+255
  101.         End If
  102.         char2=Chr(code2)
  103.         Passe2=Replace(Passe2,char3,char2,1,1)
  104.  
  105.         J=J+1
  106.         If J>longeur1 Then
  107.             J=1
  108.         End If
  109.     Next
  110.     'DΘ-Cryptage du mot de passe
  111. %>
  112. <p align="center"><font face="Arial" size="2"><b><a href="doadmincheck.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">Retour au menu d'administration</a>
  113. </b></font></p>
  114. <% Else %>
  115. <p align="center">
  116.  <font face="Arial" size="2"><b>
  117. Vous n'avez pas le droit d'administrer le forum.
  118. <%
  119. temps=Now()
  120. While DateDiff("s",temps,Now())<3
  121. Wend
  122. %>
  123. <script language="javascript">
  124. history.back();
  125. </script>
  126. <% End If
  127. Else %>
  128. <p align="center">
  129.  <font face="Arial" size="2"><b>Ce n'est pas le bon mot de passe.
  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. Else %>
  140. <p align="center">
  141.  <font face="Arial" size="2"><b>
  142. Entrez un nom d'utilisateur valide.
  143. <%
  144. temps=Now()
  145. While DateDiff("s",temps,Now())<3
  146. Wend
  147. %>
  148. <script language="javascript">
  149. history.back();
  150. </script>
  151. <% End If
  152. Else %>
  153. <p align="center">
  154.  <font face="Arial" size="2"><b>
  155. Entrez un nom d'utilisateur valide.
  156. <%
  157. temps=Now()
  158. While DateDiff("s",temps,Now())<3
  159. Wend
  160. %>
  161. <script language="javascript">
  162. history.back();
  163. </script>
  164. <% End If %>
  165. <!--#include file="basdepage.asp"-->
  166. </p>
  167. </body>
  168.  
  169. </html>
  170.