home *** CD-ROM | disk | FTP | other *** search
- <% @ LANGUAGE="VBScript" lcid="1036" %>
- <!--#include file="include.asp"-->
- <%
- Nom3=Replace(request.QueryString("Noma"), "'", "''")
- Passe2=Replace(request.QueryString("Passe"), "'", "''")
-
- quoi2=Replace(request.form("quoi"), "'", "''")
- %>
- <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") %>">
- <p align="center"><font face="Arial"><b>
- <%
- If quoi2 = "modif" Then
- Titre2=Replace(request.form("Titre"), "'", "''")
- Desc2=Replace(request.form("Desc"), "'", "''")
- Suppr2=Replace(request.form("Suppr"), "'", "''")
- Topic2=Replace(request.form("Topic"), "'", "''")
- Admin2=Replace(request.form("Admin"), "'", "''")
-
- If Suppr2 <> "ON" Then
- SQLStmt = "UPDATE Topic "
- SQLStmt = SQLStmt & "SET topicdesc = ('" & Titre2 & "'), topicinfo = ('" & Desc2 & "'), topicadm = (" & Admin2 & ") "
- SQLStmt = SQLStmt & "WHERE topicid=" & Topic2 & " "
- Set RS = ConnectionBD.Execute(SQLStmt)
- %>
- Modification effectuΘe
- <%
- Else
- strPostSQL = "SELECT * FROM Post WHERE posttopic=" & Topic2 & " "
- set PostRes=ConnectionBD.Execute(strPostSQL)
-
- Do Until PostRes.EOF = True
- SQLStmt1 = "DELETE FROM Postcn "
- SQLStmt1 = SQLStmt1 & "WHERE postcnpo=" & PostRes("postid") & " "
- Set RS1 = ConnectionBD.Execute(SQLStmt1)
- PostRes.MoveNext
- Loop
-
- SQLStmt2 = "DELETE FROM Post "
- SQLStmt2 = SQLStmt2 & "WHERE posttopic=" & Topic2 & " "
- Set RS2 = ConnectionBD.Execute(SQLStmt2)
-
- SQLStmt3 = "DELETE FROM Topic "
- SQLStmt3 = SQLStmt3 & "WHERE topicid=" & Topic2 & " "
- Set RS3 = ConnectionBD.Execute(SQLStmt3)
- %>
- Sujet supprimΘ
- <%
- End If
- Else
- Nom2=Replace(request.form("Nom"), "'", "''")
- Desc2=Replace(request.form("Desc"), "'", "''")
- Admin2=Replace(request.form("Admin"), "'", "''")
-
- If Nom2<>"" Then
-
- SQLStmt18 = "INSERT INTO Topic (topicdesc,topicadm,topicinfo) "
- SQLStmt18 = SQLStmt18 & "VALUES ('" & Nom2 & "'," & Admin2 & ",'" & Desc2 & "')"
- Set RS18=ConnectionBD.Execute(SQLStmt18)
- %>
- Sujet ajoutΘ
- <% Else %>
- Vous devez mettre un nom de thΦme...
- <%
- temps=Now()
- While DateDiff("s",temps,Now())<3
- Wend
- %>
- <script language="javascript">
- history.back();
- </script>
- <% End If
- End If
- %>
- </b></font>
- <p align="center">
-
- </p>
- <%
- longeur1=Len(Nom3)
- longeur2=Len(Passe2)
-
- J=1
- For I=1 To longeur2
- char1=Mid(Nom3,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
- %>
- <p align="center"><font face="Arial" size="2"><b><a href="doadmincheck.asp?Nom=<% =Nom3 %>&Passe=<% =Passe2 %>">Retour au menu d'administration</a>
- </b></font></p>
- <p align="center">
- <font face="Arial"><b>
- <script language="javascript">
- parent.abbdown.location="default.asp";
- </script>
- <!--#include file="basdepage.asp"-->
- </b></font>
- </p>
- </body>
-
- </html>
-