home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / dodeplacerpost.asp < prev    next >
Text File  |  2000-03-02  |  4KB  |  156 lines

  1. <% @ LANGUAGE="VBScript" lcid="1036" %>
  2. <!--#include file="include.asp"-->
  3. <%
  4.     postid2 = Request.QueryString("postid")
  5.     topicid2 = Request.QueryString("topicid")
  6.     Nom2=Replace(request.form("Nom"), "'", "''")
  7.     Passe2=Replace(request.form("Passe"), "'", "''")
  8.     theme2=request.form("theme")
  9. %>
  10. <html>
  11.  
  12. <head>
  13. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  14. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  15. <meta name="ProgId" content="FrontPage.Editor.Document">
  16. <title>ABB</title>
  17. <style type="text/css">
  18. <!--
  19. A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  20. A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  21. A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  22. A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  23. -->
  24. </style>
  25. </head>
  26.  
  27. <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
  28. <p align="center"><font face="Arial">
  29. <a href="default.asp"><img border="0" src="<% =EnvironnementRes("envlogo") %>" alt="Retour α la page principale"></a>
  30. <b>DΘplacer le Sujet</b></font> <%
  31. If len(Nom2) > 0 Then
  32.     strAutSQL = "SELECT * FROM Utilisateur WHERE usrlogin='" & Nom2 & "' "
  33.     set AutRes=ConnectionBD.Execute(strAutSQL)
  34.     
  35.     If AutRes.EOF=false Then
  36.     
  37. longeur1=Len(Nom2)
  38. longeur2=Len(Passe2)
  39.  
  40. J=1
  41. For I=1 To longeur2
  42.     char1=Mid(Nom2,J,1)
  43.     char2=Mid(Passe2,I,1)
  44.     char3=Mid(Passe2,I,1)
  45.     code1=Asc(char1)
  46.     code2=Asc(char2)
  47.     code2=code2+code1
  48.     If code2>255 Then
  49.         code2=code2-255
  50.     End If
  51.     char2=Chr(code2)
  52.     Passe2=Replace(Passe2,char3,char2,1,1)
  53.  
  54.     J=J+1
  55.     If J>longeur1 Then
  56.     J=1
  57.     End If
  58. Next
  59. 'Cryptage du mot de passe
  60.  
  61.     If AutRes("usrpass") = Passe2 Then 
  62.         strStatSQL = "SELECT * FROM Statut WHERE statid=" & AutRes("usrstatu") & " "
  63.         set StatRes=ConnectionBD.Execute(strStatSQL)
  64.         
  65.         strTopicSQL = "SELECT * FROM Topic WHERE topicid=" & topicid2 & " "
  66.         set TopicRes=ConnectionBD.Execute(strTopicSQL)
  67.     
  68.     If AutRes("usrstatu") = 1 or TopicRes("topicadm")=AutRes("usrid") Then
  69.     %>
  70. <p align="center"> 
  71. <p align="center"><font face="Arial" size="2">Merci, Votre identitΘ est
  72. confirmΘe : <% =AutRes("usrlogin") %> (<% =StatRes("statdesc") %>)</font>
  73. <%
  74. SQLStmt = "UPDATE Post "
  75. SQLStmt = SQLStmt & "SET posttopic=" & theme2 & " "
  76. SQLStmt = SQLStmt & "WHERE postid=" & postid2 & " "
  77. Set RS = ConnectionBD.Execute(SQLStmt)
  78.  
  79. strPostSQL = "SELECT postans FROM Post WHERE postid=" & postid2 & " "
  80. set PostRes=ConnectionBD.Execute(strPostSQL)
  81.  
  82. SQLStmt2 = "UPDATE Topic "
  83. SQLStmt2 = SQLStmt2 & "SET topicpost=" & TopicRes("topicpost")-(PostRes("postans")+1) & " "
  84. SQLStmt2 = SQLStmt2 & "WHERE topicid=" & topicid2 & " "
  85. Set RS2 = ConnectionBD.Execute(SQLStmt2)
  86.  
  87. strTopicSQL = "SELECT * FROM Topic WHERE topicid=" & theme2 & " "
  88. set TopicRes=ConnectionBD.Execute(strTopicSQL)
  89.  
  90. SQLStmt2 = "UPDATE Topic "
  91. SQLStmt2 = SQLStmt2 & "SET topicpost=" & TopicRes("topicpost")+(PostRes("postans")+1) & " "
  92. SQLStmt2 = SQLStmt2 & "WHERE topicid=" & theme2 & " "
  93. Set RS2 = ConnectionBD.Execute(SQLStmt2)
  94. %>
  95. <p align="center"><font face="Arial"><b>Sujet dΘplacΘ !
  96. </b></font>
  97. <p align="center"> 
  98. <p align="center"><font face="Arial"><b><a href="default.asp">Retour
  99. au forum</a>
  100. <% Else %>
  101. </b></font>
  102. <p align="center">
  103.  <font face="Arial" size="2"><b>
  104. Vous n'avez pas le droit de dΘplacer un sujet.
  105. <%
  106. temps=Now()
  107. While DateDiff("s",temps,Now())<3
  108. Wend
  109. %>
  110. <script language="javascript">
  111. history.back();
  112. </script>
  113. <% End If
  114. Else %>
  115. <p align="center">
  116.  <font face="Arial" size="2"><b>Ce n'est pas le bon mot de passe.
  117.  <%
  118. temps=Now()
  119. While DateDiff("s",temps,Now())<3
  120. Wend
  121. %>
  122. <script language="javascript">
  123. history.back();
  124. </script>
  125. <% End If
  126. Else %>
  127. <p align="center">
  128.  <font face="Arial" size="2"><b>
  129. Entrez un nom d'utilisateur valide.
  130. <%
  131. temps=Now()
  132. While DateDiff("s",temps,Now())<3
  133. Wend
  134. %>
  135. <script language="javascript">
  136. history.back();
  137. </script>
  138. <% End If
  139. Else %>
  140. <p align="center">
  141.  <font face="Arial" size="2"><b>
  142. Entrez un nom d'utilisateur valide.
  143. <%
  144. temps=Now()
  145. While DateDiff("s",temps,Now())<3
  146. Wend
  147. %>
  148. <script language="javascript">
  149. history.back();
  150. </script>
  151. <% End If %>
  152.  </b>
  153. </font>
  154. <!--#include file="basdepage.asp"-->
  155. </body>
  156. </html>