<%
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: bmp, gif, jpg dan png :::
':::: Asli: JUNYD :::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::: ::::
'::: Hal ini bisa mendapatkan byte dari BMP, GIF, JPG dan PNG Pictures :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
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 file 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
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::: ::::
'::: Berikut ini adalah fungsi mengubah dua byte menjadi nilai terpadu :::
'::: (Endian Kecil dan Endian Besar) :::
':::: ::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
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
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::: ::::
'::: Fitur ini melakukan sebagian besar pekerjaan nyata. Itu bersedia mencoba :::
'::: Baca file apapun :::
'::: Jika itu adalah gambar grafik, identifikasi. :::
':::: ::::
'::: 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
strimagetype = gif
Lebar = lngconvert (getBytes (flnm, 7, 2))
Tinggi = lngconvert (getBytes (flnm, 9, 2))
Kedalaman = 2 ^ ((ASC (getBytes (flnm, 11, 1)) dan 7) + 1)
gfxspex = true
elseif left (strtype, 2) = strbmp kemudian 'adalah bmp
strimagetype = BMP