一個客戶的網(wǎng)站想實(shí)現(xiàn)功能：
利用asp上傳圖片，選擇完成圖片在前端進(jìn)行裁剪，因?yàn)榭蛻羯蟼鞯恼掌锌赡苁遣灰?guī)則的大小，所以需要進(jìn)行統(tǒng)一的尺寸裁剪，asp裁剪圖片后上傳到服務(wù)器，再次進(jìn)行壓縮，將圖片壓縮成兩張，一張是200*150大小，另一張是640*640大小，做為一張大圖和一張小圖，把文件名寫入數(shù)據(jù)庫。

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

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()'如果此時停止程序運(yùn)行那么得到的圖片就是沒有壓縮過的圖片Set Jpeg = Server.CreateObject("Persits.Jpeg") With Jpeg.Open Server.MapPath(bigFolder & f)'縮略圖.Width = 96.Height = 96.Sharpen 1, 130 '//設(shè)定銳化效果 .Quality = 100'圖片壓縮質(zhì)量最佳為100，想壓的小點(diǎn)就設(shè)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 '//設(shè)定銳化效果 .Quality = 100'圖片壓縮質(zhì)量最佳為100，想壓的小點(diǎn)就設(shè)80或是70或再小.Save Server.MapPath(bigFolder & f)'保存路徑End WithSet Jpeg = Nothing base64_img = f

　　

轉(zhuǎn)載于:https://www.cnblogs.com/yjed/p/11068171.html

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。