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

ASP中现行的办法很少的，他只是起到一种等比缩小的作用，但是他并没有真正加大或缩小 所以在加载时还是还是按原始尺寸进行加载，只是在加载成功了才会按等比例显示 lt！ var flag=falsefunction DrawImageImgD var。

uploadinc 页的代码如下ltSCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT dim upfile_Stream Class upload_F dim Form，File，Version Private Sub Class_Initialize dim iStart，iFileNameStart，iFileNameEnd，iEnd，vbEnter，iForm。

思路先获取图片长度和宽度，再定义一个最大的显示长度和宽度，当图片的长度或宽度大于最大长度或宽度时，等比例缩小图片尺寸function getWimgpath #39获得最终显示的图片宽度的函数 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。