Kode program
<%
'----------------------------------------------
'Nama fungsi: ChkImg
'Fungsi: Memeriksa apakah file gambar tersebut legal
'Parameter: img, jalur gambar, jalur absolut relatif terhadap direktori root situs web
'Nilai yang dikembalikan: Tipe Boolean, jika gambarnya sah, kembalikan Benar, jika tidak, kembalikan Salah
'Kondisi: Server harus mendukung komponen AspJpeg,
' Jika tidak didukung, untuk menghindari semua gambar tidak dapat diunggah, fungsi ini akan langsung mengembalikan True
'----------------------------------------------
Fungsi ChkImg(img)
Pada Error Resume Next 'Untuk menangkap informasi kesalahan, kode harus terus dieksekusi ketika terjadi kesalahan
Dim RetunValue, ChkJpeg
RetunValue = True
'Jika jalurnya kosong, gambar dianggap ilegal
Jika isnull(img) Maka ChkImg = False:Keluar dari
Kumpulan Fungsi ChkJpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005 <> Err Then 'Jika komponen didukung, gunakan komponen tersebut untuk memeriksa legalitas gambar
ChkJpeg.Buka Server.mappath(img)
Jika Salah Lalu
Nilai Kembali = Salah
Akhiri Jika
Lain 'Jika komponen tidak didukung, lewati dan kembalikan True secara langsung
Nilai Kembali = Benar
Berakhir Jika
'www.downcodes.com Diperlukan pekerjaan setelahnya
Jika Err.number <> 0 Maka Err.clear
Setel ChkJpeg = Tidak Ada
ChkImg = Nilai Kembali
Fungsi Akhir
%>
Catatan: Karena AspJpeg hanya dapat memproses file yang sudah ada di server, kita perlu melakukan ini selama penerapan sebenarnya: pertama-tama unggah gambar ke folder sementara, lalu periksa legalitas gambar tersebut. Jika legal, salin gambar tersebut ke direktori penyimpanan gambar, hapus file sementara dan kembalikan pesan keberhasilan unggahan. Jika ilegal, langsung hapus file sementara dan kembalikan peringatan kesalahan.
Karena gambar hanya dibuka dengan AspJpeg dan tidak ada pemrosesan gambar yang dilakukan, efisiensi pelaksanaan fungsi ini masih sangat tinggi, dan pada dasarnya tidak perlu khawatir tentang masalah efisiensi selama penggunaan.