<% Function StripFileName(strFile) StripFileName = Left(strFile, inStrRev(strFile, "\")) End Function FILE_FOLDER = StripFileName(Request.ServerVariables("PATH_TRANSLATED")) d=request("d") if instr(1,d,"..")>0 or d = "/" or d = "\" then d="" end if if trim(d)="files\ButchLaFonte\Perpendicular" then d="files\ButchLaFonte\Perpendicular Magnetics" end if if d <> "" then JavaSaveD = replace(d,"\","|") %> File Manager <% aa = Parent(d) if aa = "" then aa = d response.write "
" & Chr(10) response.write "
" & Chr(10) response.write "
" & Chr(10) Dim FileName if right(d,1) <> "\" then FileName = Server.MapPath(d & "\hidden\profile.gif") else FileName = Server.MapPath(d & "hidden\profile.gif") end if If IsFileExists(FileName) = True Then %> " border="0">
<% end if %>
In case on-line viewing of a video clip doesn't work (busy server), you should try to download the file and look at it off-line.
<% 'response.write "

" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) ShowFolderList(server.mappath(d)) response.write "" & Chr(10) if instr(1,d,"files\ButchLaFonte\")>100 then ' 100 just to skip this response.write "" & chr(10) response.Write "" & chr(10) response.write "" & Chr(10) end if response.write " " & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) response.write "" & Chr(10) ShowFileList(server.mappath(d)) response.write "" & Chr(10) response.write "
" & Chr(10) %>

<% if Instr(1,d,"files")>0 then%> Sub-folders in <% else %> Sub-folders in <%end if Response.Write server.mappath(d) response.write " folder: .\group\minatowheel\" & d & "
Size of current folder: " & cint(Getsize(server.mappath(d))/1000/1000) & " Mb

" & chr(10) %>
<% response.Write "
" & Chr(10) response.write "TypeFolder Name# filesAction
" & Chr(10) response.write "

" & Chr(10) %> <% response.Write "

" & Chr(10) response.write "
-Ads
" & Chr(10) response.write "

Files in" & Chr(10) response.write " folder: .\group\minatowheel\" & d & Chr(10) response.write "

" & Chr(10) response.write "TypeFilenameDateSizeAction
" & Chr(10) response.write "

" & Chr(10) 'response.write "Status: " & stat & "

" & Chr(10) response.write "

" & Chr(10) response.write "
" & Chr(10) response.write "
" & Chr(10) %>
<% if d="files\ButchLaFonte\" then %> Texas Jones Act
Texas Jones Act Counter <%end if%> <% response.write "" & Chr(10) response.write "" & Chr(10) else response.redirect "default.asp" end if %> <% Function ShowFolderList(folderspec) Set fso = CreateObject("Scripting.FileSystemObject") Set fs1 = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set sf = f.SubFolders if aa<>d then ' we are already in the root s = s & "" & chr(10) s = s & "" & Chr(10) s = s & ".. (previous folder)" & Chr(10) s = s & "Create a new folder" & chr(10) s = s & "" & GetNumberOfFiles(FILE_FOLDER & aa) & "" & chr(10) s = s & "Open" & Chr(10) s = s & "" & Chr(10) response.write s end if s = "" For Each f1 in sf if lcase(f1.name) <> "hidden" then if fs1.FileExists(folderspec & "\" & f1.name & "\hidden\profile.gif") then profile="energy device
" else profile="" end if s = s & "" & chr(10) s = s & "" & Chr(10) s = s & "" & Profile & "" & f1.name & "" folder=folderspec & "\" & f1.name descriptionfile = folder & "\aaaaa.aaa" if fs1.FileExists(descriptionfile) then set r=fs1.OpenTextFile(descriptionfile,1) desc = "" Do until r.AtEndOfStream desc = desc + r.readline Loop if trim(desc)<>"" then s = s + "
" & desc & "" end if r.close end if s = s & "" & Chr(10) s = s & "" & chr(10) s = s & "Rename the folder  " & chr(10) s = s & "Change the description  " & chr(10) s = s & "" & chr(10) s = s & "" & GetNumberOfFiles(folderspec & "\" & f1.name) & "" & chr(10) s = s & "Open" & Chr(10) s = s & "" & Chr(10) s = replace(s,"\\","\") response.write s s = "" End if Next End Function %> <% Function Parent(path) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Parent = fso.GetParentFolderName(path) End Function %> <% Function GetSize(folderspec) set fso = createobject("Scripting.FileSystemObject") set f = fso.getfolder(folderspec) s=f.size getsize=s end function Function GetNumberOfFiles(folderspec) Dim fso, f, xf, m, n set fso = createobject("Scripting.FileSystemObject") set f = fso.getfolder(folderspec) set n=f.Files GetNumberOfFiles=0 For Each xf in n GetExt = fso.GetExtensionName(folderspec & "\" & xf.name) if lcase(getext) = "db" or _ lcase(getext) = "log" or _ lcase(getext) = "aaa" or _ lcase(getext) = "desc" then ' don't count these else GetNumberOfFiles=GetNumberOfFiles+1 end if Next set m=f.SubFolders For Each xf in m ' GetNumberOfFiles = GetNumberOfFiles + GetNumberOfFiles(xf) ' this is counting all files in all sub folders, but is too slow if lcase(xf.name) <> "hidden" then GetNumberOfFiles = GetNumberOfFiles + 1 end if Next end function Function ShowFileList(folderspec) Dim fso, f, f1, fc, s Dim Show dim fst,fil Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc img="": skip=0 GetExt = fso.GetExtensionName(folderspec & "\" & f1.name) show=false if lcase(getext) = "db" or _ lcase(getext) = "log" or _ lcase(getext) = "desc" or _ lcase(getext) = "aaa" then img = "":skip=1 if lcase(getext) = "mdb" then img = "imgs\access.jpg" if lcase(getext) = "xls" then img = "imgs\excel.jpg" if lcase(getext) = "exe" then img = "imgs\exe.jpg" if lcase(getext) = "frm" then img = "imgs\frm.jpg" if lcase(getext) = "swf" then img = "imgs\flash.gif" if lcase(getext) = "ppt" then img = "imgs\ppt.gif" if lcase(getext) = "htm" or lcase(getext) = "html" then img = "imgs\htm.jpg" if lcase(getext) = "mp3" or lcase(getext) = "wav" then img = "imgs\sound.gif" if lcase(getext) = "txt" or lcase(getext) = "fem" then img = "imgs\text.jpg" if lcase(getext) = "vbp" then img = "imgs\vbp.jpg" if lcase(getext) = "zip" then img = "imgs\winzip.jpg" if lcase(getext) = "doc" or lcase(getext) = "docx" then img = "imgs\word.jpg" if lcase(getext) = "pdf" then img = "imgs\pdf.gif" if lcase(getext) = "jpg" or lcase(getext) = "gif" or lcase(getext) = "png" or lcase(getext) = "tif" or lcase(getext) = "bmp" then img = "imgs\image.gif" : Show=true if lcase(getext) = "wmv" or lcase(getext) = "mp4" or lcase(getext) = "avi" or lcase(getext) = "mpg" then img = "imgs\video.gif" if lcase(getext) = "mov" then img = "imgs\quicktime.png" if img = "" then img = "imgs\no.jpg" if skip=0 then size = f1.size if size<1000 then strSize=Cstr(size) & " b" elseif size<1000000 then strSize=Cstr(int(size/1000)) & " kb" else strSize=Cstr(int(size/10000)/100) & " mb" end if strUrl = "./shared/" & d & "/" & f1.name strUrl = Replace(strUrl,"\","/") strUrl = Replace(strUrl,"+","$") createdY = cstr(year(f1.DateCreated)) createdM = mid(cstr(month(f1.DateCreated)+100),2,2) createdD = mid(cstr(day(f1.DateCreated)+100),2,2) created = CreatedY & "-" & CreatedM & "-" & CreatedD strTextFile = folderspec & "\" & f1.name & ".desc" 'Create a FileSystemObject set fst = Server.CreateObject("Scripting.FileSystemObject") 'Set the name of the file to read if Not fst.FileExists(strTextFile) then description="" else 'Open the textfile for reading set fil = fst.OpenTextFile(strTextFile,1,false,0) 'read the first line of the textfile description="
" & fil.readall 'Close the file fil.close end if 'Release the objects set fst=nothing set fil=nothing set filename=nothing 's = s & "" & chr(10) s = s & "" & chr(10) s = s & "" & chr(10) s = s & "" FileAndPath=FILE_FOLDER & d & "\" & f1.name FileAndPath=Replace(FileAndPath,"\","/") FileString=replace(fileandpath,"//","/") If show = true then ' and instr(1,d,"files\ButchLaFonte\")>0 then s = s & "" & chr(10) end if s = s & "" & f1.name & " " & description & "" & chr(10) s = s & "  " & chr(10) s = s & "Change the description" & chr(10) s = s & "  " & chr(10) filetomove=folderspec & "\" & f1.name s = s & "Move to another folder" & chr(10) s = s & "  " & chr(10) s = s & "" & chr(10) s = s & "" & created & "" & chr(10) s = s & "" & strSize & "" & chr(10) s = s & "" s = s & "  View  " 's = s & "Download  " s = s & "Download  " s = s & "Copy URL to clipboard  " s = s & "" & Chr(10) s = s & "" & chr(10) s = replace(s,"\\","/") end if Next if s="" then s = s & "" & chr(10) s = s & " " & chr(10) s = s & "No files" & chr(10) s = s & " " & chr(10) s = s & " " & chr(10) s = s & " " & chr(10) s = s & " " & Chr(10) s = s & "" & chr(10) end if Response.Write s End Function ' ********************************** ' Function to check file Existance ' ********************************** Function IsFileExists(byVal FileName) If FileName = "" Then IsFileExists = False Exit Function End If Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If (objFSO.FileExists( FileName )) = True Then IsFileExists = True Else IsFileExists = False End If Set objFSO = Nothing End Function %>