home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / admtopics.asp < prev    next >
Text File  |  2000-03-02  |  7KB  |  214 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.     strTopicSQL = "SELECT * FROM Topic"
  8.     set TopicRes=ConnectionBD.Execute(strTopicSQL)
  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>ThΦmes</b></font></p>
  41.  
  42. <p align="center"><font face="Arial" size="2">Modifier / Supprimer des thΦmes :</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">Nom des
  50.           thΦmes :</font></td>
  51.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Description :</font></td>
  52.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">ModΘrateur :</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 TopicRes.EOF = True %>
  57.       <%
  58.           strAdminSQL = "SELECT * FROM Utilisateur WHERE usrstatu=1 OR usrstatu=2"
  59.           set AdminRes=ConnectionBD.Execute(strAdminSQL)
  60.       %>
  61.       <form method="POST" action="doadmtopics.asp?Noma=<% =Nom2 %>&Passe=<% =Passe2 %>">
  62.       <tr>
  63.         <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2"><input type="text" name="Titre" size="30" value="<% =TopicRes("topicdesc") %>"></font></td>
  64.         <td bgcolor="<% =EnvironnementRes("envcol1") %>"><input type="text" name="Desc" size="30" value="<% =TopicRes("topicinfo") %>"></td>
  65.         <td bgcolor="<% =EnvironnementRes("envcol2") %>">
  66.           <select size="1" name="Admin">
  67.               <% Do Until AdminRes.EOF = True %>
  68.                   <option value="<% =AdminRes("usrid") %>" <% If TopicRes("topicadm")=AdminRes("usrid") Then %>selected<% End If %>><% =AdminRes("usrlogin") %></option>
  69.               <% AdminRes.MoveNext %>
  70.               <% Loop %>
  71.             </select></td>
  72.         <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="checkbox" name="Suppr" value="ON"></font></td>
  73.         <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2"><input type="submit" value="Envoyer"></font></td>
  74.       </tr>
  75.       <input type="hidden" name="Topic" value="<% =TopicRes("topicid") %>">
  76.       <input type="hidden" name="quoi" value="modif">
  77.       </form>
  78.       <% TopicRes.MoveNext %>
  79.       <% Loop %>
  80.     </table>
  81.     </center>
  82.   </div>
  83.  
  84.  
  85. <p align="center">
  86.  
  87. </p>
  88.  
  89. <p align="center">
  90. <font face="Arial" size="2">Ajouter un sujet :</font>
  91. </p>
  92. <form method="POST" action="doadmtopics.asp?Noma=<% =Nom2 %>&Passe=<% =Passe2 %>">
  93.   <div align="center">
  94.     <center>
  95.     <table border="0" cellpadding="3" cellspacing="1" width="95%">
  96.       <tr>
  97.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Nom du
  98.           thΦmes :</font></td>
  99.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Description :</font></td>
  100.         <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">ModΘrateur
  101.           :</font></td>
  102.         <td bgcolor="<% =EnvironnementRes("envtop") %>"></td>
  103.       </tr>
  104.       <tr>
  105.         <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">
  106.           <input type="text" name="Nom" size="30"></font></td>
  107.         <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2">
  108.           <input type="text" name="Desc" size="30"></font></td>
  109.         <td bgcolor="<% =EnvironnementRes("envcol2") %>">
  110.         <%
  111.             strAdminSQL = "SELECT * FROM Utilisateur WHERE usrstatu=1 OR usrstatu=2"
  112.             set AdminRes=ConnectionBD.Execute(strAdminSQL)
  113.          %>
  114.         <select size="1" name="Admin">
  115.             <% Do Until AdminRes.EOF = True %>
  116.                 <option value="<% =AdminRes("usrid") %>"><% =AdminRes("usrlogin") %></option>
  117.           <% AdminRes.MoveNext %>
  118.           <% Loop %>
  119.           
  120.             </select></td>
  121.         <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="submit" value="Envoyer"></font></td>
  122.       </tr>
  123.     </table>
  124.     </center>
  125.   </div>
  126.   <input type="hidden" name="quoi" value="ajout">
  127. </form>
  128.  
  129. <p align="center"><font face="Arial" size="2"><b>
  130. <%
  131.     longeur1=Len(Nom2)
  132.     longeur2=Len(Passe2)
  133.  
  134.     J=1
  135.     For I=1 To longeur2
  136.         char1=Mid(Nom2,J,1)
  137.         char2=Mid(Passe2,I,1)
  138.         char3=Mid(Passe2,I,1)
  139.         code1=Asc(char1)
  140.         code2=Asc(char2)
  141.         code2=code2-code1
  142.         If code2<0 Then
  143.             code2=code2+255
  144.         End If
  145.         char2=Chr(code2)
  146.         Passe2=Replace(Passe2,char3,char2,1,1)
  147.  
  148.         J=J+1
  149.         If J>longeur1 Then
  150.             J=1
  151.         End If
  152.     Next
  153.     'DΘ-Cryptage du mot de passe
  154. %>
  155. <a href="doadmincheck.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">Retour au menu d'administration</a>
  156. <% Else %>
  157. </b></font></p>
  158. <p align="center">
  159.  <font face="Arial" size="2"><b>
  160. Vous n'avez pas le droit d'administrer le forum.
  161. <%
  162. temps=Now()
  163. While DateDiff("s",temps,Now())<3
  164. Wend
  165. %>
  166. <script language="javascript">
  167. history.back();
  168. </script>
  169. <% End If
  170. Else %>
  171. <p align="center">
  172.  <font face="Arial" size="2"><b>Ce n'est pas le bon mot de passe.
  173.  <%
  174. temps=Now()
  175. While DateDiff("s",temps,Now())<3
  176. Wend
  177. %>
  178. <script language="javascript">
  179. history.back();
  180. </script>
  181. <% End If
  182. Else %>
  183. <p align="center">
  184.  <font face="Arial" size="2"><b>
  185. Entrez un nom d'utilisateur valide.
  186. <%
  187. temps=Now()
  188. While DateDiff("s",temps,Now())<3
  189. Wend
  190. %>
  191. <script language="javascript">
  192. history.back();
  193. </script>
  194. <% End If
  195. Else %>
  196. <p align="center">
  197.  <font face="Arial" size="2"><b>
  198. Entrez un nom d'utilisateur valide.
  199. <%
  200. temps=Now()
  201. While DateDiff("s",temps,Now())<3
  202. Wend
  203. %>
  204. <script language="javascript">
  205. history.back();
  206. </script>
  207. <% End If %>
  208.  
  209. <!--#include file="basdepage.asp"-->
  210. </p>
  211. </body>
  212.  
  213. </html>
  214.