<%@ Language = "VBScript" %>
<% Option Explicit %>
<%
'== BEGIN MAIN =================================================================
Sub Main()
'Randomize()
Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Server.MapPath("."))
Set fc = f.Files
For Each f1 In fc
if not f1.name = "index.asp" then
%> <%= f1.name %> <%= f1.size%> <%
end if
Next
End Sub ' Main
'== END MAIN ===================================================================
%>
Directory Listing (by SMB)
<% Main %>