home *** CD-ROM | disk | FTP | other *** search
- <% @ LANGUAGE="VBScript" lcid="1036" %>
- <!--#include file="include.asp"-->
- <%
- Nom2=Replace(request.form("Nom"), "'", "''")
- Passe2=Replace(request.form("Passe"), "'", "''")
- Signature2=request.form("Signature")
- Effacer2=request.form("Effacer")
- Topic2=request.form("Topic")
- Post2=request.form("Post")
- Postcn2=request.form("Postcn")
- Message2=Replace(request.form("Message"), "'", "''")
- 'RΘcupΘration du formulaire prΘcΘdent
-
- strContSQL = "SELECT * FROM Postcn WHERE postcnid=" & Postcn2 & " "
- set ContRes=ConnectionBD.Execute(strContSQL)
-
- strTopicSQL = "SELECT * FROM Topic WHERE topicid=" & Topic2 & " "
- set TopicRes=ConnectionBD.Execute(strTopicSQL)
- %>
- <html>
- <head>
- <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 Effacer2 = "ON" Then %>
- <p align="center"><font face="Arial">
- <a href="default.asp"><img border="0" src="<% =EnvironnementRes("envlogo") %>" alt="Retour α la page principale"></a>
-
- <b>Effacer le message</b></font>
- <%
- If len(Nom2) > 0 Then
- strAutSQL = "SELECT * FROM Utilisateur WHERE usrlogin='" & Nom2 & "' "
- set AutRes=ConnectionBD.Execute(strAutSQL)
-
- If AutRes.EOF=false Then
-
- 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>255 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
- 'Cryptage du mot de passe
-
- If AutRes("usrpass") = Passe2 Then
- strStatSQL = "SELECT * FROM Statut WHERE statid=" & AutRes("usrstatu") & " "
- set StatRes=ConnectionBD.Execute(strStatSQL)
-
- If AutRes("usrstatu") = 1 or TopicRes("topicadm")=AutRes("usrid") Then
- %>
- <p align="center">
- <p align="center"><font face="Arial" size="2">Merci, Votre identitΘ est
- confirmΘe : <% =AutRes("usrlogin") %> (<% =StatRes("statdesc") %>)</font>
- <%
- strPostSQL = "SELECT * FROM Post WHERE postid=" & Post2 & " "
- set PostRes=ConnectionBD.Execute(strPostSQL)
-
- SQLStmt3 = "UPDATE Topic "
- SQLStmt3 = SQLStmt3 & "SET topicpost = ('" & TopicRes("topicpost") - 1 & "') "
- SQLStmt3 = SQLStmt3 & "WHERE topicid=" & Topic2 & " "
- Set RS3 = ConnectionBD.Execute(SQLStmt3)
-
- SQLStmt1 = "DELETE FROM Postcn "
- SQLStmt1 = SQLStmt1 & "WHERE postcnid=" & Postcn2 & " "
- Set RS1 = ConnectionBD.Execute(SQLStmt1)
-
- If PostRes("postans")=0 Then
-
- SQLStmt = "DELETE FROM Post "
- SQLStmt = SQLStmt & "WHERE postid=" & Post2 & " "
- Set RS = ConnectionBD.Execute(SQLStmt)
-
- Else
-
- SQLStmt4 = "UPDATE Post "
- SQLStmt4 = SQLStmt4 & "SET postans = ('" & PostRes("postans") - 1 & "') "
- SQLStmt4 = SQLStmt4 & "WHERE postid=" & Post2 & " "
- Set RS4 = ConnectionBD.Execute(SQLStmt4)
-
- End If
- %>
- <p align="center"><font face="Arial"><b>Message supprimΘ !
- </b></font>
- <p align="center">
- <p align="center"><font face="Arial"><b><a href="default.asp">Retour au forum</a>
- <% Else %>
- </b></font>
- <p align="center">
- <font face="Arial" size="2"><b>
- Vous n'avez pas le droit de supprimer un message.
- <%
- 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 %>
- </b>
- </font>
- <!--#include file="basdepage.asp"-->
- <% Else %>
- <p>
- <font face="Arial" size="2"><b>
- <%
- If len(Nom2) > 0 Then
- strAutSQL = "SELECT * FROM Utilisateur WHERE usrlogin='" & Nom2 & "' "
- set AutRes=ConnectionBD.Execute(strAutSQL)
-
- If AutRes.EOF=false Then
-
- 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>255 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
- 'Cryptage du mot de passe
-
- If AutRes("usrpass") = Passe2 Then
-
- If AutRes("usrid") = ContRes("postcnau") or TopicRes("topicadm")=AutRes("usrid") or AutRes("usrstatu") = 1 Then
-
- If AutRes("usrfin") = false Then
- If Message2<>"" Then %>
- Merci, votre message α ΘtΘ modifiΘ !
- </b></font>
- <p><font face="Arial" size="2"><b>
- <%
- If EnvironnementRes("envhtml")=false Then
- Message2=Replace(Message2, "<", "<")
- Message2=Replace(Message2, ">", ">")
- End If
- 'Si le code HTML est interdi, transformation des < et > par leur Θquivalents HTML pour bloquer le code.
-
- If Signature2 = "ON" Then
- Message2 = Message2 & "<BR><BR>" & AutRes("usrsign")
- End If
-
- Message2=Replace(Message2, "<a href=", "<a href=")
- Message2=Replace(Message2, "_blank"">", "_blank"">")
- Message2=Replace(Message2, "</a>", "</a>")
- Message2=Replace(Message2, "<IMG SRC=", "<IMG SRC=")
- Message2=Replace(Message2, ".gif>", ".gif>")
- Message2=Replace(Message2, ".jpg>", ".jpg>")
-
- Message2=Replace(Message2, vbcrlf, "<BR>")
- 'Transformation des retours charriot en <BR>
-
- If EnvironnementRes("envabb")=true Then
- %>
- <!--#include file="abbcode.asp"-->
- <% End If
- 'Si le code ABB est autorisΘ, effecuter les transformations adΘquates.
-
- Message2 = Message2 & "<BR><BR>" & "[Message ΘditΘ le : " & Day(now) & "/" & Month(now) & "/" & Year(now) & " par " & AutRes("usrlogin") & "]"
-
- Aut2=AutRes("usrid")
-
- SQLStmt2 = "UPDATE Postcn "
- SQLStmt2 = SQLStmt2 & "SET postcncn = ('" & Message2 & "') "
- SQLStmt2 = SQLStmt2 & "WHERE postcnid=" & Postcn2 &" "
- Set RS2=ConnectionBD.Execute(SQLStmt2)
-
- strpopoSQL = "SELECT * FROM Post WHERE postid=" & Post2 & " "
- set PopoRes=ConnectionBD.Execute(strpopoSQL)
- %>
- Vous allez automatiquement Ωtre ramenΘ sur le message "<% =PopoRes("posttitle") %>",
- </b></font>
- </p>
- <p><font face="Arial" size="2"><b>
- sinon, cliquez ici : <a href="post.asp?postid=<% =Post2 %>&topicid=<% =Topic2 %>">Retour au message "<% =PopoRes("posttitle") %>"</a>
- <%
- temps=Now()
- While DateDiff("s",temps,Now())<3
- Wend
- %>
- <script language="javascript">
- document.location="post.asp?postid=<% =Post2 %>&topicid=<% =Topic2 %>";
- </script>
- <% Else %>
- Entrez le corps du message...
- <%
- temps=Now()
- While DateDiff("s",temps,Now())<3
- Wend
- %>
- <script language="javascript">
- history.back();
- </script>
- <% End If
- Else %>
- Vous n'avez pas le droit de modifier des messages...
- <%
- temps=Now()
- While DateDiff("s",temps,Now())<3
- Wend
- %>
- <script language="javascript">
- history.back();
- </script>
- <% End If
- Else %>
- Vous n'Ωtes pas l'auteur du message, vous n'avez pas le droit de l'Θditer...
- <%
- temps=Now()
- While DateDiff("s",temps,Now())<3
- Wend
- %>
- <script language="javascript">
- history.back();
- </script>
- <% End If
- Else %>
- 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 %>
- Entrez un nom d'utilisateur valide.
- <br>
- <br>
- <center><a href="suscribe.asp">Si vous n'Ωtes pas encore inscrit, cliquez ici.</a></center>
- <%
- temps=Now()
- While DateDiff("s",temps,Now())<10
- Wend
- %>
- <script language="javascript">
- history.back();
- </script>
- <% End If
- Else %>
- Entrez un nom d'utilisateur valide.
- <br>
- <br>
- <center><a href="suscribe.asp">Si vous n'Ωtes pas encore inscrit, cliquez ici.</a></center>
- <%
- temps=Now()
- While DateDiff("s",temps,Now())<10
- Wend
- %>
- <script language="javascript">
- history.back();
- </script>
- <% End If %>
- </b></font>
- </p>
- <% End If %>
- <!--#include file="basdepage.asp"-->
- </body>
-
- </html>
-