SERVERADMIN_TEST.ASP

<%@ LANGUAGE = VBScript %> 
<% Option Explicit %>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Developer Studio">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Java Component Samples: ServerAdmin</TITLE>
</HEAD>
<BODY>

<%

Dim Obj

Set Obj = Server.CreateObject("IISSample.ServerAdmin")

If Request("action") = "" Then
%>


Control your default FTP site using Java, J/Direct, and ADSI.<P>

Currently the default FTP server status is: <%= Obj.getStatus %><P>

Click <A HREF="ServerAdmin_test.asp?action=start">here</A> to start the default FTP server<BR>
Click <A HREF="ServerAdmin_test.asp?action=stop">here</A> to stop the default FTP server<BR>

<%
End If

If Request("action") = "start" Then
Response.Write("Starting the ftp service.<P>")
Obj.startFtp()
Response.Write("<A HREF=ServerAdmin_test.asp>Back to FTP control page</A>")
End If

If Request("action") = "stop" Then
Response.Write("Stopping the ftp service.<P>")
Obj.stopFtp()
Response.Write("<A HREF=ServerAdmin_test.asp>Back to FTP control page</A>")
End If

%>

</BODY>
</HTML>