<%
FUNCTION Main()
LOCAL aDir := directory( "c:\*.*" )
LOCAL i
IF !empty( GetEnv( "SERVER_NAME" ) )
qqOut( "HTTP/1.0 200 OK" )
qOut( "CONTENT-TYPE: TEXT/HTML" )
qOut( "" )
ENDIF
aSort( aDir,,, { |x, y| x[1] < y[1] } )
%>
dir.hs - HarourScript demo of active context
| File Name |
Size |
Date |
Time |
Attributes |
<%
FOR i := 1 TO len( aDir )
%>
| <% qOut( aDir[i,1] ) %> |
<% qOut( aDir[i,2] ) %> |
<% qOut( aDir[i,3] ) %> |
<% qOut( aDir[i,4] ) %> |
<% qOut( aDir[i,5] ) %> |
<%
NEXT
%>
<%
RETURN( NIL )
%>