Ecco lo script nella sua completezza:
codice:
<%
function getfoldlink(d, c, f, p)
if d <> "" then
' needs to be clickable
getfoldlink = "<a href='#' style='cursor:hand' " & _
"onclick='flip(""" & d & """);" & _
"this.blur();return false;'>" & _
"<img id='i" & d & "' class=" & c & _
" src=plus.gif vspace=0 hspace=2 border=0>" & _
"<img src=folder.gif hspace=2 border=0></a>" & _
"" & f.name & "" & _
"</div><div id='" & d & "'" & _
">"
else
' can't be clickable
getfoldlink = "<div><img id='i" & d & "' " & _
"class=" & c & " src=plus.gif vspace=0 " & _
"hspace=2 visibility=hidden style='visibility:hidden'><img" & _
" src=folder.gif hspace=2><a " & _
"href=upload_files.asp?cartella=" & f.name &"&folder=" & p & getsftitle(f) & _
">" & f.name & "</a></div>"
end if
end function
function getfilelink(c, fold, file)
getfilelink = "<div><img class=" & c & " src=file.gif" & _
" hspace=2><a href=" & fold & file.name & _
getfiletitle(file) & ">" & file.name & "</a></div>"
end function
function getfiletitle(file)
getfiletitle = " title='Size: " & _
formatnumber(file.size/1024, 2, -1, 0, -1) & _
" kb" & vbCrLf & getDL(file) & "'"
end function
function getsftitle(fold)
getsftitle = " title='" & getsfc(fold) & _
vbCrLf & getfc(fold) & _
vbCrLf & getfs(fold) & _
vbCrLf & getDL(fold) & "'"
end function
function getDL(o)
d = o.dateLastModified
getDL = "Last mod: " & formatdatetime(d, 2) & _
" " & formatdatetime(d, 3)
end function
function getfc(fold)
getfc = fCount(fold.files.count)
end function
function getsfc(fold)
getsfc = sfCount(fold.subfolders.count)
end function
function getfs(fold)
getfs = "Size: " & bToMB(fold.size)
end function
function bToMB(b)
bToMB = formatnumber(b/1024/1024, 2, -1, 0, -1) & " MB"
end function
function fCount(c)
fCount = formatnumber(c, 0, -1, 0, -1) & " file" & _
suffix(c)
end function
function sfCount(c)
sfCount = formatnumber(c, 0, -1, 0, -1) & _
" subfolder" & suffix(c)
end function
function suffix(c)
if c <> 1 then suffix = "s"
end function
%>