下面两个文件 :
<!-#Включите Virtual =/intels/Chunfeng/GraphicDetect.asp->
<html>
<голова>
<Title> 图像尺寸 </title>
</head>
<body bgcolor =#ffffff>
<%
graphic = images/intels.gif
Hw = readimg (графический)
Response.write Graphic & Dimensions: & HW (0) & X & HW (1)
& <br>
response.write <img src =/ & graphic &
response.write eight = & hw (0) &
response.write width = & hw (0) &>
%>
</body>
</html>
------------------------
graphicdetect.asp
<%
Dim HW
Функция ASCAT (S, N)
ASCAT = ASC (Mid (S, N, 1))
Конечная функция
Функция hexat (s, n)
Hexat = hex (ascat (s, n))
Конечная функция
Функция ISJPG (Fichero)
Если instr (ucase (fichero), .jpg) <> 0 тогда
isjpg = true
Еще
isjpg = false
Конец, если
Конечная функция
Функция ispng (Fichero)
Если instr (ucase (fichero), .png) <> 0 тогда
ispng = true
Еще
ispng = false
Конец, если
Конечная функция
Функция ISGIF (Fichero)
Если instr (ucase (fichero), .gif) <> 0 тогда
isgif = true
Еще
isgif = false
Конец, если
Конечная функция
Функция ISBMP (Fichero)
Если instr (ucase (fichero), .bmp) <> 0 тогда
ISBMP = true
Еще
ISBMP = false
Конец, если
Конечная функция
Функция ISWMF (Fichero)
Если instr (ucase (fichero), .wmf) <> 0 тогда
ISWMF = true
Еще
ISWMF = false
Конец, если
Конечная функция
Функция ISWEBIMG (F)
Если ISGIF (F) или ISJPG (F) или ISPNG (F) или ISBMP (F) или ISWMF (F)
Затем
isWebimg = true
Еще
isWebimg = true
Конец, если
Конечная функция
Функция readimg (fichero)
Если isgif (fichero) тогда
Readimg = readgif (fichero)
Еще
Если ISJPG (Fichero) тогда
Readimg = readjpg (fichero)
Еще
Если iSpng (fichero), то
Readimg = readpng (fichero)
Еще
Если ISBMP (Fichero) тогда
Readimg = readpng (fichero)
Еще
Если ISWMF (Fichero) тогда
Readimg = readwmf (fichero)
Еще
Readimg = массив (0,0)
Конец, если
Конец, если
Конец, если
Конец, если
Конец, если
Конечная функция
Функция readjpg (Fichero)
Dim FSO, TS, S, HW, NBYTES
Hw = массив (,)
Установить fso = createObject (scripting.filesystemobject)
Установите ts = fso.opentextfile (server.mappath (/ & fichero), 1)
S = справа (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
Конечная функция
Функция readpng (fichero)
Dim FSO, TS, S, HW, NBYTES
Hw = массив (,)