<% set fso=Server.CreateObject("Scripting.FileSystemObject") set fd=fso.GetFolder(server.mappath("image")) response.write fd.files.count set fd=nothing set fso=nothing %>
<% dim fs,fo,x set fs=Server.CreateObject("Scripting.FileSystemObject") set fo=fs.GetFolder("/wwwroot/image/") i=0 for each x in fo.files i=i+1 next response.write(i) set fo=nothing set fs=nothing %>