case quotHWquot指定高寬縮放可能變形breakcase quotWquot指定寬，高按比例 toheight = originalImageHeight * width originalImageWidthbreakcase quotHquot指定高，寬按比例 towidth = originalImageWidth *。

ASP中現(xiàn)行的辦法很少的，他只是起到一種等比縮小的作用，但是他并沒有真正加大或縮小 所以在加載時還是還是按原始尺寸進行加載，只是在加載成功了才會按等比例顯示 lt！ var flag=falsefunction DrawImageImgD var。

uploadinc 頁的代碼如下ltSCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT dim upfile_Stream Class upload_F dim Form，F(xiàn)ile，Version Private Sub Class_Initialize dim iStart，iFileNameStart，iFileNameEnd，iEnd，vbEnter，iForm。

思路先獲取圖片長度和寬度，再定義一個最大的顯示長度和寬度，當圖片的長度或寬度大于最大長度或寬度時，等比例縮小圖片尺寸function getWimgpath #39獲得最終顯示的圖片寬度的函數(shù) set pp=new imgInfo w = ppimgW。

一 只定義高度height，不定義寬度，則寬度按比例縮小擴大 二去搜索“無組件上傳”。

int w = 100int h = 100Bitmap originBmp = new BitmapquotajpgquotBitmap resizedBmp = new Bitmapw， hGraphics g = GraphicsFromImageresizedBmpgDrawImageoriginBmp， new Rectangle0，0，w，h。