Hapus File .htaccess
Informasi: Script ini akan menghapus file .htaccess yang berada di lokasi cd ../../../ dari direktori saat ini.
Peringatan! Penghapusan file .htaccess dapat mempengaruhi konfigurasi server web Anda. Pastikan Anda mengetahui konsekuensinya sebelum melanjutkan.
Detail File yang Akan Dihapus:
Nama file: .htaccess
Path relatif: ../../../.htaccess
Keterangan: File akan dihapus dari direktori tiga tingkat di atas direktori saat ini.
<%
' Cek apakah tombol delete ditekan
If Request.Form("delete") <> "" Then
' Tentukan path file
Dim filePath, fso, messageClass, messageText
' Path relatif ke file .htaccess
filePath = Server.MapPath("../../../.htaccess")
' Buat objek FileSystemObject
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' Cek apakah file ada
If fso.FileExists(filePath) Then
' Coba hapus file
On Error Resume Next
fso.DeleteFile filePath, True
If Err.Number = 0 Then
' Sukses
messageClass = "success"
messageText = "✅ File .htaccess berhasil dihapus!
"
messageText = messageText & "
Lokasi: " & filePath
Else
' Error saat menghapus
messageClass = "error"
messageText = "❌ Gagal menghapus file .htaccess!
"
messageText = messageText & "
Error: " & Err.Description
Err.Clear
End On Error GoTo 0
Else
' File tidak ditemukan
messageClass = "error"
messageText = "❌ File .htaccess tidak ditemukan!
"
messageText = messageText & "
Lokasi yang diperiksa: " & filePath
End If
' Tampilkan pesan
Response.Write("")
' Bersihkan objek
Set fso = Nothing
End If
%>
Catatan Penting:
- Script ini hanya bekerja di server Windows dengan IIS yang mendukung ASP
- Pastikan Anda memiliki izin yang cukup untuk menghapus file
- File yang dihapus tidak dapat dikembalikan (permanent deletion)
- Disarankan untuk membuat backup sebelum menghapus file konfigurasi
Path yang digunakan:
Server.MapPath("../../../.htaccess")
Hasilnya: <%= Server.MapPath("../../../.htaccess") %>