49 lines
1.2 KiB
Plaintext
49 lines
1.2 KiB
Plaintext
<%@ 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>
|
|
|
|
|
|
|