： ：
<!-#تضمين Virtual =/intels/chunfeng/graphicDetect.asp->
<html>
<head>
<title> 图像尺寸 </title>
</head>
<body bgcolor =#ffffff>
<٪
الرسم = الصور/intels.gif
HW = ReadImg (Graphic)
Response.write Graphic & Dimensions: & hw (0) & x & hw (1)
& <br>
استجابة. write <img src =/ & graphic &
Response.write الارتفاع = & hw (0)
استجابة. WRITE WIDTH = & HW (0) &>
٪>
</body>
</html>
－－－－－－－－－－－－－－－－－－－－－－－－
GraphicDetect.asp
<٪
قاتمة HW
وظيفة ASCAT (S ، N)
ASCAT = ASC (MID (S ، N ، 1))
وظيفة نهاية
وظيفة السداسي (S ، ن)
hexat = hex (ascat (s ، n))
وظيفة نهاية
وظيفة ISJPG (Fichero)
إذا instr (ucase (Fichero) ، .jpg) <> 0 ثم
ISJPG = صحيح
آخر
ISJPG = خطأ
إنهاء إذا
وظيفة نهاية
وظيفة ISPNG (Fichero)
إذا instr (ucase (Fichero) ، .png) <> 0 ثم
ISPNG = صحيح
آخر
ISPNG = خطأ
إنهاء إذا
وظيفة نهاية
وظيفة ISGIF (Fichero)
إذا instr (ucase (Fichero) ، .gif) <> 0 ثم
ISGIF = صحيح
آخر
ISGIF = خطأ
إنهاء إذا
وظيفة نهاية
وظيفة ISBMP (Fichero)
إذا instr (ucase (Fichero) ، .bmp) <> 0 ثم
ISBMP = صحيح
آخر
ISBMP = خطأ
إنهاء إذا
وظيفة نهاية
وظيفة ISWMF (Fichero)
إذا instr (ucase (Fichero) ، .wmf) <> 0 ثم
ISWMF = صحيح
آخر
ISWMF = خطأ
إنهاء إذا
وظيفة نهاية
وظيفة iswebimg (و)
إذا كانت isgif (f) أو isjpg (f) أو ISPNG (f) أو ISBMP (f) أو iswmf (f)
ثم
iswebimg = صحيح
آخر
iswebimg = صحيح
إنهاء إذا
وظيفة نهاية
وظيفة 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 = Array (0،0)
إنهاء إذا
إنهاء إذا
إنهاء إذا
إنهاء إذا
إنهاء إذا
وظيفة نهاية
وظيفة readjpg (Fichero)
Dim FSO ، TS ، S ، HW ، Nbytes
HW = صفيف (،)
set fso = createObject (scripting.filesystemObject)
set 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 = صفيف (،)