网页操作中获取页面上某个图像的尺寸大小.doc

一优网络 网页操作中获取页面上某个图像的尺寸大小 见下面的两个文件：一优网络之获知图像尺寸% graphic=images/intels.gif HW = ReadImg(graphic) Response.Write graphic & Dimensions: & HW(0) & x & HW(1) & response.write %graphicdetect.asp%Dim HWFunction AscAt(s, n) AscAt = Asc(Mid(s, n, 1)End FunctionFunction HexAt(s, n) HexAt = Hex(AscAt(s, n)End FunctionFunction isJPG(fichero) If inStr(uCase(fichero), .JPG) 0 Then isJPG = true Else isJPG = false End IfEnd FunctionFunction isPNG(fichero) If inStr(uCase(fichero), .PNG) 0 Then isPNG = true Else isPNG = false End IfEnd FunctionFunction isGIF(fichero) If inStr(uCase(fichero), .GIF) 0 Then isGIF = true Else isGIF = false End IfEnd FunctionFunction isBMP(fichero) If inStr(uCase(fichero), .BMP) 0 Then isBMP = true Else isBMP = false End IfEnd FunctionFunction isWMF(fichero) If inStr(uCase(fichero), .WMF) 0 Then isWMF = true Else isWMF = false End IfEnd FunctionFunction isWebImg(f) If isGIF(f) Or isJPG(f) Or isPNG(f) Or isBMP(f) Or isWMF(f) Then isWebImg = true Else isWebImg = true End IfEnd FunctionFunction ReadImg(fichero) If isGIF(fichero) Then ReadImg = ReadGIF(fichero) Else If isJPG(fichero) Then ReadImg = ReadJPG(fichero) Else If isPNG(fichero) Then ReadImg = ReadPNG(fichero) Else If isBMP(fichero) Then ReadImg = ReadPNG(fichero) Else If isWMF(fichero) Then ReadImg = ReadWMF(fichero) Else ReadImg = Array(0,0) End If End If End If End If End IfEnd FunctionFunction ReadJPG(fichero) Dim fso, ts, s, HW, nbytes HW = Array(,) Set fso = CreateObject(Scripting.FileSystemObject) Set ts = fso.OpenTextFile(Server.MapPath(/ & fichero), 1) s = Right(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 = HWEnd FunctionFunction ReadPNG(fichero) Dim fso, ts, s, HW, nbytes HW = Array(,) Set fso = CreateObject(Scripting.FileSystemObject) Set ts = fso.OpenTextFile(Server.MapPath(/ & fichero), 1) s = Right(ts.Read(24), 8) HW(0) = HexToDec(HexAt(s,3) & HexAt(s,4) HW(1) = HexToDec(HexAt(s,7) & HexAt(s,8) ts.Close ReadPNG = HWEnd FunctionFunction ReadGIF(fichero) Dim fso, ts, s, HW, nbytes HW = Array(,) Set fso = CreateObject(Scripting.FileSystemObject) Set ts = fso.OpenTextFile(Server.MapPath(/ & fichero), 1) s = Right(ts.Read(10), 4) HW(0) = HexToDec(HexAt(s,2) & HexAt(s,1) HW(1) = HexToDec(HexAt(s,4) & HexAt(s,3) ts.Close ReadGIF = HWEnd FunctionFunction ReadWMF(fichero) Dim fso, ts, s, HW, nbytes HW = Array(,) Set fso = CreateObject(Scripting.FileSystemObject) Set ts = fso.OpenTextFile(Server.MapPath(/ & fichero), 1) s = Right(ts.Read(14), 4) HW(0) = HexToDec(HexAt(s,2) & HexAt(s,1) HW(1) = HexToDec(HexAt(s,4) & HexAt(s,3) ts.Close ReadWMF = HWEnd FunctionFunction ReadBMP(fichero) Dim fso, ts, s, HW, nbytes HW = Array(,) Set fso = CreateObject(Scripting.FileSystemObject) Set ts = fso.OpenTextFile(Server.MapPath(/ & fichero), 1) s = Right(ts.Read(24), 8) HW(0) = HexToDec(HexAt(s,4) & HexAt(s,3) HW(1) = HexToDec(HexAt(s,8) & HexAt(s,7) ts.Close ReadBMP = HWEnd FunctionFunction isDigit(c) If inStr(0123456789, c) 0 Then isDigit = true Else isDigit = false End IfEnd FunctionFunction isHex(c) If inStr(0123456789ABCDEFabcdef, c) 0 Then isHex = true Else ishex = false End IfEnd FunctionFunction HexToDec(cadhex) Dim n, i, ch, decimal decimal = 0 n = Len(cadhex) For i=1 To n ch = Mid(cadhex, i, 1) If isHex(ch) Then decimal = deci