<%
'' ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' ::: 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)