home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Compu…g and running Windows 98 / win98pb.iso / netkit / smartdes / websuite.exe / VIEWFILE.AP_ / VIEWFILE.AP
Encoding:
Text File  |  1998-04-01  |  1.5 KB  |  56 lines
  1. <[
  2. // viewfile.htm    
  3. // File Viewer 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. filename = desk.session.var( "FileName" )
  14.  
  15. ]>
  16. <HTML>
  17. <HEAD>
  18. <TITLE>File Viewer</TITLE>
  19. </HEAD>
  20. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  21.  
  22. <p>
  23. <CENTER>
  24.  
  25. <[ ! desk.templateHeader( ) ]>
  26.  
  27. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  28.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  29.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> " + desk.fname ]>'s File Viewer</B></FONT></TD>
  30.   <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>
  31.  </TR>
  32. </TABLE>
  33.  
  34. <[ ! desk.templateNavBar( ) ]>
  35.  
  36. </CENTER>
  37. </p>
  38.  
  39. <[
  40.     str =  "Last updated " + ltrim( filedate( filename ) ) + " at " + timetostr( filetime( filename ), 0 ) + "m, and the file size is " + strcommas( "" + filesize( filename ) ) + " bytes"
  41.     ! "<CENTER><FONT COLOR=\"#000000\" SIZE=4><B>" + upper( filename ) + "</B></FONT><BR><FONT SIZE=2><B>" + str + "</B></FONT><BR></CENTER>"
  42.     ! "<PRE>"
  43.     ! fileReadASCII( filename )
  44.     ! "</PRE>"
  45. ]>
  46.  
  47. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  48.  <TR VALIGN=top>
  49.   <TD>
  50.   </TD>
  51.  </TR>
  52. </TABLE>
  53.  
  54. </BODY>
  55. </HTML>
  56.