画面の画像の実際のサイズはどうやって分かりますか？
画面の画像の実際のサイズはどう分かりますか？include virtual=「/intels/chunfeng/graphicdetect.asp」<>千花が舞うことで、画像サイズを知ることができます。 graphic=「imags/intels.gif」 HW=ReadImg(graphic) Resonse.Write graphic&Dimensions:&HW(0)&HW(1)&<br/> レスポンス.write"<br/>"/"&graphic&""""""" レスポンス.write height="&HW(0)&" reponse.write width="&HW(0)"""""""</body></>graphicdetect.asp<%Dim HFunction AcApt(s，n) AcAt=Acc(Mid(s，n，1)End FuntionFunction HexAt(s，n) HexAt=Hex(AcAt(s，n)End Function Function isJPG(fichro) If inStr(.JPG)<>0 The n isJPG=true Else isJPG=false End IfEnd Function Function isPNG(fichro) If inStr(.PNG)<>0 The n isPNG=true Else isPNG=false End IfEnd Function Function isGIF(fichro) If inStr（.GIF）<>0 The n isGIF=true Else isGIF=false End IfEnd Function Function isBMP(fichro) If inStr（.BMP）<>0 The n isBMP=true Else isBMP=false End IfEnd Function Function isWMF(fichro) If inStr（.WMF）<>0 The n isWMF=true Else isWMF=false End IfEnd Function Function isWebImg(f) If isGIF(f)Or isJPG(f)Or isPNG(f)Or isBMP(f)Or isWMF(f)The n isWebImg=true Else isWebImg=true End IfEnd Function Function ReadImg(fichro) If isGIF（fichro）The n ReadImg=ReadGIF(fichro) Else If isJPG(fichro)The n ReadImg=ReadJPG(fichro) Else If isPNG(fichro)The n ReadImg=ReadPNG(fichro) Else If isBMP(fichro)The n ReadImg=ReadPNG(fichro) Else If isWMF(fichro)The n ReadImg=ReadWMF(fichro) Else ReadImg=Aray(0,0) End If End If End If End If End IfEnd Function Function ReadJPG(fichro) Dim fso，ts，s，HW，nytes HW=Aray("，") Set fso=CreateObject（「Script.FileSystem Object」） Set ts=fso.OpenTextFile（Server.MapPath（「/」＆fichro）、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.C lose ReadJPG=HWEnd Function Function ReadPNG(fichro) Dim fso，ts，s，HW，nytes HW=Aray("，") Set fso=CreateObject（「Script.FileSystem Object」） Set ts=fso.OpenTextFile（Server.MapPath（「/」＆fichro）、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.C lose ReadPNG=HWEnd Function Function ReadGIF(fichro) Dim fso，ts，s，HW，nytes HW=Aray("，") Set fso=CreateObject（「Script.FileSystem Object」） Set ts=fso.OpenTextFile（Server.MapPath（「/」＆fichro）、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.C lose ReadGIF=HWEnd Function Function ReadWMF(fichro) Dim fso，ts，s，HW，nytes HW=Aray("，") Set fso=CreateObject（「Script.FileSystem Object」） Set ts=fso.OpenTextFile（Server.MapPath（「/」＆fichro）、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.C lose ReadWMF=HWEnd Function Function ReadBMP(fichro) Dim fso，ts，s，HW，nytes HW=Aray("，") Set fso=CreateObject（「Script.FileSystem Object」） Set ts=fso.OpenTextFile（Server.MapPath（「/」＆fichro）、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.C lose ReadBMP=HWEnd Function Function isDigit(c) If inStr（「012345789」、c）<>0 The n isDigit=true Else isDigit=false End IfEnd Function Function isHex(c) If inStr（“012345789 ABCDE Fabcdef”，c）<>0 The n isHex=true Else ishex=false End IfEnd Function Function 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)The n decimal=decimal*16 If isDigit(c)The n decimal=decimal+ch Else decimal=decimal+Acc(uCase(ch)-Acc(「A」) End If Else HexToDec=-1 End If 次のテキスト HexToDec=decimal End Function% [1）