雖然用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


%>