asp将base64的图片信息，转为图片显示,并保存到指定路径

<%  

dim content,user_serial,path

Dim xml : Setxml=Server.CreateObject("MSXML2.DOMDocument")  

Dim stm : Setstm=Server.CreateObject("ADODB.Stream") 

xml.resolveExternals=False  

user_serial=Request("u_4")  ’‘’人员编号

content=unescape(Request("u_5"))  ‘’‘base64位加密的图片信息

path="../photo/webservice/"&user_serial&"_temp.jpg"    ‘’‘’‘图片保存路径

xml.loadXML("<?xmlversion=""1.0""encoding=""gb2312""?><data>"&content&"</data>")    ‘’’’’加载xml文件中的内容，使用xml解析出

xml.documentElement.setAttribute"xmlns:dt","urn:schemas-microsoft-com:datatypes"  

xml.documentElement.dataType ="bin.base64"  

stm.Type=1 'adTypeBinary  

stm.Open  

stm.Writexml.documentElement.nodeTypedValue 

stm.SaveToFileServer.MapPath(path)   ‘’’’’文件保存到指定路径

response.Write(path) 

stm.Close  

Set xml=Nothing  

Set stm=Nothing  

%>