home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / serwery_www / websuite / websuite.exe / DOWNLOAD.AP_ / DOWNLOAD.AP
Text File  |  1999-01-12  |  2KB  |  81 lines
  1. <[
  2. // Personal Web Server - Download AP
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved
  4.  
  5. websrvr = 0 + param( 1 )
  6. sessionId = 0 + param( 2 )
  7.  
  8. session = new( "session", websrvr, sessionId )
  9.  
  10. ]>
  11. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  12. <!5thGEN Active Pages, by www.smartdesk.com>
  13. <HTML>
  14. <TITLE>Personal Web Server - Public Download Area</TITLE>
  15. <BODY BGCOLOR="#000000" LINK="#FFFFFF" VLINK="#FFFFFF" TEXT="#FFFFFF">
  16.  
  17. <TABLE BORDER=0 WIDTH=600>
  18.  <TR>
  19.   <TD VALIGN="top" WIDTH=120>
  20.    <CENTER>
  21.    <A HREF="/index.htm"><IMG SRC="/image/earth.gif" WIDTH=80 HEIGHT=80 BORDER=0></A><BR>
  22.    <FONT COLOR="#FFFFFF" SIZE=1><FONT COLOR="#00FFFF">©Copyright 1997-98</FONT><BR>by SmartDesk, Inc.<BR>All Rights Reserved<BR></FONT>
  23.    <P><A HREF="/index.htm">Home</A></P>
  24.    </CENTER>
  25.  
  26.   </TD>
  27.   <TD WIDTH=25>
  28.   </TD>
  29.   <TD WIDTH=450>
  30.  
  31.    <CENTER>
  32.    <P><FONT SIZE=5 COLOR="00FFFF"><B>Public Download Area</B></FONT><BR></P>
  33.    </CENTER>
  34.  
  35.    <P><BR></P>
  36.  
  37. <[
  38.     path = webServerHome( websrvr ) + "\\download\\"
  39.     fname = fileFindFirst( path + "*.*", 0 )
  40.     if ( strempty( fname ) )
  41.         session.response( "<H2>No files available for download...</H2><a href=\"/\">Back</a>...", "FFFFFF", "000000", "00FFFF" )
  42.         return( 1 )
  43.     end
  44.  
  45.     i = 1
  46.     while ( ! strempty( fname ) )
  47.         files[ i++ ] = lower( fname )
  48.         fname = fileFindNext( )    
  49.     end
  50.  
  51.     asort( @files )
  52.  
  53.    ! "<TABLE BORDER=0 WIDTH=450>"
  54.  
  55.     for ( i=1; i<=len( files ); i++ )
  56.  
  57.            ! " <TR>"
  58.          ! "  <TD VALIGN=\"top\" WIDTH=100>"
  59.          lfname = lfnShortToLong( path + files[i] )
  60.         ! "   <a href=\"/download/" + files[i]  + "\">" + strextract( lfname, "\\", chrcount( "\\",  lfname ) + 1 ) + "</a>"
  61.         ! "  </TD>"
  62.         
  63.         filename = webServerFile( websrvr, "/download/" + files[i] )
  64.  
  65.          ! "  <TD WIDTH=70>" + fileDate( filename ) + "  </TD>"
  66.          ! "  <TD WIDTH=50>" + fileTime( filename ) + "  </TD>"
  67.          ! "  <TD ALIGN=right WIDTH=80>" + strcommas( "" + fileSize( filename ) ) + "  </TD>"
  68.         
  69.         ! " </TR>"
  70.     end
  71.     ! "</TABLE>"
  72. ]>
  73.  
  74.   </TD>
  75.  </TR>
  76. </TABLE>
  77. <br><br><br><br>
  78.  
  79. <[! webFooter( )]>
  80.  
  81.