home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / admstat.asp < prev    next >
Text File  |  2000-03-02  |  6KB  |  192 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.     strStatSQL = "SELECT * FROM Statut ORDER BY statnbpost, statid"
  8.     set StatRes=ConnectionBD.Execute(strStatSQL)
  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>Statuts</b></font></p>
  41.  
  42. <p align="center"><font face="Arial" size="2">Modifier / Supprimer des statuts :</font></p>
  43.  
  44.  
  45.   <div align="center">
  46.     <center>
  47.     <table border="0" cellpadding="3" cellspacing="1" width="95%">
  48.       <tr>
  49.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Statut
  50.           :</font></td>
  51.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Nombre
  52.           de messages α envoyer pour atteindre ce statut :</font></td>
  53.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Supprimer ?</font></td>
  54.         <td bgcolor="<% =EnvironnementRes("envtop") %>"> </td>
  55.       </tr>
  56.       <% Do Until StatRes.EOF = True %>
  57.       <form method="POST" action="doadmstat.asp?Noma=<% =Nom2 %>&Passe=<% =Passe2 %>">
  58.       <% If StatRes("statnbpost")>0 or StatRes("statid")<4 Then %>
  59.       <tr>
  60.         <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2"><input type="text" name="Statut" size="30" value="<% =StatRes("statdesc") %>"></font></td>
  61.         <td bgcolor="<% =EnvironnementRes("envcol1") %>"><input type="text" name="Nb" size="10" value="<% =StatRes("statnbpost") %>"></td>
  62.         <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><% If StatRes("statid")>3 Then %><input type="checkbox" name="Suppr" value="ON"><% End If %></font></td>
  63.         <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2"><input type="submit" value="Envoyer"></font></td>
  64.       </tr>
  65.       <% End If %>
  66.       <input type="hidden" name="Statid" value="<% =StatRes("statid") %>">
  67.       <input type="hidden" name="quoi" value="modif">
  68.       </form>
  69.       <% StatRes.MoveNext %>
  70.       <% Loop %>
  71.     </table>
  72.     </center>
  73.   </div>
  74.  
  75.  
  76. <p align="center">
  77.  
  78. </p>
  79.  
  80. <p align="center">
  81. <font face="Arial" size="2">Ajouter un statut :</font>
  82. </p>
  83. <form method="POST" action="doadmstat.asp?Noma=<% =Nom2 %>&Passe=<% =Passe2 %>">
  84.   <div align="center">
  85.     <center>
  86.     <table border="0" cellpadding="3" cellspacing="1" width="95%">
  87.       <tr>
  88.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Statut
  89.           :</font></td>
  90.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Nombre
  91.           de messages α envoyer pour atteindre ce statut :</font></td>
  92.         <td bgcolor="<% =EnvironnementRes("envtop") %>"></td>
  93.       </tr>
  94.       <tr>
  95.         <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">
  96.           <input type="text" name="Statut" size="30"></font></td>
  97.         <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2">
  98.           <input type="text" name="Nb" size="10" value="0"></font></td>
  99.         <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="submit" value="Envoyer"></font></td>
  100.       </tr>
  101.     </table>
  102.     </center>
  103.   </div>
  104.   <input type="hidden" name="quoi" value="ajout">
  105. </form>
  106.  
  107. <p align="center"><font face="Arial" size="2"><b>
  108. <%
  109.     longeur1=Len(Nom2)
  110.     longeur2=Len(Passe2)
  111.  
  112.     J=1
  113.     For I=1 To longeur2
  114.         char1=Mid(Nom2,J,1)
  115.         char2=Mid(Passe2,I,1)
  116.         char3=Mid(Passe2,I,1)
  117.         code1=Asc(char1)
  118.         code2=Asc(char2)
  119.         code2=code2-code1
  120.         If code2<0 Then
  121.             code2=code2+255
  122.         End If
  123.         char2=Chr(code2)
  124.         Passe2=Replace(Passe2,char3,char2,1,1)
  125.  
  126.         J=J+1
  127.         If J>longeur1 Then
  128.             J=1
  129.         End If
  130.     Next
  131.     'DΘ-Cryptage du mot de passe
  132. %>
  133. <a href="doadmincheck.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">Retour au menu d'administration</a>
  134. <% Else %>
  135. </b></font></p>
  136. <p align="center">
  137.  <font face="Arial" size="2"><b>
  138. Vous n'avez pas le droit d'administrer le forum.
  139. <%
  140. temps=Now()
  141. While DateDiff("s",temps,Now())<3
  142. Wend
  143. %>
  144. <script language="javascript">
  145. history.back();
  146. </script>
  147. <% End If
  148. Else %>
  149. <p align="center">
  150.  <font face="Arial" size="2"><b>Ce n'est pas le bon mot de passe.
  151.  <%
  152. temps=Now()
  153. While DateDiff("s",temps,Now())<3
  154. Wend
  155. %>
  156. <script language="javascript">
  157. history.back();
  158. </script>
  159. <% End If
  160. Else %>
  161. <p align="center">
  162.  <font face="Arial" size="2"><b>
  163. Entrez un nom d'utilisateur valide.
  164. <%
  165. temps=Now()
  166. While DateDiff("s",temps,Now())<3
  167. Wend
  168. %>
  169. <script language="javascript">
  170. history.back();
  171. </script>
  172. <% End If
  173. Else %>
  174. <p align="center">
  175.  <font face="Arial" size="2"><b>
  176. Entrez un nom d'utilisateur valide.
  177. <%
  178. temps=Now()
  179. While DateDiff("s",temps,Now())<3
  180. Wend
  181. %>
  182. <script language="javascript">
  183. history.back();
  184. </script>
  185. <% End If %>
  186.  
  187. <!--#include file="basdepage.asp"-->
  188. </p>
  189. </body>
  190.  
  191. </html>
  192.