home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / doadmusrs.asp < prev    next >
Encoding:
Text File  |  2000-03-02  |  2.4 KB  |  82 lines
  1. <% @ LANGUAGE="VBScript" lcid="1036" %>
  2. <!--#include file="include.asp"-->
  3. <%
  4.     Nom2=Replace(request.QueryString("Nom"), "'", "''")
  5.     Passe2=Replace(request.QueryString("Passe"), "'", "''")
  6.  
  7.     Statut2=Replace(request.form("Statut"), "'", "''")
  8.     Ban2=Replace(request.form("Ban"), "'", "''")
  9.     User2=Replace(request.form("User"), "'", "''")
  10.  
  11.     If Ban2 = "ON" Then
  12.         SQLStmt = "UPDATE Utilisateur "
  13.         SQLStmt = SQLStmt & "SET usrstatu = (" & Statut2 & "), usrfin = (true) "
  14.         SQLStmt = SQLStmt & "WHERE usrid=" & User2 & " "
  15.         Set RS = ConnectionBD.Execute(SQLStmt)
  16.     Else
  17.         SQLStmt2 = "UPDATE Utilisateur "
  18.         SQLStmt2 = SQLStmt2 & "SET usrstatu = (" & Statut2 & "), usrfin = (false) "
  19.         SQLStmt2 = SQLStmt2 & "WHERE usrid=" & User2 & " "
  20.         Set RS2 = ConnectionBD.Execute(SQLStmt2)
  21.     End If
  22. %>
  23. <html>
  24.  
  25. <head>
  26. <meta http-equiv="Content-Language" content="fr">
  27. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  28. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  29. <meta name="ProgId" content="FrontPage.Editor.Document">
  30. <title>ABB</title>
  31. <style type="text/css">
  32. <!--
  33. A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  34. A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  35. A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  36. A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  37. -->
  38. </style>
  39. </head>
  40.  
  41. <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
  42.  
  43. <p align="center"><b><font face="Arial">Modification effectuΘe</font></b>
  44. </p>
  45.  
  46. <p align="center"> 
  47. </p>
  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<0 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.     'DΘ-Cryptage du mot de passe
  72. %>
  73. <p align="center"><font face="Arial" size="2"><b><a href="doadmincheck.asp?Nom=<% =Nom2 %>&Passe=<% =Passe2 %>">Retour au menu d'administration</a>
  74. </b></font></p>
  75.  
  76. <p align="center"> 
  77. <!--#include file="basdepage.asp"-->
  78. </p>
  79. </body>
  80.  
  81. </html>
  82.