Ini adalah pertama kalinya saya menerjemahkan artikel, jadi mohon maaf jika ada kekurangan.
Alasan mengapa India kini menjadi eksportir perangkat lunak utama adalah karena India lebih unggul dari kita dalam banyak hal. Salah satu keunggulan pertama adalah bahasa resmi India adalah bahasa Inggris, yang memberikan keuntungan unik bagi programmer India yang menggunakan bahasa Inggris sebagai bahasa pemrograman. Bagi kita yang bekerja di industri TI, kita juga harus memperkuat pelatihan bahasa Inggris kita.
Pendahuluan Jika Anda memiliki situs web yang telah berjalan lebih dari dua bulan, Anda mungkin memperhatikan bahwa banyak file gambar menumpuk di situs web Anda. Meskipun kita semua berusaha sebaik mungkin untuk memberi nama file gambar ini dengan baik, saat kita menelusuri nama file gambar ini, selalu sulit bagi kita untuk mengingat arti khusus atau penggunaan beberapa nama file gambar.
Saat ini biasanya kita membuka gambar-gambar itu dengan browser berulang kali untuk melihat gambar apa itu? Saat ini, kode ASP ini dapat digunakan sebagai browser gambar (dan pembersih) untuk menelusuri gambar-gambar ini dan melakukan operasi pembersihan.
pengkodean:
Faktanya, program ini adalah halaman daftar yang berisi semua gambar dalam direktori tertentu, menggunakan objek FileSystemObject untuk membuat daftar file gambar ini (file gif dan jpeg).
Tambahkan tampilan pengalih tautan ke halaman untuk mengontrol apakah akan menampilkan gambar. Jika Anda memiliki banyak file dan tidak ingin memuat semuanya, Anda cukup membiarkan gambar di halaman tersebut menampilkan tautan. Sebaliknya, jika Anda tidak yakin dengan arti beberapa nama file, fungsi ini akan menjadi a bantuan yang baik bagi Anda untuk membersihkan.
Berikut ini adalah kode yang sangat ringkas
<%@ Bahasa=VBScript %>
<% Opsi Eksplisit %>
<%
Const ImageFilePath = "gambar"
Const DeleteButtonLabel = "Hapus Gambar yang Dipilih"
Redupkan objFSO
Redupkan folder objek
Redupkan objFile
Redupkan strFileName
Redupkan strFileExtension
Redupkan blnShowImages
If Request.QueryString("ShowImages") = "" Kemudian
blnShowImages = Salah
Kalau tidak
blnShowImages = CBool(Permintaan.QueryString("ShowImages"))
Berakhir Jika
Jika Permintaan.Form("btnDelete") = DeleteButtonLabel Lalu
Setel objFSO = Server.CreateObject("Scripting.FileSystemObject")
Untuk Setiap strFileName Di Request.Form("delete")
objFSO.DeleteFile(Server.MapPath(ImageFilePath & "/" & _
strNamaFile))
Selanjutnya
Setel objFSO = Tidak Ada
Akhiri Jika
%>
<html>
<kepala>
<title>Peramban & Pembunuh Gambar ASP 101!</title>
</kepala>
<body>
<form action="<%= Request.ServerVariables("URL") %>" method="post">
<tabel border="1">
<tr>
<th>Nama Gambar</th>
<th>Gambar <a href="<%= Permintaan.ServerVariables("URL") %>?
ShowImages=<%= Bukan blnShowImages %>">(Alihkan Tampilan)</a></th>
<th>Hapus Gambar Ini</th>
</tr>
<%
Setel objFSO = Server.CreateObject("Scripting.FileSystemObject")
Setel objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))
Untuk Setiap objFile Di objFolder.Files
strFileExtension = LCase(Mid(objFile.Nama, _
InStrRev(objFile.Name, ".", -1, 1) + 1))
Jika strFileExtension = "gif" Atau strFileExtension = "jpg" Atau _
strFileExtension = "jpeg" Lalu
' Opsi identifikasi file gambar asli:
'Jika objFile.Type = "Gambar GIF" Atau _
objFile.Type = "Gambar JPEG" Lalu
%>
<tr>
<td>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
<%= objFile.Nama %></a>
</td>
<%
Jika blnShowImages Lalu
%>
<td>
<img src="<%= ImageFilePath & "/" & objFile.Name %>" />
</td>
<%
Kalau tidak
%>
<td>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
Lihat Gambar</a>
</td>
<%
Akhiri Jika
%>
<td align="tengah">
<input type="kotak centang" nama="hapus"
nilai="<%= objFile.Nama %>" />
</td>
<%
Akhiri Jika
Selanjutnya
Setel objFolder = Tidak Ada
Setel objFSO = Tidak Ada
%>
<tr>
<td colspan="3" sejajar="kanan">
<input type="kirim" nama="btnHapus"
nilai="<%= DeleteButtonLabel %>">
</td>
</tr>
</tabel>
</form>
</body>
</html>
Saat melakukan operasi penghapusan, pastikan untuk memperhatikan bahwa jika tidak ada perintah konfirmasi penghapusan dalam program, program tidak akan dapat membatalkan operasi penghapusan.
Kesimpulan Orang tidak akan pernah menggunakan ASP untuk membangun situs web berskala besar. (Catatan Penerjemah: Kalimat ini kurang tepat tanpa terjemahan. Menurut pengalaman kerja saya, ASP dapat sepenuhnya membangun sistem situs web skala besar. Dalam hal ASP, saya telah berpartisipasi dalam pembangunan intranet perusahaan skala besar, aplikasi industri seluler , dll.) Namun terkadang Anda dapat menggunakan ini untuk menyederhanakan pekerjaan Anda, meskipun kodenya tidak pernah dipublikasikan di WEB.
Untuk mendapatkan kodenya, Anda dapat mendownload file ZIP diskusi yang berisi kode ini dari direktori root http://www.weiw.com . Setelah kode dijalankan, semua gambar di bawah http://www.weiw.com/images / akan ditampilkan.
Anda dapat mengubah nilai konstanta ImageFilePath. Anda juga dapat meletakkan beberapa jalur virtual di sini dan kodenya akan menggunakan Server.MapPath untuk menentukan jalur fisik yang sesuai. Anda dapat dengan mudah menentukan lokasi tertentu di situs web Anda. Misalnya, mengubah nilai konstanta tersebut dari "images" menjadi "/images" akan mengarahkan program ke direktori images di direktori root situs web. Dengan cara yang sama, nilai ImageFilePath dapat dimodifikasi untuk mencapai tujuan yang sama.
Kedua: Saat menulis kode ini, saya cukup menggunakan jenis file di mesin saya. Ini hanya berfungsi dengan lancar di mesin saya. Ternyata deskripsi jenis file dapat mengubah dasar gabungan file Anda. Untuk mendapatkan ekstensi, Anda memilih untuk menampilkannya berdasarkan file tersebut, bukan jenisnya. Saya telah menerapkan fungsi ini dalam kode di file ZIP ini. Ini sekarang merupakan versi terbaru dari program ini.