下面两个文件 :
<!-#Sertakan Virtual =/Intels/Chunfeng/GraphicDetect.asp->
<Html>
<head>
<title> 图像尺寸 </iteme>
</head>
<body bgcolor =#ffffff>
<%
grafik = gambar/intels.gif
Hw = readimg (grafik)
Response.Write Grafis & Dimensi: & HW (0) & X & HW (1)
& <br>
response.write <img src =/ & grafik &
response.write height = & hw (0) &
response.write width = & hw (0) &>
%>
</body>
</html>
------------------------
graphicdetect.asp
<%
Redup hw
Fungsi ascat (s, n)
ASCAT = ASC (MID (S, N, 1))
Fungsi akhir
Fungsi hexat (s, n)
Hexat = hex (ascat (s, n))
Fungsi akhir
Fungsi isjpg (fichero)
If instr (ucase (fichero), .jpg) <> 0 lalu
isjpg = true
Kalau tidak
isjpg = false
Akhiri jika
Fungsi akhir
Fungsi ispng (fichero)
If instr (ucase (fichero), .png) <> 0 lalu
ispng = true
Kalau tidak
ispng = false
Akhiri jika
Fungsi akhir
Fungsi isgif (fichero)
If instr (ucase (fichero), .gif) <> 0 lalu
isgif = true
Kalau tidak
isgif = false
Akhiri jika
Fungsi akhir
Fungsi isbmp (fichero)
If instr (ucase (fichero), .bmp) <> 0 lalu
isbmp = true
Kalau tidak
isbmp = false
Akhiri jika
Fungsi akhir
Fungsi iswmf (fichero)
If instr (ucase (fichero), .wmf) <> 0 lalu
iswmf = true
Kalau tidak
iswmf = false
Akhiri jika
Fungsi akhir
Fungsi isWebimg (f)
Jika isgif (f) atau isjpg (f) atau ispng (f) atau isBMP (f) atau iswmf (f)
Kemudian
iswebimg = true
Kalau tidak
iswebimg = true
Akhiri jika
Fungsi akhir
Fungsi readimg (fichero)
Jika isgif (fichero) maka
Readimg = readgif (fichero)
Kalau tidak
Jika isjpg (fichero) maka
Readimg = readjpg (fichero)
Kalau tidak
Jika ispng (fichero) maka
Readimg = readpng (fichero)
Kalau tidak
Jika isbmp (fichero) maka
Readimg = readpng (fichero)
Kalau tidak
Jika iswmf (fichero) maka
Readimg = readwmf (fichero)
Kalau tidak
Readimg = array (0,0)
Akhiri jika
Akhiri jika
Akhiri jika
Akhiri jika
Akhiri jika
Fungsi akhir
Fungsi readjpg (fichero)
Redup fso, ts, s, hw, nbytes
Hw = array (,)
Atur fso = createObject (scripting.filesystemObject)
Set Ts = fso.opentextFile (server.mappath (/ & fichero), 1)
s = kanan (ts.read (167), 4)
Hw (0) = hextodec (hexat (s, 3) & hexat (s, 4))
Hw (1) = hextodec (hexat (s, 1) & hexat (s, 2))
ts.close
Readjpg = hw
Fungsi akhir
Fungsi readpng (fichero)
Redup fso, ts, s, hw, nbytes
Hw = array (,)