VBSCRIPT上傳圖片/接收base64格式圖片

 客戶端先將圖片轉成base64字串

傳到伺服器VBSCRIPT在將base64字串轉成圖片儲存
要注意的是伺服器設定的檔案大小


<%
Response.ContentType="text/html"
Response.Charset="UTF-8"
base64String=Request("base64string")




FullName=server.MapPath ("/qoo.jpg")
Set tmpDoc = Server.CreateObject("MSXML2.DomDocument")
Set nodeB64 = tmpDoc.CreateElement("b64")
nodeB64.DataType = "bin.base64"
nodeB64.Text = Mid(base64String, InStr(base64String, ",") + 1)

dim bStream : set bStream = server.CreateObject("ADODB.stream")

bStream.type = 1

call bStream.Open()

call bStream.Write( nodeB64.nodeTypedValue )

call bStream.SaveToFile( FullName, 2)

%>