home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / DRVMGR.AP_ / DRVMGR.AP
Text File  |  1998-04-01  |  6KB  |  206 lines
  1. <[
  2. // drvmgr.htm    
  3. // Drive Manager Active Page
  4. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved.
  5.  
  6. LIBRARY webdesk
  7.  
  8. desk = new( "PrivateDesktop", param( 1 ), param( 2 ) )
  9. if ( type( desk ) != "O" )
  10.     return( 0 )
  11. end
  12.  
  13. TRY
  14.  
  15. drive = new( "drive", desk.session.var( "drive" ) )
  16.  
  17. ]>
  18. <HTML>
  19. <HEAD>
  20. <TITLE>Drive Manager</TITLE>
  21. </HEAD>
  22. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  23.  
  24. <p>
  25. <CENTER>
  26.  
  27. <[ ! desk.templateHeader( ) ]>
  28.  
  29. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  30.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  31.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> " + desk.fname ]>'s Drive Manager</B></FONT></TD>
  32.   <TD WIDTH=100% ALIGN=right><FONT SIZE=-1 FACE=geneva,arial COLOR=<[ ! desk.fclrHdr + ">" + cdow( jdate( ) ) + ", " + date( "MMMM dd, YYYY " ) + timetostr( time( ), 0 ) + "m" ]></FONT></TD>
  33.  </TR>
  34. </TABLE>
  35.  
  36. <[ ! desk.templateNavBar( ) ]>
  37.  
  38. </CENTER>
  39. </p>
  40.  
  41. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  42.  <TR VALIGN=top>
  43.   <TD WIDTH=22%>
  44.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  45.     <TR>
  46.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Jump</B></FONT></TD>
  47.     </TR>
  48.    </TABLE>
  49.  
  50.    <p><CENTER><FONT SIZE=2><a href="public.htm">Public</a>, <a href="/chat/dir.htm">Chat</a>, <a href="/system/server.htm">Server</a>, <a href="http://www.smartdesk.com/webdesk.html">Help</a>, <a href="/system/srvstats.htm">Stats</a>, <a href="http://my.excite.com">Excite</a>, <a href="_public.htm">Personalize</a></FONT></center></p>
  51.    
  52.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  53.     <TR>
  54.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Drives</B></FONT></TD>
  55.     </TR>
  56.    </TABLE>
  57.  
  58.    <P>
  59.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  60. <[
  61.     // Drives
  62.  
  63.     prefix = "drvmgr.htm?Drive="
  64.  
  65.     y = 1
  66.     drives = drivestr( )
  67.     cnt = len( drives )
  68.     ! "<TR>"
  69.     for ( i=1; i<=cnt; i++ )
  70.         if ( y > 3 )
  71.             ! "</TR><TR>"
  72.             y = 1
  73.         end
  74.         filename = strextract( driveGetIconName( drives[i] + ":" ), ".", 1 ) + ".jpg"
  75.         if ( strat( "cdrom", filename ) )
  76.             filename = "cdrom2.jpg"
  77.         end
  78.         ! "<TD ALIGN=center><a href=\"" + prefix + drives[i] + ":\"><img src=\"" + filename + "\" width=38 height=37 border=" + ( drive.letter[1] == drives[i] ? "1" : "0" ) + "></a><br> <font size=2>" + drives[i] + ":</font></TD>"
  79.         y++
  80.     end
  81.     ! "</TR>"
  82. ]>
  83.  
  84.    </TABLE>
  85.    </p>   
  86.  
  87.    <p><center><a href="private.htm">back</a></center></p>
  88.  
  89.   </TD>
  90.   
  91.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  92.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  93.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  94.   </TD>  
  95.   
  96.   <TD WIDTH=77%>
  97.    <P>
  98.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  99.     <TR>
  100.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr + "><B>Details for Drive " + drive.letter ]></B></FONT></TD>
  101.     </TR>
  102.    </TABLE>
  103.    </P>
  104.  
  105.    <FONT SIZE=4>
  106.    <CENTER>
  107.  
  108.    <P>
  109.    <TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  110.     <TR>
  111.      <TD ALIGN=center WIDTH=70%>
  112.       <[
  113.         filename = strextract( driveGetIconName( drive.letter + ":" ), ".", 1 ) + ".gif"
  114.         if ( strat( "cdrom", filename ) )
  115.             filename = "cdrom2.gif"
  116.         end
  117.           ! "<IMG SRC=\"" + filename + "\" WIDTH=80 HEIGHT=60 BORDER=0>"
  118.       ]>
  119.       </TD>
  120.      <TD WIDTH=30%> </TD>
  121.     </TR>
  122.    </TABLE>
  123.  
  124.    <TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  125.     <TR>
  126.      <TD WIDTH=40%>Drive Type:</TD>
  127.      <TD ALIGN=right WIDTH=30%><[ ! drive.cType ]></TD>
  128.      <TD WIDTH=30%> </TD>
  129.     </TR>
  130.     <TR>
  131.      <TD WIDTH=40%>Drive Status:</TD>
  132.      <TD ALIGN=right WIDTH=30%><[ ! drive.status ]></TD>
  133.      <TD WIDTH=30%> </TD>
  134.     </TR>
  135.     <TR><TD> </TD></TR>
  136.     <TR>
  137.      <TD WIDTH=40%>Drive Size:</TD>
  138.      <TD ALIGN=right WIDTH=30%><[ ! drive.cSize ]></TD>
  139.      <TD WIDTH=30%> </TD>
  140.     </TR>
  141.     <TR>
  142.      <TD WIDTH=40%>Drive Space Free:</TD>
  143.      <TD ALIGN=right WIDTH=30%><[ ! drive.cSpace ]></TD>
  144.      <TD WIDTH=30%> </TD>
  145.     </TR>
  146.     <TR>
  147.      <TD WIDTH=40%>Percent Space Free:</TD>
  148.      <TD ALIGN=right WIDTH=30%><[ ! drive.cPctfree ]></TD>
  149.      <TD WIDTH=30%> </TD>
  150.     </TR>
  151.     <TR><TD> </TD></TR>
  152.    </TABLE>
  153. <[
  154.     if ( ! drive.isremoveable )
  155.            ! "<TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0>"
  156.            ! " <TR>"
  157.            ! "  <TD BGCOLOR=red WIDTH=" + ( 100 - drive.pctfree ) + "> </TD>"
  158.            ! "  <TD BGCOLOR=blue WIDTH=" + drive.pctfree + "> </TD>"
  159.            ! "  <TD WIDTH=30%> </TD>"
  160.            ! " </TR>"
  161.            ! "</TABLE>"
  162.  
  163.            ! "<TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0>"
  164.            ! " <TR>"
  165.            ! "  <TD WIDTH=40%><FONT SIZE=2>Space in Use</FONT></TD>"
  166.            ! "  <TD WIDTH=30% ALIGN=right><FONT SIZE=2>Space Available</FONT></TD>"
  167.            ! "  <TD WIDTH=30%> </TD>"
  168.            ! " </TR>"
  169.            ! "</TABLE>"
  170.     end
  171. ]>
  172.    <P>
  173.    <TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  174.     <TR>
  175.      <TD ALIGN=center WIDTH=70%>
  176.       <FORM ACTION="apprun.htm" METHOD="GET">
  177.        <INPUT TYPE="hidden" NAME="cat" VALUE="<[ ! "_system_" ]>">
  178.        <INPUT TYPE="hidden" NAME="item" VALUE="<[ ! "FileManager" ]>">
  179.        <INPUT TYPE="hidden" NAME="param" VALUE="<[ ! drive.letter ]>">
  180.        <INPUT TYPE="submit" VALUE=" Launch the File Manager ">
  181.       </FORM>
  182.      </TD>
  183.      <TD WIDTH=30%> </TD>
  184.     </TR>
  185.    </TABLE>
  186.    </P>
  187.  
  188.    </CENTER>
  189.  
  190.    </FONT>
  191.    </P>
  192.  
  193.   </TD>
  194.  </TR>
  195. </TABLE>
  196.  
  197.  
  198. </BODY>
  199. </HTML>
  200.  
  201. <[
  202.     CATCH ( err )
  203.         println( 3000, "Error [" + err.errornum + "] at line #" + err.errorline + " (" + ErrorAsText( err.errornum ) + ")" )
  204.         return( 0 )
  205.     END
  206. ]>