asp图片截图代码并且利用asp上传图片压缩

一个客户的网站想实现功能：
利用asp上传图片，选择完成图片在前端进行裁剪，因为客户上传的照片有可能是不规则的大小，所以需要进行统一的尺寸裁剪，asp裁剪图片后上传到服务器，再次进行压缩，将图片压缩成两张，一张是200150大小，另一张是640640大小，做为一张大图和一张小图，把文件名写入数据库。


根据客户提出的asp上传照片并裁剪，我给写了下面的代码，在浏览器前端上传，然后提示裁剪，选择自已想要的区域名，确定上传，服务器端保存入库，此代码我觉得有人会有用，所以发布出来，供大家学习交流：

If InStr(s,"base64,") > 0 Then
          s = Mid(s,InStr(s,"base64,")+7)
        End If
        Set b64 = Server.CreateObject("Msxml2.DOMDocument").createElement("a")
        Set Stream = Server.CreateObject("ADODB.Stream")
        b64.dataType = "bin.base64"