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

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

uploadinc 頁(yè)的代碼如下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。

思路先獲取圖片長(zhǎng)度和寬度，再定義一個(gè)最大的顯示長(zhǎng)度和寬度，當(dāng)圖片的長(zhǎng)度或?qū)挾却笥谧畲箝L(zhǎng)度或?qū)挾葧r(shí)，等比例縮小圖片尺寸function getWimgpath #39獲得最終顯示的圖片寬度的函數(shù) set pp=new imgInfo w = ppimgW。

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

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