home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / doadmstat.asp < prev    next >
Text File  |  2000-03-02  |  3KB  |  118 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.         Statut2=Replace(request.form("Statut"), "'", "''")
  32.         Nb2=Replace(request.form("Nb"), "'", "''")
  33.         Suppr2=Replace(request.form("Suppr"), "'", "''")
  34.         Statid2=Replace(request.form("Statid"), "'", "''")
  35.         
  36.         If Suppr2 <> "ON" Then
  37.             SQLStmt = "UPDATE Statut "
  38.             SQLStmt = SQLStmt & "SET statdesc = ('" & Statut2 & "'), statnbpost = (" & Nb2 & ") "
  39.             SQLStmt = SQLStmt & "WHERE statid=" & Statid2 & " "
  40.             Set RS = ConnectionBD.Execute(SQLStmt)
  41.             %>
  42.  Modification effectuΘe
  43.             <%
  44.         Else
  45.             SQLStmt = "UPDATE Statut "
  46.             SQLStmt = SQLStmt & "SET statnbpost = (0) "
  47.             SQLStmt = SQLStmt & "WHERE statid=" & Statid2 & " "
  48.             Set RS = ConnectionBD.Execute(SQLStmt)
  49.             %>
  50.  Statut supprimΘ
  51.             <%            
  52.         End If
  53.     Else
  54.         Statut2=Replace(request.form("Statut"), "'", "''")
  55.         Nb2=Replace(request.form("Nb"), "'", "''")
  56.         
  57.         If Statut2<>"" and Nb2<>"" Then
  58.         
  59.         SQLStmt18 = "INSERT INTO Statut (statdesc,statnbpost) "
  60.         SQLStmt18 = SQLStmt18 & "VALUES ('" & Statut2 & "'," & Nb2 & ")"
  61.         Set RS18=ConnectionBD.Execute(SQLStmt18)
  62.         %>
  63.  Statut ajoutΘ
  64.  <% Else %>
  65.         Vous n'avez pas remplis tous les champs...
  66. <%
  67. temps=Now()
  68. While DateDiff("s",temps,Now())<3
  69. Wend
  70. %>
  71. <script language="javascript">
  72. history.back();
  73. </script>
  74.         <% End If
  75.         End If %>
  76. </b></font>
  77. <p align="center">
  78.  
  79. </p>
  80. <%
  81.     longeur1=Len(Nom3)
  82.     longeur2=Len(Passe2)
  83.  
  84.     J=1
  85.     For I=1 To longeur2
  86.         char1=Mid(Nom3,J,1)
  87.         char2=Mid(Passe2,I,1)
  88.         char3=Mid(Passe2,I,1)
  89.         code1=Asc(char1)
  90.         code2=Asc(char2)
  91.         code2=code2-code1
  92.         If code2<0 Then
  93.             code2=code2+255
  94.         End If
  95.         char2=Chr(code2)
  96.         Passe2=Replace(Passe2,char3,char2,1,1)
  97.  
  98.         J=J+1
  99.         If J>longeur1 Then
  100.             J=1
  101.         End If
  102.     Next
  103.     'DΘ-Cryptage du mot de passe
  104. %>
  105. <p align="center"><font face="Arial" size="2"><b><a href="doadmincheck.asp?Nom=<% =Nom3 %>&Passe=<% =Passe2 %>">Retour au menu d'administration</a>
  106. </b></font></p>
  107. <p align="center">
  108. <font face="Arial"><b>
  109. <script language="javascript">
  110. parent.abbdown.location="default.asp";
  111. </script>
  112. <!--#include file="basdepage.asp"-->
  113. </b></font>
  114. </p>
  115. </body>
  116.  
  117. </html>
  118.