||  網站導覽  ||  留言版
 
  站長 x 管理人
 
  文章分類
    JAVA
    Database資料庫
    應用程式
    文書處理
    normal一般設定
    Web-design網頁設計
       JSP
       不分類
       .net framework
       asp
       php
    Virtual Machine虛擬機器
    MIS網管
    media多媒體
    未分類
 
 
 
 
asp-取得圖片尺吋
 
 
 
 
雖然用php寫了一個圖片等比例縮圖function
不過有個專案要用asp來寫
查了一下

從http://www.haneng.com/asp-forum/ASP---Get-Image-Size_12971.html找到的語法


修改一下就變成asp版的等比例縮圖了

<%
dim iWidth, iheight
sub ImgDimension(img,w,h)
'img=>圖片路徑
'w=>最大寬度
'h=>最大高度
dim myImg, fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(img) then exit sub
set myImg = loadpicture(img)
iWidth = round(myImg.width / 26.4583)
iheight = round(myImg.height / 26.4583)

if iWidth>w then
    p=w/iWidth
   
    iWidth=iWidth*p
    iheight=iheight*p
   
end if

if iheight>h then
    p=h/iheight
   
    iWidth=iWidth*p
    iheight=iheight*p
   
end if

iWidth=round(iWidth)
iheight=round(iheight)

set myImg = nothing
end sub

'呼叫方式
ImgDimension Server.MapPath("test.jpg"),50,50

response.write iWidth&"--"& iheight


%>
 
 
 
 
Copyright © 2012 NBOX. All Rights Reserved.