'上传头像超宽,超高自动调整 By rdzjw.com if UpClass="Face" then Set Jpeg = Server.CreateObject("Persits.Jpeg") '调用组件 Jpeg.Open Server.MapPath(""&SaveFile&"") if Jpeg.Width>100 or jpeg.Height>120 then Jpeg.Width=100 '强制100为输出宽,120为输出高 jpeg.Height=120 Jpeg.Save Server.MapPath(""&SaveFile&"") end if Set Jpeg = Nothing end if