-
Class ImgWHInfo 'ภาพพื้นหลัง宽度和高度的类，支持JPG，GIF，PNG，BMP
ดิม ASO
คลาสย่อยส่วนตัว_เริ่มต้น
ตั้งค่า ASO=Server.CreateObject("ADODB.Stream")
ASO.Mode=3
ASO.ประเภท=1
ASO.เปิด
จบหมวดย่อย
Class_Terminate ย่อยส่วนตัว
ผิดพลาด.เคลียร์
ตั้งค่า ASO=ไม่มีอะไร
จบหมวดย่อย
ฟังก์ชั่นส่วนตัว Bin2Str(Bin)
ดิม 1, Str
สำหรับ I=1 ถึง LenB(Bin)
clow=MidB(ถัง,I,1)
ถ้า ASCB(โคลว์)<128 แล้ว
Str = Str & Chr(ASCB(โคลว์))
อื่น
ฉัน=ฉัน+1
ถ้าฉัน <= LenB(Bin) ดังนั้น Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))
สิ้นสุดถ้า
ต่อไป
Bin2Str = Str
ฟังก์ชันสิ้นสุด
ฟังก์ชั่นส่วนตัว Num2Str(หมายเลข,ฐาน,เลนส์)
ดิม เร็ต
รีต = ""
ในขณะที่(จำนวน>=ฐาน)
Ret = (จำนวนฐาน Mod) & Ret
Num = (ตัวเลข - จำนวนฐาน Mod)/ฐาน
เวนด์
Num2Str = ขวา (สตริง (เลนส์,"0") & Num & Ret,เลนส์)
ฟังก์ชันสิ้นสุด
ฟังก์ชั่นส่วนตัว Str2Num(Str,ฐาน)
ดิม เร็ต, ไอ
รีท = 0
สำหรับ I=1 ถึง Len(Str)
Ret = Ret *ฐาน + Cint(กลาง(Str,I,1))
ต่อไป
Str2Num=ถอยกลับ
ฟังก์ชันสิ้นสุด
ฟังก์ชั่นส่วนตัว BinVal(Bin)
ดิม เร็ต, ไอ
รีท = 0
สำหรับ I = LenB(Bin) ถึง 1 ขั้นตอน -1
Ret = Ret *256 + AscB(MidB(Bin,I,1))
ต่อไป
BinVal=เกษียณ
ฟังก์ชันสิ้นสุด
ฟังก์ชั่นส่วนตัว BinVal2(Bin)
ดิม เร็ต, ไอ
รีท = 0
สำหรับ I = 1 ถึง LenB(Bin)
Ret = Ret *256 + AscB(MidB(Bin,I,1))
ต่อไป
BinVal2=ถอนตัว
ฟังก์ชันสิ้นสุด
ฟังก์ชั่นส่วนตัว GetImageSize (filespec)
Dim bFlag
ดิมเร็ต(3)
ASO.LoadFromFile(รายละเอียดไฟล์)
bFlag=ASO.อ่าน(3)
เลือก Case Hex(binVal(bFlag))
กรณี "4E5089":
ASO.อ่าน(15)
ret(0)="PNG"
ret(1)=BinVal2(ASO.อ่าน(2))
ASO.อ่าน(2)
ret(2)=BinVal2(ASO.อ่าน(2))
กรณี "464947":
ASO.อ่าน(3)
ret(0)="gif"
ret(1)=BinVal(ASO.อ่าน(2))
ret(2)=BinVal(ASO.อ่าน(2))
กรณี "535746":
ASO.อ่าน(5)
binData=ASO.อ่าน(1)
sConv=Num2Str(ascb(binData),2 ,8)
nBits=Str2Num(ซ้าย(sConv,5),2)
sConv=กลาง(sConv,6)
ในขณะที่(len(sConv)<nBits*4)
binData=ASO.อ่าน(1)
sConv=sConv&Num2Str(AscB(binData),2 ,8)
เวนด์
ret(0)="SWF"
ret(1)=Int(Abs(Str2Num(กลาง(sConv,1*nBits+1,nBits),2)-Str2Num(กลาง(sConv,0*nBits+1,nBits),2))/20)
ret(2)=Int(Abs(Str2Num(กลาง(sConv,3*nBits+1,nBits),2)-Str2Num(กลาง(sConv,2*nBits+1,nBits),2))/20)
กรณี "FFD8FF":
ทำ
ทำ: p1=binVal(ASO.Read(1)): วนซ้ำในขณะที่ p1=255 และไม่ใช่ ASO.EOS
ถ้า p1>191 และ p1<196 ให้ออกจาก Do Else ASO.read(binval2(ASO.Read(2))-2)
ทำ:p1=binVal(ASO.Read(1)):วนซ้ำในขณะที่ p1<255 และไม่ใช่ ASO.EOS
วนซ้ำในขณะที่เป็นจริง
ASO.อ่าน(3)
ret(0)="JPG"
ret(2)=binval2(ASO.อ่าน(2))
ret(1)=binval2(ASO.อ่าน(2))
กรณีอื่น:
ถ้าซ้าย(Bin2Str(bFlag),2)="BM" จากนั้น
ASO.อ่าน(15)
ret(0)="BMP"
ret(1)=binval(ASO.อ่าน(4))
ret(2)=binval(ASO.อ่าน(4))
อื่น
ซ้ำ(0)=""
สิ้นสุดถ้า
สิ้นสุดการเลือก
ret(3)="width=""" & ret(1) &""" height=""" & ret(2) &""""
getimagesize=ret
ฟังก์ชันสิ้นสุด
ฟังก์ชั่นสาธารณะ imgW(IMGPath)
หรี่ FSO, IMGFile, FileExt, Arr
ตั้งค่า FSO = Server.CreateObject("Scripting.FileSystemObject")
ถ้า (FSO.FileExists(IMGPath)) แล้ว
ตั้งค่า IMGFile = FSO.GetFile(IMGPath)
FileExt=FSO.GetExtensionName(IMGPath)
เลือก Case FileExt
กรณี "gif", "bmp", "jpg", "png":
Arr=GetImageSize(IMGFile.Path)
imgW = อร(1)
สิ้นสุดการเลือก
ตั้งค่า IMGFile=Nothing
อื่น
imgW = 0
สิ้นสุดถ้า
ตั้งค่า FSO=ไม่มีอะไร
ฟังก์ชันสิ้นสุด
ฟังก์ชั่นสาธารณะ imgH (IMGPath)
หรี่ FSO, IMGFile, FileExt, Arr
ตั้งค่า FSO = server.CreateObject("Scripting.FileSystemObject")
ถ้า (FSO.FileExists(IMGPath)) แล้ว
ตั้งค่า IMGFile = FSO.GetFile(IMGPath)
FileExt=FSO.GetExtensionName(IMGPath)
เลือก Case FileExt
กรณี "gif", "bmp", "jpg", "png":
Arr=getImageSize(IMGFile.Path)
imgH = อาร์(2)
สิ้นสุดการเลือก
ตั้งค่า IMGFile=Nothing
อื่น
imgH = 0
สิ้นสุดถ้า
ตั้งค่า FSO=ไม่มีอะไร
ฟังก์ชันสิ้นสุด
สิ้นสุดคลาส
IMGPath="Test.jpg"
ตั้ง PP = ImgWHInfo ใหม่
W = PP.imgW (เซิร์ฟเวอร์ Mappath (IMGPath))
H = PP.imgH (เซิร์ฟเวอร์ Mappath (IMGPath))
ตั้ง pp = ไม่มีเลย
Response.Write("<img src='"&IMGPath&"' border=0><br>宽:"&W&";高:"&H)
-