home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / doadmtopics.asp < prev    next >
Encoding:
Text File  |  2000-03-02  |  3.8 KB  |  134 lines
  1. <% @ LANGUAGE="VBScript" lcid="1036" %>
  2. <!--#include file="include.asp"-->
  3. <%
  4.     Nom3=Replace(request.QueryString("Noma"), "'", "''")
  5.     Passe2=Replace(request.QueryString("Passe"), "'", "''")
  6.  
  7.     quoi2=Replace(request.form("quoi"), "'", "''")
  8. %>
  9. <html>
  10.  
  11. <head>
  12. <meta http-equiv="Content-Language" content="fr">
  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"><b>
  29. <%
  30.     If quoi2 = "modif" Then
  31.         Titre2=Replace(request.form("Titre"), "'", "''")
  32.         Desc2=Replace(request.form("Desc"), "'", "''")
  33.         Suppr2=Replace(request.form("Suppr"), "'", "''")
  34.         Topic2=Replace(request.form("Topic"), "'", "''")
  35.         Admin2=Replace(request.form("Admin"), "'", "''")
  36.         
  37.         If Suppr2 <> "ON" Then
  38.             SQLStmt = "UPDATE Topic "
  39.             SQLStmt = SQLStmt & "SET topicdesc = ('" & Titre2 & "'), topicinfo = ('" & Desc2 & "'), topicadm = (" & Admin2 & ") "
  40.             SQLStmt = SQLStmt & "WHERE topicid=" & Topic2 & " "
  41.             Set RS = ConnectionBD.Execute(SQLStmt)
  42.             %>
  43.             Modification effectuΘe
  44.             <%
  45.         Else
  46.             strPostSQL = "SELECT * FROM Post WHERE posttopic=" & Topic2 & " "
  47.             set PostRes=ConnectionBD.Execute(strPostSQL)
  48.             
  49.             Do Until PostRes.EOF = True
  50.                 SQLStmt1 = "DELETE FROM Postcn "
  51.                 SQLStmt1 = SQLStmt1 & "WHERE postcnpo=" & PostRes("postid") & " "
  52.                 Set RS1 = ConnectionBD.Execute(SQLStmt1)
  53.             PostRes.MoveNext
  54.             Loop
  55.             
  56.             SQLStmt2 = "DELETE FROM Post "
  57.             SQLStmt2 = SQLStmt2 & "WHERE posttopic=" & Topic2 & " "
  58.             Set RS2 = ConnectionBD.Execute(SQLStmt2)
  59.             
  60.             SQLStmt3 = "DELETE FROM Topic "
  61.             SQLStmt3 = SQLStmt3 & "WHERE topicid=" & Topic2 & " "
  62.             Set RS3 = ConnectionBD.Execute(SQLStmt3)
  63.             %>
  64.             Sujet supprimΘ
  65.             <%            
  66.         End If
  67.     Else
  68.         Nom2=Replace(request.form("Nom"), "'", "''")
  69.         Desc2=Replace(request.form("Desc"), "'", "''")
  70.         Admin2=Replace(request.form("Admin"), "'", "''")
  71.         
  72.         If Nom2<>"" Then
  73.         
  74.         SQLStmt18 = "INSERT INTO Topic (topicdesc,topicadm,topicinfo) "
  75.         SQLStmt18 = SQLStmt18 & "VALUES ('" & Nom2 & "'," & Admin2 & ",'" & Desc2 & "')"
  76.         Set RS18=ConnectionBD.Execute(SQLStmt18)
  77.         %>
  78.         Sujet ajoutΘ
  79.         <% Else %>
  80.         Vous devez mettre un nom de thΦme...
  81. <%
  82. temps=Now()
  83. While DateDiff("s",temps,Now())<3
  84. Wend
  85. %>
  86. <script language="javascript">
  87. history.back();
  88. </script>
  89.         <% End If
  90.     End If
  91. %>
  92. </b></font>
  93. <p align="center">
  94.  
  95. </p>
  96. <%
  97.     longeur1=Len(Nom3)
  98.     longeur2=Len(Passe2)
  99.  
  100.     J=1
  101.     For I=1 To longeur2
  102.         char1=Mid(Nom3,J,1)
  103.         char2=Mid(Passe2,I,1)
  104.         char3=Mid(Passe2,I,1)
  105.         code1=Asc(char1)
  106.         code2=Asc(char2)
  107.         code2=code2-code1
  108.         If code2<0 Then
  109.             code2=code2+255
  110.         End If
  111.         char2=Chr(code2)
  112.         Passe2=Replace(Passe2,char3,char2,1,1)
  113.  
  114.         J=J+1
  115.         If J>longeur1 Then
  116.             J=1
  117.         End If
  118.     Next
  119.     'DΘ-Cryptage du mot de passe
  120. %>
  121. <p align="center"><font face="Arial" size="2"><b><a href="doadmincheck.asp?Nom=<% =Nom3 %>&Passe=<% =Passe2 %>">Retour au menu d'administration</a>
  122. </b></font></p>
  123. <p align="center">
  124. <font face="Arial"><b>
  125. <script language="javascript">
  126. parent.abbdown.location="default.asp";
  127. </script>
  128. <!--#include file="basdepage.asp"-->
  129. </b></font>
  130. </p>
  131. </body>
  132.  
  133. </html>
  134.