海南世纪云图网络科技有限公司
咨询热线:400-822-8458 技术支持:0898-66754910 客户服务:0898-32183600

Asp取得图像的属性函数

发表于:2010-12-03 00:00:00来源:EyNet人气:2300

取得图像的属性函数如下:

  '函数名:GetImageDx
  '作 用:取得图像的属性:类型、宽、高
  '参 数:filepath ---- 文件路径及文件命名
  '返回值:"类型|宽|高"
  '**************************************************''''
  Public Function GetImageDx(ByVal filepath)
   DIM Tempsm,NBxx,WJXX(3)
   SET Tempsm = Server.CreateObject("ADODB.Stream")
   Tempsm.Mode=3
   Tempsm.Type=1
   Tempsm.Open
   Tempsm.LoadFromFile filepath
   NBxx=Hex(BinVal(Tempsm.Read(3)))
   WJXX(0)=NBxx
   WJXX(1)="0"
   WJXX(2)="0"
   If NBxx="464947" Then
   WJXX(0)="GIF"
   Tempsm.Read(3)
   WJXX(1)=BinVal(Tempsm.Read(2))
   WJXX(2)=BinVal(Tempsm.Read(2))
   End If
   If NBxx="FFD8FF" Then
   WJXX(0)="JPG"
   do
   do: p1=binVal(Tempsm.Read(1)): loop while p1=255 and not Tempsm.EOS
   if p1>191 and p1<196 then exit do else Tempsm.Read(binval2(Tempsm.Read(2))-2)
   do:p1=binVal(Tempsm.Read(1)):loop while p1<255 and not Tempsm.EOS
   loop while true
   Tempsm.Read(3)
   WJXX(2)=binval2(Tempsm.Read(2))
   WJXX(1)=binval2(Tempsm.Read(2))
   End If
   If Mid(NBxx,3)="4D42" Then
   Tempsm.Read(15)
   WJXX(0)="BMP"
   WJXX(1)=binval(Tempsm.Read(4))
   WJXX(2)=binval(Tempsm.Read(4))
   End If
   If NBxx="4E5089" Then
   WJXX(0)="PNG"
   Tempsm.Read(15)
   WJXX(1)=BinVal2(Tempsm.Read(2))
   Tempsm.Read(2)
   WJXX(2)=BinVal2(Tempsm.Read(2))
   End If
   If NBxx="535743" Then
   WJXX(0)="SWF"
   Tempsm.Read(5)
   binData=Tempsm.Read(1)
   sConv=Num2Str(ascb(binData),2 ,8)
   nBits=Str2Num(left(sConv,5),2)
   sConv=mid(sConv,6)
   while(len(sConv)<nBits*4)
   binData=Tempsm.Read(1)
   sConv=sConv&Num2Str(ascb(binData),2 ,8)
   wend
   WJXX(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20)
   WJXX(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20)
   End If
   Tempsm.Close
   SET Tempsm=nothing
   GetImageDx = WJXX(0)&"|"&WJXX(1)&"|"&WJXX(2)
  End Function
  Function BinVal(bin)
   dim ret
   ret = 0
   for i = lenb(bin) to 1 step -1
   ret = ret *256 + ascb(midb(bin,i,1))
   next
   BinVal=ret
  End Function
  Function BinVal2(bin)
   dim ret
   ret = 0
   for i = 1 to lenb(bin)
   ret = ret *256 + ascb(midb(bin,i,1))
   next
   BinVal2=ret
  End Function
  Function Str2Num(str,base)
   dim ret
   ret = 0
   for i=1 to len(str)
   ret = ret *base + cint(mid(str,i,1))
   next
   Str2Num=ret
  End Function
  Function Num2Str(num,base,lens)
   dim ret
   ret = ""
   while(num>=base)
   ret = (num mod base) & ret
   num = (num - num mod base)/base
   wend
   Num2Str = right(string(lens,"0") & num & ret,lens)
  End Function

文章整理: 世纪云图  https://www.yuntop.cc/

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

版权申明:本站文章部份来自网络,如有侵权,请联系我们,我们收到后立即删除,谢谢!

特别注意:本站部份转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有。

微信
网站建设
软件业务
网络营销
400电话