home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / PRIVATE.AP_ / PRIVATE.AP
Text File  |  1998-04-01  |  8KB  |  222 lines
  1. <[
  2. // private.htm - Private Desktop Active Page
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved.
  4.  
  5. LIBRARY webdesk
  6.  
  7. desk = new( "PrivateDesktop", param( 1 ), param( 2 ) )
  8. if ( type( desk ) != "O" )
  9.     return( 0 )
  10. end
  11.  
  12. ]>
  13. <HTML>
  14. <HEAD>
  15. <TITLE>Private Desktop for <[! desk.FullName ]></TITLE>
  16. </HEAD>
  17. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  18.  
  19. <p>
  20. <CENTER>
  21.  
  22. <[ ! desk.templateHeader( ) ]>
  23.  
  24. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  25.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  26.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> " + desk.fname ]>'s Private Desktop</B></FONT></TD>
  27.   <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>
  28.  </TR>
  29. </TABLE>
  30.  
  31. <[ ! desk.templateNavBar( ) ]>
  32.  
  33. </CENTER>
  34. </p>
  35.  
  36. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  37.  <TR VALIGN=top>
  38.   <TD WIDTH=22%>
  39.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  40.     <TR>
  41.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Jump</B></FONT></TD>
  42.     </TR>
  43.    </TABLE>
  44.  
  45.    <p><CENTER><FONT SIZE=2><a href="/desktop/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>
  46.    
  47.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  48.     <TR>
  49.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Drives</B></FONT></TD>
  50.     </TR>
  51.    </TABLE>
  52.  
  53.    <p>
  54.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  55. <[
  56.     // Drives
  57.  
  58.     y = 1
  59.     drives = drivestr( )
  60.     cnt = len( drives )
  61.     ! "<TR>"
  62.     for ( i=1; i<=cnt; i++ )
  63.         if ( y > 3 )
  64.             ! "</TR><TR>"
  65.             y = 1
  66.         end
  67.         filename = strextract( driveGetIconName( drives[i] ), ".", 1 ) + ".jpg"
  68.         if ( strat( "cdrom", filename ) )
  69.             filename = "cdrom2.jpg"
  70.         end
  71.         ! "<TD ALIGN=center><a href=\"drvmgr.htm?Drive=" + drives[i] + ":\"><img src=\"" + filename + "\" width=38 height=37 border=0></a><br> <font size=2>" + drives[i] + ":</font></TD>"
  72.         y++
  73.     end
  74.     ! "</TR>"
  75. ]>
  76.    </TABLE>
  77.    </p>   
  78.  
  79.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  80.     <TR>
  81.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>System Information</B></FONT></TD>
  82.     </TR>
  83.    </TABLE>
  84.    <FONT SIZE=2>
  85. <[
  86.     // System Information
  87.  
  88.     host = webHostName( )
  89.     addr = webAddrFromHost( host )
  90.     ! "<P><CENTER>"
  91.     ! "DOS version " + sysGetDosVersion() + "<br>MS-Windows v" + sysGetWinVersion() + "<br>"
  92.     ! "http://" + addr + "<br>"
  93.     ! "</P><P><CENTER>"
  94.  
  95.     prefix = "viewfile.htm?filename="
  96.  
  97.     ! "<a href=\"" + prefix + "c:\\autoexec.bat\">autoexec.bat</a>, <a href=\"" + prefix + "c:\\config.sys\">config.sys</a>, "
  98.     ! "<a href=\"" + prefix + dirwindows( ) + "\\system.ini\">system.ini</a>, <a href=\"" + prefix + dirwindows( ) + "\\win.ini\">win.ini</a>, "
  99.     ! "<a href=\"" + prefix + dirwindows( ) + "\\protocol.\">protocol</a>, <a href=\"" + prefix + dirwindows( ) + "\\services.\">services</a><br>"
  100.     ! "</CENTER></P>"
  101.  
  102. ]>
  103.  
  104.    </FONT>
  105.     
  106.   </TD>
  107.   
  108.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  109.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  110.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  111.   </TD>  
  112.   
  113.   <TD WIDTH=54%>
  114.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  115.     <TR>
  116.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Applications</B></FONT></TD>
  117.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="_apps.htm"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  118.     </TR>
  119.    </TABLE>
  120.  
  121.     <[
  122.         // Application List
  123.         ! DisplayApps( desk )
  124.     ]>
  125.  
  126.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  127.     <TR>
  128.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Useful Stuff</B></FONT></TD>
  129.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="_stuff.htm"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  130.     </TR>
  131.    </TABLE>
  132.  
  133.     <[
  134.  
  135.         ! DisplayUsefulStuff( desk, 2 )
  136.     ]>
  137.  
  138.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  139.     <TR>
  140.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Documents</B></FONT></TD>
  141.      <TD BGCOLOR=<[! desk.bclrHdr + " VALIGN=center ALIGN=right><a href=\"apprun.htm?cat=_system_&item=FileManager&data=" + webServerHome( desk.websrvr ) + "\\desktop\\docs" + "\">" ]><img src="more.jpg" border=0 width=16 height=16></a></TD>
  142.     </TR>
  143.    </TABLE>
  144. <[
  145.     // Document List
  146.     
  147.     fname = fileFindFirst( desk.dirDocs + "\\*.*", 0 )
  148.     if ( ! strempty( fname ) )
  149.         i = 1
  150.         while ( ! strempty( fname ) )
  151.             files[ i++ ] = lower( fname )
  152.             fname = fileFindNext( )    
  153.         end
  154.         asort( @files )
  155.         ! "<TABLE BORDER=0 WIDTH=100% CELLSPACING=0 CELLPADDING=0>"
  156.         for ( i=1; i<=len( files ); i++ )
  157.  
  158.             filename = webServerFile( desk.websrvr, "/desktop/docs/" + files[i] )
  159.  
  160.                ! " <TR>"
  161.              ! "  <TD VALIGN=\"top\" WIDTH=55%>"
  162.              if ( IsWin32( ) )
  163.                  f = lfnShortToLong( filename )
  164.                  f = right( f, len( f ) - atlast( "\\", f ) - 1 )
  165.                 ! "   <a href=\"/desktop/docs/" + files[i]  + "\"><FONT SIZE=2>" + f + "</a></FONT>"
  166.             else
  167.                 ! "   <a href=\"/desktop/docs/" + files[i]  + "\">" + files[i] + "</a>"
  168.             end
  169.             ! "  </TD>"
  170.              ! "  <TD ALIGN=right WIDTH=15%><FONT SIZE=2>" + right( "0" + alltrim( fileDate( filename ) ), 8 ) + "</FONT></TD>"
  171.              ! "  <TD ALIGN=right WIDTH=15%><FONT SIZE=2>" + fileTime( filename ) + "</FONT></TD>"
  172.              ! "  <TD ALIGN=right WIDTH=15%><FONT SIZE=2>" + strcommas( "" + fileSize( filename ) ) + "</FONT></TD>"
  173.             ! " </TR>"
  174.         end
  175.         ! "</TABLE>"
  176.     end
  177.  
  178. ]>
  179.  
  180.   </TD>
  181.  
  182.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  183.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  184.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  185.   </TD>  
  186.  
  187.   <TD WIDTH=22%>
  188.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  189.     <TR>
  190.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Calendar</B></FONT></TD>
  191.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="calendar.htm"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  192.     </TR>
  193.    </TABLE>
  194.  
  195.    <p>
  196.    <[ 
  197.    
  198.       ! DisplayCalendar( ) 
  199.       
  200.       ]>
  201.       </p>
  202.  
  203.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  204.     <TR>
  205.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Links</B></FONT></TD>
  206.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="_links.htm"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  207.     </TR>
  208.    </TABLE>
  209.  
  210.     <[
  211.         // links
  212.         ! DisplayLinks( desk, 2 )
  213.     ]>
  214.  
  215.   </TD>
  216.  </TR>
  217. </TABLE>
  218.  
  219. </BODY>
  220. </HTML>
  221.  
  222.