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