|
下面两个文件： <!--#include virtual="/intels/chunfeng/graphicdetect.asp"--> <html> <head> <TITLE>图像尺寸</TITLE> </head> <body bgcolor="#FFFFFF"> <% graphic="images/intels.gif" HW = ReadImg(graphic) Response.Write graphic & " Dimensions: " & HW(0) & "x" & HW(1) & "<br>" response.write "<img src=""/" & graphic & """" response.write height=""" & HW(0) & """ response.write width=""" & HW(0) & "">" %> </body> </html> －－－－－－－－－－－－－－－－－－－－－－－－ graphicdetect.asp <% Dim HW Function AscAt(s, n) AscAt = Asc(Mid(s, n, 1)) End Function Function HexAt(s, n) HexAt = Hex(AscAt(s, n)) End Function Function isJPG(fichero) If inStr(uCase(fichero), ".JPG") <> 0 Then isJPG = true Else isJPG = false End If End Function Function isPNG(fichero) If inStr(uCase(fichero), ".PNG") <> 0 Then isPNG = true Else isPNG = false End If End Function Function isGIF(fichero) If inStr(uCase(fichero), ".GIF") <> 0 Then isGIF = true Else isGIF = false End If End Function Function isBMP(fichero) If inStr(uCase(fichero), ".BMP") <> 0 Then isBMP = true Else isBMP = false End If End Function Function isWMF(fichero) If inStr(uCase(fichero), ".WMF") <> 0 Then isWMF = true Else isWMF = false |