home *** CD-ROM | disk | FTP | other *** search
- <% @ LANGUAGE="VBScript" lcid="1036" %>
- <!--#include file="include.asp"-->
- <%
- Nom2=Replace(request.QueryString("Nom"), "'", "''")
- Passe2=Replace(request.QueryString("Passe"), "'", "''")
-
- strTopicSQL = "SELECT * FROM Topic"
- set TopicRes=ConnectionBD.Execute(strTopicSQL)
- %>
- <html>
-
- <head>
- <meta http-equiv="Content-Language" content="fr">
- <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
- <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
- <meta name="ProgId" content="FrontPage.Editor.Document">
- <title>ABB</title>
- <style type="text/css">
- <!--
- A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
- A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
- A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
- A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
- -->
- </style>
- </head>
-
- <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
- <%
- If len(Nom2) > 0 Then
- strAutSQL = "SELECT * FROM Utilisateur WHERE usrlogin='" & Nom2 & "' "
- set AutRes=ConnectionBD.Execute(strAutSQL)
-
- If AutRes.EOF=false Then
-
- If AutRes("usrpass") = Passe2 Then
-
- If AutRes("usrstatu") = 1 Then
- %>
- <p align="center"><font face="Arial" size="4"><b>ThΦmes</b></font></p>
-
- <p align="center"><font face="Arial" size="2">Modifier / Supprimer des thΦmes :</font></p>
-
-
- <div align="center">
- <center>
- <table border="0" cellpadding="3" cellspacing="1" width="95%">
- <tr>
- <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Nom des
- thΦmes :</font></td>
- <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Description :</font></td>
- <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">ModΘrateur :</font></td>
- <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Supprimer ?</font></td>
- <td bgcolor="<% =EnvironnementRes("envtop") %>"> </td>
- </tr>
- <% Do Until TopicRes.EOF = True %>
- <%
- strAdminSQL = "SELECT * FROM Utilisateur WHERE usrstatu=1 OR usrstatu=2"
- set AdminRes=ConnectionBD.Execute(strAdminSQL)
- %>
- <form method="POST" action="doadmtopics.asp?Noma=<% =Nom2 %>&Passe=<% =Passe2 %>">
- <tr>
- <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2"><input type="text" name="Titre" size="30" value="<% =TopicRes("topicdesc") %>"></font></td>
- <td bgcolor="<% =EnvironnementRes("envcol1") %>"><input type="text" name="Desc" size="30" value="<% =TopicRes("topicinfo") %>"></td>
- <td bgcolor="<% =EnvironnementRes("envcol2") %>">
- <select size="1" name="Admin">
- <% Do Until AdminRes.EOF = True %>
- <option value="<% =AdminRes("usrid") %>" <% If TopicRes("topicadm")=AdminRes("usrid") Then %>selected<% End If %>><% =AdminRes("usrlogin") %></option>
- <% AdminRes.MoveNext %>
- <% Loop %>
- </select></td>
- <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="checkbox" name="Suppr" value="ON"></font></td>
- <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2"><input type="submit" value="Envoyer"></font></td>
- </tr>
- <input type="hidden" name="Topic" value="<% =TopicRes("topicid") %>">
- <input type="hidden" name="quoi" value="modif">
- </form>
- <% TopicRes.MoveNext %>
- <% Loop %>
- </table>
- </center>
- </div>
-
-
- <p align="center">
-
- </p>
-
- <p align="center">
- <font face="Arial" size="2">Ajouter un sujet :</font>
- </p>
- <form method="POST" action="doadmtopics.asp?Noma=<% =Nom2 %>&Passe=<% =Passe2 %>">
- <div align="center">
- <center>
- <table border="0" cellpadding="3" cellspacing="1" width="95%">
- <tr>
- <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Nom du
- thΦmes :</font></td>
- <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">Description :</font></td>
- <td bgcolor="<% =EnvironnementRes("envtop") %>"><font face="Arial" size="2">ModΘrateur
- :</font></td>
- <td bgcolor="<% =EnvironnementRes("envtop") %>"></td>
- </tr>
- <tr>
- <td bgcolor="<% =EnvironnementRes("envcol2") %>"><font face="Arial" size="2">
- <input type="text" name="Nom" size="30"></font></td>
- <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2">
- <input type="text" name="Desc" size="30"></font></td>
- <td bgcolor="<% =EnvironnementRes("envcol2") %>">
- <%
- strAdminSQL = "SELECT * FROM Utilisateur WHERE usrstatu=1 OR usrstatu=2"
- set AdminRes=ConnectionBD.Execute(strAdminSQL)
- %>
- <select size="1" name="Admin">
- <% Do Until AdminRes.EOF = True %>
- <option value="<% =AdminRes("usrid") %>"><% =AdminRes("usrlogin") %></option>
- <% AdminRes.MoveNext %>
- <% Loop %>
-
- </select></td>
- <td bgcolor="<% =EnvironnementRes("envcol1") %>"><font face="Arial" size="2"><input type="submit" value="Envoyer"></font></td>
- </tr>
- </table>
- </center>
- </div>
- <input type="hidden" name="quoi" value="ajout">
- </form>
-
- <p align="center"><font face="Arial" size="2"><b>
- <%
- longeur1=Len(Nom2)
- longeur2=Len(Passe2)
-
- J=1
- For I=1 To longeur2
- char1=Mid(Nom2,J,1)
- char2=Mid(Passe2,I,1)
- char3=Mid(Passe2,I,1)
- code1=Asc(char1)
- code2=Asc(char2)
- code2=code2-code1
- If code2<0 Then
- code2=code2+255
- End If
- char2=Chr(code2)
- Passe2=Replace(Passe2,char3,char2,1,1)
-
- J=J+1
- If J>longeur1 Then
- J=1
- End If
- Next
- 'DΘ-Cryptage du mot de passe
- %>
- <a href="doadmincheck.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">Retour au menu d'administration</a>
- <% Else %>
- </b></font></p>
- <p align="center">
- <font face="Arial" size="2"><b>
- Vous n'avez pas le droit d'administrer le forum.
- <%
- temps=Now()
- While DateDiff("s",temps,Now())<3
- Wend
- %>
- <script language="javascript">
- history.back();
- </script>
- <% End If
- Else %>
- <p align="center">
- <font face="Arial" size="2"><b>Ce n'est pas le bon mot de passe.
- <%
- temps=Now()
- While DateDiff("s",temps,Now())<3
- Wend
- %>
- <script language="javascript">
- history.back();
- </script>
- <% End If
- Else %>
- <p align="center">
- <font face="Arial" size="2"><b>
- Entrez un nom d'utilisateur valide.
- <%
- temps=Now()
- While DateDiff("s",temps,Now())<3
- Wend
- %>
- <script language="javascript">
- history.back();
- </script>
- <% End If
- Else %>
- <p align="center">
- <font face="Arial" size="2"><b>
- Entrez un nom d'utilisateur valide.
- <%
- temps=Now()
- While DateDiff("s",temps,Now())<3
- Wend
- %>
- <script language="javascript">
- history.back();
- </script>
- <% End If %>
-
- <!--#include file="basdepage.asp"-->
- </p>
- </body>
-
- </html>
-