利用ASP获取设置图片尺寸大小

2024-04-21 02:18

本文主要是介绍利用ASP获取设置图片尺寸大小,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

< %
imgpath
= " default_22.gif "

response.write 
" <img src=' " & imgpath & " ' border=0  " & SetAutoImg( 280 , 260 ,imgpath) & " ><br>宽: " & GetImgW(ImgPath) & " ;高: " & GetImgH(ImgPath)
function  GetImgW(ImgPath)
    
set  pp = new  imgInfo 
    w
= pp.imgW(server.mappath(ImgPath)) 
    
set  pp = nothing  
    GetImgW
= w
end function

function  GetImgH(ImgPath)
    
set  pp = new  imgInfo 
    h
= pp.imgH(server.mappath(ImgPath)) 
    
set  pp = nothing  
    GetImgH
= h
end function

function  SetAutoImg(fitWidth,fitHeight,ImgPath)
    hhRtn
= 0
    wwRtn
= 0
    
set  pp = new  imgInfo 
    ww
= pp.imgW(server.mappath(ImgPath)) 
    hh
= pp.imgH(server.mappath(ImgPath))     
    
set  pp = nothing  
    
if  ww > 0   and  hh > 0   then
        
if  ww / hh >= FitWidth / FitHeight  then
            wwRtn
= fitWidth
            hhRtn
= (hh * FitWidth) / ww
        
else
            hhRtn
= fitHeight
            wwRtn
= (ww * FitHeight) / hh
        
end   if
    
end   if
    SetAutoImg
= "  height=' " & hhRtn & " ' " & "  width=' " & wwRtn & " "
end function

class imgInfo 
    
dim  aso 
    
Private   Sub  Class_Initialize 
    
set  aso = CreateObject " Adodb.Stream "
    aso.Mode
= 3  
    aso.Type
= 1  
    aso.Open 
    
End Sub  
    
Private   Sub  Class_Terminate
    err.clear 
    
set  aso = nothing  
    
End Sub  
    
    
Private   Function  Bin2Str(Bin) 
    
Dim  I, Str 
    
For  I = 1   to  LenB(Bin) 
    clow
= MidB(Bin,I, 1
    
if  ASCB(clow)  < 128   then  
    Str 
=  Str  &   Chr (ASCB(clow)) 
    
else  
    I
= I + 1  
    
if  I  <=  LenB(Bin)  then  Str  =  Str  &   Chr (ASCW(MidB(Bin,I, 1 ) & clow)) 
    
end   if  
    
Next  
    Bin2Str 
=  Str 
    
End Function  
    
    
Private   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  
    
    
Private   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  
    
    
Private   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  
    
    
Private   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  
    
    
Private   Function  getImageSize(filespec) 
    
dim  ret( 3
    aso.LoadFromFile(filespec) 
    bFlag
= aso.read( 3
    
select   case   hex (binVal(bFlag)) 
    
case   " 4E5089 "
    aso.read(
15
    ret(
0 ) =   " PNG "  
    ret(
1 ) = BinVal2(aso.read( 2 )) 
    aso.read(
2
    ret(
2 ) = BinVal2(aso.read( 2 )) 
    
case   " 464947 "
    aso.read(
3
    ret(
0 ) =   " GIF "  
    ret(
1 ) = BinVal(aso.read( 2 )) 
    ret(
2 ) = BinVal(aso.read( 2 )) 
    
case   " 535746 "
    aso.read(
5
    binData
= aso.Read( 1
    sConv
= Num2Str(ascb(binData), 2  , 8
    nBits
= Str2Num( left (sConv, 5 ), 2
    sConv
= mid (sConv, 6
    
while ( len (sConv)  < nBits * 4
    binData
= aso.Read( 1
    sConv
= sConv  & Num2Str(ascb(binData), 2  , 8
    
wend  
    ret(
0 ) =   " SWF "  
    ret(
1 ) = int ( abs (Str2Num( mid (sConv, 1 * nBits + 1 ,nBits), 2 ) - Str2Num( mid (sConv, 0 * nBits + 1 ,nBits), 2 )) / 20
    ret(
2 ) = int ( abs (Str2Num( mid (sConv, 3 * nBits + 1 ,nBits), 2 ) - Str2Num( mid (sConv, 2 * nBits + 1 ,nBits), 2 )) / 20
    
case   " FFD8FF "
    
do  
    
do : p1 = binVal(aso.Read( 1 )):  loop   while  p1 = 255   and   not  aso.EOS 
    
if  p1  > 191   and  p1 < 196   then   exit   do   else  aso.read(binval2(aso.Read( 2 )) - 2
    
do :p1 = binVal(aso.Read( 1 )): loop   while  p1  < 255   and   not  aso.EOS 
    
loop   while   true  
    aso.Read(
3
    ret(
0 ) =   " JPG "  
    ret(
2 ) = binval2(aso.Read( 2 )) 
    ret(
1 ) = binval2(aso.Read( 2 )) 
    
case   else
    
if   left (Bin2Str(bFlag), 2 ) =   " BM "   then  
    aso.Read(
15
    ret(
0 ) =   " BMP "  
    ret(
1 ) = binval(aso.Read( 4 )) 
    ret(
2 ) = binval(aso.Read( 4 )) 
    
else  
    ret(
0 ) =   ""  
    
end   if  
    
end   select  
    ret(
3 ) =   " width="" "   &  ret( 1 & " "" height="" "   &  ret( 2 & " "" "  
    getimagesize
= ret 
    
End Function  
    
    
Public   Function  imgW(pic_path) 
    
Set  fso1  =  server.CreateObject(  " Scripting.FileSystemObject "
    
If  (fso1.FileExists(pic_path))  Then  
    
Set  f1  =  fso1.GetFile(pic_path) 
    ext
= fso1.GetExtensionName(pic_path) 
    
select   case  ext 
    
case   " gif " , " bmp " , " jpg " , " png "
    arr
= getImageSize(f1.path) 
    imgW 
=  arr( 1
    
end   select  
    
Set  f1 = nothing  
    
else  
    imgW 
=   0  
    
End   if  
    
Set  fso1 = nothing  
    
End Function  
    
    
Public   Function  imgH(pic_path) 
    
Set  fso1  =  server.CreateObject(  " Scripting.FileSystemObject "
    
If  (fso1.FileExists(pic_path))  Then  
    
Set  f1  =  fso1.GetFile(pic_path) 
    ext
= fso1.GetExtensionName(pic_path) 
    
select   case  ext 
    
case   " gif " , " bmp " , " jpg " , " png "
    arr
= getImageSize(f1.path) 
    imgH 
=  arr( 2
    
end   select  
    
Set  f1 = nothing  
    
else  
    imgH 
=   0  
    
End   if  
    
Set  fso1 = nothing  
    
End Function  
End  Class
%
>

这篇关于利用ASP获取设置图片尺寸大小的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/921928

相关文章

Ubuntu中Nginx虚拟主机设置的项目实践

《Ubuntu中Nginx虚拟主机设置的项目实践》通过配置虚拟主机,可以在同一台服务器上运行多个独立的网站,本文主要介绍了Ubuntu中Nginx虚拟主机设置的项目实践,具有一定的参考价值,感兴趣的可... 目录简介安装 Nginx创建虚拟主机1. 创建网站目录2. 创建默认索引文件3. 配置 Nginx4

Win32下C++实现快速获取硬盘分区信息

《Win32下C++实现快速获取硬盘分区信息》这篇文章主要为大家详细介绍了Win32下C++如何实现快速获取硬盘分区信息,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起学习一下... 实现代码CDiskDriveUtils.h#pragma once #include <wtypesbase

Android如何获取当前CPU频率和占用率

《Android如何获取当前CPU频率和占用率》最近在优化App的性能,需要获取当前CPU视频频率和占用率,所以本文小编就来和大家总结一下如何在Android中获取当前CPU频率和占用率吧... 最近在优化 App 的性能,需要获取当前 CPU视频频率和占用率,通过查询资料,大致思路如下:目前没有标准的

如何关闭 Mac 触发角功能或设置修饰键? mac电脑防止误触设置技巧

《如何关闭Mac触发角功能或设置修饰键?mac电脑防止误触设置技巧》从Windows换到iOS大半年来,触发角是我觉得值得吹爆的MacBook效率神器,成为一大说服理由,下面我们就来看看mac电... MAC 的「触发角」功能虽然提高了效率,但过于灵敏也让不少用户感到头疼。特别是在关键时刻,一不小心就可能触

Nginx配置系统服务&设置环境变量方式

《Nginx配置系统服务&设置环境变量方式》本文介绍了如何将Nginx配置为系统服务并设置环境变量,以便更方便地对Nginx进行操作,通过配置系统服务,可以使用系统命令来启动、停止或重新加载Nginx... 目录1.Nginx操作问题2.配置系统服android务3.设置环境变量总结1.Nginx操作问题

grom设置全局日志实现执行并打印sql语句

《grom设置全局日志实现执行并打印sql语句》本文主要介绍了grom设置全局日志实现执行并打印sql语句,包括设置日志级别、实现自定义Logger接口以及如何使用GORM的默认logger,通过这些... 目录gorm中的自定义日志gorm中日志的其他操作日志级别Debug自定义 Loggergorm中的

golang获取prometheus数据(prometheus/client_golang包)

《golang获取prometheus数据(prometheus/client_golang包)》本文主要介绍了使用Go语言的prometheus/client_golang包来获取Prometheu... 目录1. 创建链接1.1 语法1.2 完整示例2. 简单查询2.1 语法2.2 完整示例3. 范围值

javaScript在表单提交时获取表单数据的示例代码

《javaScript在表单提交时获取表单数据的示例代码》本文介绍了五种在JavaScript中获取表单数据的方法:使用FormData对象、手动提取表单数据、使用querySelector获取单个字... 方法 1:使用 FormData 对象FormData 是一个方便的内置对象,用于获取表单中的键值

前端 CSS 动态设置样式::class、:style 等技巧(推荐)

《前端CSS动态设置样式::class、:style等技巧(推荐)》:本文主要介绍了Vue.js中动态绑定类名和内联样式的两种方法:对象语法和数组语法,通过对象语法,可以根据条件动态切换类名或样式;通过数组语法,可以同时绑定多个类名或样式,此外,还可以结合计算属性来生成复杂的类名或样式对象,详细内容请阅读本文,希望能对你有所帮助...

MySQL8.0设置redo缓存大小的实现

《MySQL8.0设置redo缓存大小的实现》本文主要在MySQL8.0.30及之后版本中使用innodb_redo_log_capacity参数在线更改redo缓存文件大小,下面就来介绍一下,具有一... mysql 8.0.30及之后版本可以使用innodb_redo_log_capacity参数来更改