一個客戶的網站想實現功能：
利用asp上傳圖片，選擇完成圖片在前端進行裁剪，因為客戶上傳的照片有可能是不規則的大小，所以需要進行統一的尺寸裁剪，asp裁剪圖片后上傳到服務器，再次進行壓縮，將圖片壓縮成兩張，一張是200*150大小，另一張是640*640大小，做為一張大圖和一張小圖，把文件名寫入數據庫。

根據客戶提出的asp上傳照片并裁剪，我給寫了下面的代碼，在瀏覽器前端上傳，然后提示裁剪，選擇自已想要的區域名，確定上傳，服務器端保存入庫，此代碼我覺得有人會有用，所以發布出來，供大家學習交流：

If InStr(s,"base64,") > 0 Thens = Mid(s,InStr(s,"base64,")+7)End IfSet b64 = Server.CreateObject("Msxml2.DOMDocument").createElement("a")Set Stream = Server.CreateObject("ADODB.Stream")b64.dataType = "bin.base64"b64.Text = sWith Stream.Type = 1.Open .Write b64.nodeTypedValue.SaveToFile Server.MapPath(bigFolder & f),2.Close End WithSet Stream = Nothing Set b64 = Nothing'response.End()'如果此時停止程序運行那么得到的圖片就是沒有壓縮過的圖片Set Jpeg = Server.CreateObject("Persits.Jpeg") With Jpeg.Open Server.MapPath(bigFolder & f)'縮略圖.Width = 96.Height = 96.Sharpen 1, 130 '//設定銳化效果 .Quality = 100'圖片壓縮質量最佳為100，想壓的小點就設80或是70或再小.Save Server.MapPath(smallFolder & f)'保存路徑End WithSet Jpeg = NothingSet Jpeg = Server.CreateObject("Persits.Jpeg") With Jpeg.Open Server.MapPath(bigFolder & f)'大圖.Width = 640.Height = 640.Sharpen 1, 130 '//設定銳化效果 .Quality = 100'圖片壓縮質量最佳為100，想壓的小點就設80或是70或再小.Save Server.MapPath(bigFolder & f)'保存路徑End WithSet Jpeg = Nothing base64_img = f

　　

轉載于:https://www.cnblogs.com/yjed/p/11068171.html

總結

以上是生活随笔為你收集整理的asp图片截图代码并且利用asp上传图片压缩的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。