I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Slettet bruger
06. april 2002 - 18:46#1
Det er der slet ikke - da det bare checker om der er tomt i feltet. Det ville også være lidt lamt hvis man kunne se det i kilden ikke?
If Mode = "activate" Then If Request("password") = AdminPassword Then Response.Redirect "admin.asp?mode=activated&password=" & Request("password") Else Response.Redirect "admin.asp?mode=admin_login" End If End If
If Mode = "activated" Then If Request("password") = AdminPassword Then If Request("action") = "" Then %> <html>
</html> <% Else For x = MaxPublicMessages To 2 Step -1 Application("publicmessage_" & x) = Application("publicmessage_" & x-1) Next Application("publicmessage_1") = "<b><font color='" & SystemColor & "'>Chatten : Admin har smidt " & Application("chatuser_" & Request("userid")) & " af chatten...</font></b>" Application("chatusers") = Application("chatusers") - 1 Application("chatuser_" & Request("userid")) = "" Response.Redirect "admin.asp?mode=activated&password=" & Request("password") & "&action=removeuser" End If End If End If If Request("action") = "removeallusers" Then If Request("confirm") = "" Then %> <html>
<table border="0" width="100%" cellspacing="0" cellpadding="5"> <tr> <td valign="top" align="left"><b><u>Slet alle brugere</u></b></td> </tr> <% If Application("chatusers") = 1 Then %> <tr> <td valign="top" align="left"><a href="admin.asp?mode=activated&password=<%= Request("password") %>">Tilbage</a></td> </tr> <% Else %> <tr> <td valign="top" align="left"><a href="admin.asp?mode=activated&password=<%= Request("password") %>">Annuller</a></td> </tr> <% End If %> <tr> <td valign="top" align="left"> <table border="0" width="100%" cellspacing="0" cellpadding="5"> <% If Application("chatusers") = 1 Then %> <tr> <td valign="top" align="left">Der er ingen aktive brugere i chatten.</td> </tr> <% Else %> <tr> <td valign="top" align="left">Slet alle brugere fra den aktive brugerliste?</td> </tr> <tr> <td valign="top" align="left"><a href="admin.asp?mode=activated&password=<%= Request("password") %>&action=removeallusers&confirm=yes">Ja</a> / <a href="admin.asp?mode=activated&password=<%= Request("password") %>">Nej</a></td> </tr> <% End If %> </table> </td> </tr> </table>
</body>
</html> <% Else For x = MaxPublicMessages To 2 Step -1 Application("publicmessage_" & x) = Application("publicmessage_" & x-1) Next Application("publicmessage_1") = "<b><font color='" & SystemColor & "'>Chatten : Admin har smidt alle brugere af chatten...</font></b>" For x = 1 To Application("chatusers") If Application("chatuser_" & x) <> Session("chatname") Then Application("chatusers") = Application("chatusers") - 1 Application("chatuser_" & x) = "" End If Next Response.Redirect "admin.asp?mode=activated&password=" & Request("password") End If End If If Request("action") = "resetmessages" Then If Request("confirm") = "" Then %> <html>
</html> <% Else For x = 1 to MaxPublicMessages Application("publicmessage_" & x) = "" Next Application("publicmessage_1") = "<b><font color='" & SystemColor & "'>Chatten : Admin har nulstillet chatten...</font></b>" Response.Redirect "admin.asp?mode=activated&password=" & Request("password") End If End If Else Response.Redirect "admin.asp?mode=admin_login" End If End If %>
----- Slut fra Nordisk
Synes godt om
Slettet bruger
06. april 2002 - 18:50#6
Password = AdminPassword som er en variabel som måske er i din .inc fil?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.