home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / doedit.asp < prev    next >
Encoding:
Text File  |  2000-03-02  |  8.7 KB  |  343 lines
  1. <% @ LANGUAGE="VBScript" lcid="1036" %>
  2. <!--#include file="include.asp"-->
  3. <%
  4.     Nom2=Replace(request.form("Nom"), "'", "''")
  5.     Passe2=Replace(request.form("Passe"), "'", "''")
  6.     Signature2=request.form("Signature")
  7.     Effacer2=request.form("Effacer")
  8.     Topic2=request.form("Topic")
  9.     Post2=request.form("Post")
  10.     Postcn2=request.form("Postcn")
  11.     Message2=Replace(request.form("Message"), "'", "''")
  12.     'RΘcupΘration du formulaire prΘcΘdent
  13.     
  14.     strContSQL = "SELECT * FROM Postcn WHERE postcnid=" & Postcn2 & " "
  15.     set ContRes=ConnectionBD.Execute(strContSQL)
  16.     
  17.     strTopicSQL = "SELECT * FROM Topic WHERE topicid=" & Topic2 & " "
  18.     set TopicRes=ConnectionBD.Execute(strTopicSQL)
  19. %>
  20. <html>
  21. <head>
  22. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  23. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  24. <meta name="ProgId" content="FrontPage.Editor.Document">
  25. <title>ABB</title>
  26. <style type="text/css">
  27. <!--
  28. A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  29. A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  30. A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  31. A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  32. -->
  33. </style>
  34. </head>
  35.  
  36. <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
  37. <% If Effacer2 = "ON" Then %>
  38. <p align="center"><font face="Arial">
  39. <a href="default.asp"><img border="0" src="<% =EnvironnementRes("envlogo") %>" alt="Retour α la page principale"></a>
  40.  
  41.  <b>Effacer le message</b></font>
  42. <%
  43. If len(Nom2) > 0 Then
  44.     strAutSQL = "SELECT * FROM Utilisateur WHERE usrlogin='" & Nom2 & "' "
  45.     set AutRes=ConnectionBD.Execute(strAutSQL)
  46.     
  47.     If AutRes.EOF=false Then
  48.  
  49. longeur1=Len(Nom2)
  50. longeur2=Len(Passe2)
  51.  
  52. J=1
  53. For I=1 To longeur2
  54.     char1=Mid(Nom2,J,1)
  55.     char2=Mid(Passe2,I,1)
  56.     char3=Mid(Passe2,I,1)
  57.     code1=Asc(char1)
  58.     code2=Asc(char2)
  59.     code2=code2+code1
  60.     If code2>255 Then
  61.         code2=code2-255
  62.     End If
  63.     char2=Chr(code2)
  64.     Passe2=Replace(Passe2,char3,char2,1,1)
  65.  
  66.     J=J+1
  67.     If J>longeur1 Then
  68.     J=1
  69.     End If
  70. Next
  71. 'Cryptage du mot de passe
  72.     
  73.     If AutRes("usrpass") = Passe2 Then 
  74.         strStatSQL = "SELECT * FROM Statut WHERE statid=" & AutRes("usrstatu") & " "
  75.         set StatRes=ConnectionBD.Execute(strStatSQL)
  76.         
  77.     If AutRes("usrstatu") = 1 or TopicRes("topicadm")=AutRes("usrid") Then
  78.     %>
  79. <p align="center"> 
  80. <p align="center"><font face="Arial" size="2">Merci, Votre identitΘ est
  81. confirmΘe : <% =AutRes("usrlogin") %> (<% =StatRes("statdesc") %>)</font>
  82. <%
  83. strPostSQL = "SELECT * FROM Post WHERE postid=" & Post2 & " "
  84. set PostRes=ConnectionBD.Execute(strPostSQL)
  85.  
  86. SQLStmt3 = "UPDATE Topic "
  87. SQLStmt3 = SQLStmt3 & "SET topicpost = ('" & TopicRes("topicpost") - 1 & "') "
  88. SQLStmt3 = SQLStmt3 & "WHERE topicid=" & Topic2 & " "
  89. Set RS3 = ConnectionBD.Execute(SQLStmt3)
  90.  
  91. SQLStmt1 = "DELETE FROM Postcn "
  92. SQLStmt1 = SQLStmt1 & "WHERE postcnid=" & Postcn2 & " "
  93. Set RS1 = ConnectionBD.Execute(SQLStmt1)
  94.  
  95. If PostRes("postans")=0 Then
  96.  
  97. SQLStmt = "DELETE FROM Post "
  98. SQLStmt = SQLStmt & "WHERE postid=" & Post2 & " "
  99. Set RS = ConnectionBD.Execute(SQLStmt)
  100.  
  101. Else
  102.  
  103. SQLStmt4 = "UPDATE Post "
  104. SQLStmt4 = SQLStmt4 & "SET postans = ('" & PostRes("postans") - 1 & "') "
  105. SQLStmt4 = SQLStmt4 & "WHERE postid=" & Post2 & " "
  106. Set RS4 = ConnectionBD.Execute(SQLStmt4)
  107.  
  108. End If
  109. %>
  110. <p align="center"><font face="Arial"><b>Message supprimΘ !
  111. </b></font>
  112. <p align="center"> 
  113. <p align="center"><font face="Arial"><b><a href="default.asp">Retour au forum</a>
  114. <% Else %>
  115. </b></font>
  116. <p align="center">
  117.  <font face="Arial" size="2"><b>
  118. Vous n'avez pas le droit de supprimer un message.
  119. <%
  120. temps=Now()
  121. While DateDiff("s",temps,Now())<3
  122. Wend
  123. %>
  124. <script language="javascript">
  125. history.back();
  126. </script>
  127. <% End If
  128. Else %>
  129. <p align="center">
  130.  <font face="Arial" size="2"><b>Ce n'est pas le bon mot de passe.
  131.  <%
  132. temps=Now()
  133. While DateDiff("s",temps,Now())<3
  134. Wend
  135. %>
  136. <script language="javascript">
  137. history.back();
  138. </script>
  139. <% End If
  140. Else %>
  141. <p align="center">
  142.  <font face="Arial" size="2"><b>
  143. Entrez un nom d'utilisateur valide.
  144. <%
  145. temps=Now()
  146. While DateDiff("s",temps,Now())<3
  147. Wend
  148. %>
  149. <script language="javascript">
  150. history.back();
  151. </script>
  152. <% End If
  153. Else %>
  154. <p align="center">
  155.  <font face="Arial" size="2"><b>
  156. Entrez un nom d'utilisateur valide.
  157. <%
  158. temps=Now()
  159. While DateDiff("s",temps,Now())<3
  160. Wend
  161. %>
  162. <script language="javascript">
  163. history.back();
  164. </script>
  165. <% End If %>
  166.  </b>
  167. </font>
  168. <!--#include file="basdepage.asp"-->
  169. <% Else %>
  170. <p>
  171. <font face="Arial" size="2"><b>
  172. <%
  173. If len(Nom2) > 0 Then
  174.     strAutSQL = "SELECT * FROM Utilisateur WHERE usrlogin='" & Nom2 & "' "
  175.     set AutRes=ConnectionBD.Execute(strAutSQL)
  176.     
  177.     If AutRes.EOF=false Then
  178.  
  179. longeur1=Len(Nom2)
  180. longeur2=Len(Passe2)
  181.  
  182. J=1
  183. For I=1 To longeur2
  184.     char1=Mid(Nom2,J,1)
  185.     char2=Mid(Passe2,I,1)
  186.     char3=Mid(Passe2,I,1)
  187.     code1=Asc(char1)
  188.     code2=Asc(char2)
  189.     code2=code2+code1
  190.     If code2>255 Then
  191.         code2=code2-255
  192.     End If
  193.     char2=Chr(code2)
  194.     Passe2=Replace(Passe2,char3,char2,1,1)
  195.  
  196.     J=J+1
  197.     If J>longeur1 Then
  198.     J=1
  199.     End If
  200. Next
  201. 'Cryptage du mot de passe
  202.     
  203.     If AutRes("usrpass") = Passe2 Then 
  204.     
  205.     If AutRes("usrid") = ContRes("postcnau") or TopicRes("topicadm")=AutRes("usrid") or AutRes("usrstatu") = 1 Then
  206.      
  207.     If AutRes("usrfin") = false Then
  208.     If Message2<>"" Then %>
  209. Merci, votre message α ΘtΘ modifiΘ !
  210. </b></font>
  211. <p><font face="Arial" size="2"><b>
  212. <%
  213.     If EnvironnementRes("envhtml")=false Then
  214.         Message2=Replace(Message2, "<", "<")
  215.         Message2=Replace(Message2, ">", ">")
  216.     End If
  217.     'Si le code HTML est interdi, transformation des < et > par leur Θquivalents HTML pour bloquer le code.
  218.     
  219.     If Signature2 = "ON" Then
  220.         Message2 = Message2 & "<BR><BR>" & AutRes("usrsign")
  221.     End If
  222.     
  223.     Message2=Replace(Message2, "<a href=", "<a href=")
  224.     Message2=Replace(Message2, "_blank"">", "_blank"">")
  225.     Message2=Replace(Message2, "</a>", "</a>")
  226.     Message2=Replace(Message2, "<IMG SRC=", "<IMG SRC=")
  227.     Message2=Replace(Message2, ".gif>", ".gif>")
  228.     Message2=Replace(Message2, ".jpg>", ".jpg>")
  229.     
  230.     Message2=Replace(Message2, vbcrlf, "<BR>")
  231.     'Transformation des retours charriot en <BR>
  232.     
  233.     If EnvironnementRes("envabb")=true Then
  234.         %>
  235.         <!--#include file="abbcode.asp"-->
  236.         <%    End If
  237.     'Si le code ABB est autorisΘ, effecuter les transformations adΘquates.
  238.     
  239.     Message2 = Message2 & "<BR><BR>" & "[Message ΘditΘ le : " & Day(now) & "/" & Month(now) & "/" & Year(now) & " par " & AutRes("usrlogin") & "]"
  240.     
  241.     Aut2=AutRes("usrid")
  242.  
  243.     SQLStmt2 = "UPDATE Postcn "
  244.     SQLStmt2 = SQLStmt2 & "SET postcncn = ('" & Message2 & "') "
  245.     SQLStmt2 = SQLStmt2 & "WHERE postcnid=" & Postcn2 &" "
  246.     Set RS2=ConnectionBD.Execute(SQLStmt2)
  247.     
  248.     strpopoSQL = "SELECT * FROM Post WHERE postid=" & Post2 & " "
  249.     set PopoRes=ConnectionBD.Execute(strpopoSQL)
  250. %>
  251. Vous allez automatiquement Ωtre ramenΘ sur le message "<% =PopoRes("posttitle") %>",
  252. </b></font>
  253. </p>
  254. <p><font face="Arial" size="2"><b>
  255. sinon, cliquez ici : <a href="post.asp?postid=<% =Post2 %>&topicid=<% =Topic2 %>">Retour au message "<% =PopoRes("posttitle") %>"</a>
  256. <%
  257. temps=Now()
  258. While DateDiff("s",temps,Now())<3
  259. Wend
  260. %>
  261. <script language="javascript">
  262. document.location="post.asp?postid=<% =Post2 %>&topicid=<% =Topic2 %>";
  263. </script>
  264. <% Else %>
  265. Entrez le corps du message...
  266. <%
  267. temps=Now()
  268. While DateDiff("s",temps,Now())<3
  269. Wend
  270. %>
  271. <script language="javascript">
  272. history.back();
  273. </script>
  274. <% End If
  275. Else %>
  276. Vous n'avez pas le droit de modifier des messages...
  277. <%
  278. temps=Now()
  279. While DateDiff("s",temps,Now())<3
  280. Wend
  281. %>
  282. <script language="javascript">
  283. history.back();
  284. </script>
  285. <% End If
  286. Else %>
  287. Vous n'Ωtes pas l'auteur du message, vous n'avez pas le droit de l'Θditer...
  288. <%
  289. temps=Now()
  290. While DateDiff("s",temps,Now())<3
  291. Wend
  292. %>
  293. <script language="javascript">
  294. history.back();
  295. </script>
  296. <% End If
  297. Else %>
  298. Ce n'est pas le bon mot de passe...
  299. <%
  300. temps=Now()
  301. While DateDiff("s",temps,Now())<3
  302. Wend
  303. %>
  304. <script language="javascript">
  305. history.back();
  306. </script>
  307. <% End If
  308. Else %>
  309. Entrez un nom d'utilisateur valide.
  310. <br>
  311. <br>
  312. <center><a href="suscribe.asp">Si vous n'Ωtes pas encore inscrit, cliquez ici.</a></center>
  313. <%
  314. temps=Now()
  315. While DateDiff("s",temps,Now())<10
  316. Wend
  317. %>
  318. <script language="javascript">
  319. history.back();
  320. </script>
  321. <% End If
  322. Else %>
  323. Entrez un nom d'utilisateur valide.
  324. <br>
  325. <br>
  326. <center><a href="suscribe.asp">Si vous n'Ωtes pas encore inscrit, cliquez ici.</a></center>
  327. <%
  328. temps=Now()
  329. While DateDiff("s",temps,Now())<10
  330. Wend
  331. %>
  332. <script language="javascript">
  333. history.back();
  334. </script>
  335. <% End If %>
  336. </b></font>
  337. </p>
  338. <% End If %>
  339. <!--#include file="basdepage.asp"-->
  340. </body>
  341.  
  342. </html>
  343.