home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / ServerAdmin_test.asp < prev    next >
Text File  |  1997-10-25  |  1KB  |  48 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <%  Option Explicit     %>
  3.  
  4. <HTML>
  5. <HEAD>
  6. <META NAME="GENERATOR" Content="Microsoft Developer Studio">
  7. <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  8. <TITLE>Java Component Samples: ServerAdmin</TITLE>
  9. </HEAD>
  10. <BODY>
  11.  
  12. <%
  13.  
  14.     Dim Obj
  15.  
  16.     Set Obj = Server.CreateObject("IISSample.ServerAdmin")
  17.  
  18.     If Request("action") = "" Then
  19. %>
  20.  
  21.  
  22. Control your default FTP site using Java, J/Direct, and ADSI.<P>
  23.  
  24. Currently the default FTP server status is: <%= Obj.getStatus %><P>
  25.  
  26. Click <A HREF="ServerAdmin_test.asp?action=start">here</A> to start the default FTP server<BR>
  27. Click <A HREF="ServerAdmin_test.asp?action=stop">here</A> to stop the default FTP server<BR>
  28.  
  29. <%
  30.     End If
  31.  
  32.     If Request("action") = "start" Then
  33.         Response.Write("Starting the ftp service.<P>")
  34.         Obj.startFtp()
  35.         Response.Write("<A HREF=ServerAdmin_test.asp>Back to FTP control page</A>")
  36.     End If
  37.  
  38.     If Request("action") = "stop" Then
  39.         Response.Write("Stopping the ftp service.<P>")
  40.         Obj.stopFtp()
  41.         Response.Write("<A HREF=ServerAdmin_test.asp>Back to FTP control page</A>")
  42.     End If
  43.  
  44. %>
  45.  
  46. </BODY>
  47. </HTML>
  48.