home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ims.cab / smtree.asp < prev    next >
Text File  |  1997-10-15  |  8KB  |  306 lines
  1. <%
  2. '----------------------------------------------------------------------------
  3. '
  4. '
  5. '   File: smtree.asp
  6. '
  7. '   Description: First menu page
  8. '
  9. '   Copyright (C) 1997 Microsoft Corporation
  10. '
  11. '------------------------------------------------------------------------------
  12. %>
  13.  
  14.  
  15. <% REM LOCALIZATION TEXT
  16.  
  17. L_NOTIMPLEMENTED_ERRORMESSAGE = "This feature is not yet implemented."
  18. L_WORKINGSERVER_TEXT = "You cannot change the status of the web server you are currently connected to."
  19. L_CONNECT_TEXT = "Connect..."
  20. L_NEWDOTDOTDOT_TEXT = "New..."
  21. L_DELETE_TEXT = "Delete"
  22. L_PROPS_TEXT = "Properties"
  23. L_BROWSE_TEXT = "Browse"
  24. L_SERVICE_NOT_STARTED_ERRORMESSAGE = "The SMTP Service is not running, you cannot view/edit the properties unless the Service is Started."
  25. L_START_TEXT ="Start"
  26. L_STOP_TEXT = "Stop"
  27. L_PAUSE_TEXT = "Pause"
  28. L_RESUME_TEXT = "Resume"
  29.  
  30. L_REFRESH_TEXT = "Refresh"
  31. L_RELEASE_TEXT = "Release"
  32.  
  33. L_ENTERNAME_TEXT = "Enter the name of the new SMTP Site"
  34. L_NEW_TEXT = "New"
  35. L_WEBSITE_TEXT = "Web Site"
  36. L_VDIR_TEXT = "Virtual Directory"
  37. L_DIR_TEXT = "Directory"
  38.  
  39. L_SERVICE_ALREADY_STARTED_TEXT = "The service is already started."
  40. L_SERVICEALREADY_TEXT = "The service is already "
  41.  
  42. REM END LOCALIZATION
  43. %>
  44.  
  45. <% REM Get pointer to admin object to create new instance %>
  46. <% On Error Resume Next
  47.    set smtpadmin = Server.CreateObject("SmtpAdm.Admin.1")
  48.    if (Err <> 0) then %>
  49.         <script language="javascript">
  50.             alert("<% = Err.description %>");
  51.         </script>
  52. <% end if %>    
  53.   
  54. <% On Error Resume Next
  55.    smtpadmin.Server = Session("svr")
  56.    if (Err <> 0) then %>
  57.         <script language="javascript">
  58.             alert("<% = Err.description %>");
  59.         </script>
  60. <% end if %>    
  61.  
  62. <% On Error Resume Next
  63.    smtpadmin.ServiceInstance = Session("ServiceInstance")
  64.    if (Err <> 0) then %>
  65.           <script language="javascript">
  66.             alert("<% = Err.description %>");
  67.         </script>
  68. <% end if %>    
  69.   
  70. <% action       = Request("action") %>
  71.  
  72.  
  73.  
  74. <% if (action = "add") then %>
  75.  
  76.     <% REM unescape \ and : characters from file path %>
  77.     <% newDirectory = Cstr(Request("newDirectory")) %>
  78.     <% newDirectory = Replace(newDirectory,"%5C","\") %>
  79.     <% newDirectory = Replace(newDirectory,"%3A",":") %>
  80.  
  81.     <% REM RetVal is the new instance id %>
  82.  
  83.     <% On Error Resume Next %>
  84.     <% newInstanceId = smtpadmin.CreateInstance(newDirectory) %>
  85.     <% if (Err <> 0) then %>
  86.         <script language="javascript">
  87.             alert("<% = Err.description %>");
  88.         </script>
  89.     <% else %>
  90.         <% REM reload the header file to refresh the tree %>
  91.         <script language="javascript">
  92.             top.head.location = "smadvhd.asp";
  93.         </script>
  94.     <% end if %>
  95.  
  96. <% end if %>
  97.  
  98. <HTML>
  99. <HEAD>
  100.  
  101. <SCRIPT LANGUAGE="javascript">
  102.  
  103. var START = 2
  104. var STOP = 4
  105. var PAUSE = 3
  106. var CONT = 0
  107.  
  108. function connect()
  109. {
  110.     var theList = top.head.cList;
  111.     theList[0].connect();
  112. }
  113.  
  114. function add()
  115. {
  116.     theList = top.head.cList;
  117.     gVars = top.head.Global;
  118.     sel = gVars.selId;
  119.     popBox("<% = L_NEW_SMTP_SITE_TEXT %>",340,245,"smvsed");
  120. }
  121.  
  122. function edit()
  123. {
  124.     var theList = top.head.cList;
  125.     var gVars = top.head.Global;
  126.     var sel = gVars.selId;
  127.  
  128.     theList[0].openLocation();
  129.  
  130. }
  131.  
  132. function deleteItem()
  133. {
  134.     theList = top.head.cList;
  135.     gVars = top.head.Global;
  136.     sel = gVars.selId;
  137.  
  138.     thispath = escape(theList[sel].path);
  139.     path = "action=delete&path="+thispath+"&VSvrToDelete="+theList[sel].vtype;
  140. //    theList[0].deleteItem();
  141.     top.connect.location = "smbld.asp?"+path;
  142. }
  143.  
  144.  
  145. function openItem()
  146. {
  147.     alert("<%=L_NOTIMPLEMENTED_ERRORMESSAGE%>");
  148. }
  149.  
  150. function browse()
  151. {
  152.     var theList = top.head.cList;
  153.     theList[0].browseItem();
  154. }
  155.  
  156. function setState(x)
  157. {
  158.     var theList = top.head.cList;
  159.     var gVars = top.head.Global;
  160.     var sel = gVars.selId;
  161.     if ( theList[sel].state != x )
  162.     {
  163.         if ( x == "0" && theList[sel].state == "2" )
  164.         {
  165.             alert("<%= L_SERVICE_ALREADY_STARTED_TEXT %>");
  166.         }
  167.         else if ((theList[sel].state == STOP) && (x == PAUSE))
  168.         {
  169.             alert("<%= L_SERVICEALREADY_TEXT %>"+gVars.state[STOP]+".");
  170.         }
  171.         else
  172.         {
  173.             thispath = escape(theList[sel].path);
  174.             path = "action=setState&newState="+x+"&path="+thispath+"&VServer="+theList[sel].vtype;
  175.             top.connect.location = "smbld.asp?"+path
  176.         }
  177.     }
  178.     else
  179.     {
  180.         alert("<%= L_SERVICEALREADY_TEXT %>"+gVars.state[x]+".");
  181.     }
  182. }
  183.  
  184. function showState()
  185. {
  186.     var gVars = top.head.Global;
  187.     gVars.showState = !gVars.showState;
  188.     parent.list.location = parent.list.location;
  189. }
  190.  
  191. function refresh()
  192. {
  193.     top.head.location = top.head.location;
  194. }
  195.  
  196. //function release()
  197. //{
  198. //    var theList = top.head.cList;
  199. //    var gVars = top.head.Global;
  200. //    var sel = gVars.selId;
  201. //    theList[sel].isCached = false;
  202. //    theList[sel].open = false;
  203. //    parent.list.location = parent.list.location;
  204. //}
  205.  
  206. function popBox(title, width, height, filename)
  207. {
  208.     thefile = "smvsed.asp";
  209.     <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
  210.     <% else %>
  211.         width = width +25;
  212.         height = height + 50;
  213.     <% end if %>
  214.  
  215.     popbox = window.open( thefile, title, "directories=no,status=no,scrollbars=auto,resize=no,menubar=no,width="+width+",height="+height );
  216.     if( popbox != null )
  217.     {
  218.         if ( popbox.opener == null )
  219.         {
  220.             popbox.opener = self;
  221.         }
  222.     }
  223. }
  224.     
  225. </SCRIPT>
  226.  
  227. </HEAD>
  228. <BODY BACKGROUND="images/iisnav.gif" BGCOLOR="#000000" LINK="#FFFFFF" VLINK="#FFFFFF" TOPMARGIN=0 LEFTMARGIN=0>
  229. <FORM NAME="hiddenform">
  230. <input type="hidden" name="newRoot" value="<% = newRoot %>">
  231. <input type="hidden" name="newDirectory" value="<% = newDirectory %>">
  232. </form>
  233. <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
  234. <BR>
  235. <% end if %>
  236. <IMG SRC="images/ism.gif" WIDTH=160 HEIGHT=76 BORDER=0 ALT="">
  237. <TABLE BORDER=0 CELLPADDING=4 CELLSPACING=0>
  238.     <TR>
  239.         <TD WIDTH =50 VALIGN=top ALIGN=right>
  240.             <A HREF="javascript:connect();"><IMG HEIGHT=16 WIDTH=16 HSPACE=2 ALIGN="top" SRC="images/new.gif" BORDER=0 ALT="<%=L_NEW_TEXT%>"></A>
  241.         </TD>
  242.         <TD VALIGN=top >
  243.             <A HREF="javascript:connect();"><FONT FACE="ARIAL" SIZE=2><B><%=L_CONNECT_TEXT%></A></B>
  244.         </TD>
  245.     </TR>
  246.     <TR>
  247.         <TD COLSPAN = 2 VALIGN="middle">
  248.             <FONT FACE="ARIAL" SIZE=2><B> 
  249.         </TD>
  250.     </TR>
  251.     <TR>
  252.         <TD  VALIGN=top ALIGN=right>
  253.             <A HREF="javascript:edit();"><IMG HEIGHT=16 WIDTH=16 HSPACE=2 ALIGN="top" SRC="images/edit.gif" BORDER=0 ALT="<%=L_PROPS_TEXT%>"></A>
  254.         </TD>
  255.         <TD VALIGN="top">
  256.             <A HREF="javascript:edit();"><FONT FACE="ARIAL" SIZE=2><B><%=L_PROPS_TEXT%></A>
  257.         </TD>
  258.     </TR>
  259.     <TR>
  260.         <TD COLSPAN = 2 VALIGN="middle">
  261.             <FONT FACE="ARIAL" SIZE=2><B> 
  262.         </TD>
  263.     </TR>
  264.     <TR>
  265.         <TD  VALIGN=top ALIGN=right>
  266.             <A HREF="javascript:setState(START);"><IMG HEIGHT=16 WIDTH=16 HSPACE=2 ALIGN="top" SRC="images/next.gif" BORDER=0 ALT="<%=L_START_TEXT%>"></A>
  267.         </TD>
  268.         <TD VALIGN=top>
  269.             <A HREF="javascript:setState(START);"><FONT FACE="ARIAL" SIZE=2><B><%=L_START_TEXT%></A>
  270.         </TD>
  271.     </TR>
  272.     <TR>
  273.         <TD  VALIGN=top ALIGN=right>
  274.             <A HREF="javascript:setState(STOP);"><IMG HEIGHT=16 WIDTH=16 HSPACE=2 ALIGN="top" SRC="images/stop.gif" BORDER=0 ALT="<%=L_STOP_TEXT%>"></A>
  275.         </TD>
  276.         <TD VALIGN="top">
  277.             <A HREF="javascript:setState(STOP);"><FONT FACE="ARIAL" SIZE=2><B><%=L_STOP_TEXT%></A>
  278.         </TD>
  279.     </TR>
  280.     <TR>
  281.         <TD  VALIGN=top ALIGN=right>
  282.             <A HREF="javascript:setState(PAUSE);"><IMG HEIGHT=16 WIDTH=16 HSPACE=2 ALIGN="top" SRC="images/pause.gif" BORDER=0 ALT="<%=L_PAUSE_TEXT%>"></A>
  283.         </TD>
  284.         <TD VALIGN="top">
  285.             <A HREF="javascript:setState(PAUSE);"><FONT FACE="ARIAL" SIZE=2><B><%=L_PAUSE_TEXT%></A>
  286.         </TD>
  287.     </TR>
  288.     <TR>
  289.         <TD  VALIGN=top ALIGN=right>
  290.             <A HREF="javascript:setState(START);"><IMG HEIGHT=16 WIDTH=16 HSPACE=2 ALIGN="top" SRC="images/cont.gif" BORDER=0 ALT="<%=L_RESUME_TEXT%>"></A>
  291.         </TD>
  292.         <TD VALIGN="top">
  293.             <A HREF="javascript:setState(START);"><FONT FACE="ARIAL" SIZE=2><B><%=L_RESUME_TEXT%></A>
  294.         </TD>
  295.     </TR>
  296. </TABLE>
  297. </BODY>
  298. </HTML>
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305.  
  306.