<%
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: bmp, gif, jpg dan png :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: Fungsi ini mendapat sejumlah byte yang ditentukan dari apapun :::
'::: file, mulai dari offset (base 1) :::
'::: :::
'::: Lulus: :::
'::: flnm => filespec file untuk dibaca :::
'::: offset => offset untuk mulai membaca :::
'::: bytes => berapa banyak byte untuk dibaca :::
'::: :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Fungsi getBytes (flnm, offset, byte)
Redup objfso
Redup objftemp
Dim ObjTextStream
Redup lngsize
pada kesalahan resume berikutnya
Set ObjFSO = CreateObject (Scripting.FilesystemObject)
'Pertama, kami mendapatkan ukuran file
Setel objftemp = objfso.getFile (flnm)
lngsize = objftemp.size
atur objftemp = tidak ada
fsoforreading = 1
Set ObjTextStream = objfso.opentextFile (flnm, fsoforreading)
Jika Offset> 0 lalu
strbuff = objtextStream.read (offset - 1)
akhiri jika
Jika bytes = -1 maka 'dapatkan semua!
GetBytes = objtextStream.read (lngsize) 'readall
kalau tidak
GetBytes = objtextStream.read (bytes)
akhiri jika
objtextStream.close
atur objtextstream = tidak ada
atur objfso = tidak ada
fungsi akhir
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: berfungsi untuk mengonversi dua byte menjadi nilai numerik (panjang) :::
'::: (Baik Little-Endian dan Big-Endian) :::
'::: :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
fungsi lngconvert (strtemp)
lngconvert = clng (asc (kiri (strtemp, 1)) + ((asc (kanan (strtemp, 1)) * 256))))
fungsi akhir
fungsi lngconvert2 (strtemp)
lngconvert2 = clng (asc (kanan (strtemp, 1)) + ((asc (kiri (strtemp, 1)) * 256))))
fungsi akhir
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: Fungsi ini melakukan sebagian besar pekerjaan nyata. Itu akan mencoba :::
'::: untuk membaca file apa pun, terlepas dari ekstensi, dan akan :::
'::: Identifikasi apakah itu gambar grafis. :::
'::: :::
'::: Lulus: :::
'::: flnm => filespec file untuk dibaca :::
'::: width => lebar gambar :::
'::: height => Height of Image :::
'::: kedalaman => kedalaman warna (dalam jumlah warna) :::
'::: strimageType => jenis gambar (misalnya gif, bmp, dll.) :::
'::: :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
fungsi gfxspex (flnm, lebar, tinggi, kedalaman, strimagetype)
redup strpng
redup strgif
redup strbmp
redup strtype
strtype =
strimagetype = (tidak diketahui)
gfxspex = false
strpng = chr (137) & chr (80) & chr (78)
strgif = gif
strbmp = chr (66) & chr (77)
strtype = getBytes (flnm, 0, 3)
Jika strtype = strgif maka 'adalah gif